OM

Bonjour à vous, 

je dispose d'un fichier de 4500 lignes et qques

je souhaite filtrer ce fichier en supprimant des lignes de contact dont la profession ne correspond pas à ma recherche

la profession est indiquée dans la colonne "I"

voici la macro réalisée, ça plante : je pense que je fais une erreur dans le (ligne, colonne)

pourriez-vous m'indiquer la marche à suivre ?

merci d'avance !

Sub Filtre()

If Cells(I) = "Médical" Then
Rows.Delete
ligne = ligne - 1
End If
If Cells(I) = "Mutualité" Then
Rows.Delete
ligne = ligne - 1
End If
If Cells(I) = "Manutention" Then
Rows(ligne).Delete
ligne = ligne - 1
End If
If Cells(I) = "Musique" Then
Rows(ligne).Delete
ligne = ligne - 1
End If
If Cells(I) = "Histoire" Then
Rows(ligne).Delete
ligne = ligne - 1
End If
If Cells(I) = "Cheval" Then
Rows(ligne).Delete
ligne = ligne - 1
End If

End Sub

mido je te conseille ce forum pour les questions excel :
http://www.excel-downloads.com/forum/
sinon pour ta macro, perso je fonctionnerai plutot comme ça :
dim i as integer
i=1 (ou le numéro de ta première ligne sur laquelle tu veux executer ta macro)
if range ("I"&i).value="Medical" or  range ("I"&i).value="Mutualité" or etc... then
rows(i).delete
else
i=i+1
end if

ou un truc du style

Dernière modification par Pat O'Beur (16-Nov-10 13:00)

bah quoi?

rien a voir avec dimi le papi du forum j'te rassure!
j'avoue les macros ca a pas trop de tête comme ça, mais pour ceux qui taffent bcp sur excel, c'est magique quand tu sais t'en servir!

merci mec, j'ai posté également sur ce forum

tu peux m'expliquer la différence entre le début de ta macro et la mienne ?

mais copie/colle ma macro, en la complétant avec les autres professions, je pense que ca va marcher.

celle que tototiti t'as mis sur le forum excel-download est bien!
d'ailleurs ca m'a fait pensé que la mienne est incomplète :

Sub mido

dim i as integer
i=1 
while i < 4500
if range ("I"&i).value="Medical" or  range ("I"&i).value="Mutualité" or etc... then
rows(i).delete
else
i=i+1
end if
wend
end sub

le while permet de stopper la macro au bout d'un moment, sinon c'est sans fin.

dimi3 a écrit :

Je n'ai pas la réponse et je ne veux pas noyer ta question, mais si ton ordi a 5-6 ans ça ne vaut pas le coup de changer plutôt que d'investir dans des composants ?
Si tu as une utilisation très basique de l'ordi, il y a des netbooks en entrée de gamme qui devraient faire la blague et t'auras pas de problème de chauffe, ça trace au démarrage, c'est léger.

Disons qu'en ce moment c'est chaud niveau finance et que les ecrans 10' ne m'attirent pas...
Utilisation basique, je joue à FM sinon c'est le web et excel et word rien de special

sur emule la moitié des musiques téléchargées on peut pas les lire ,x3 codec est demandé mais j' ai cru comprendre que c' était un virus ...

une solution a ça à part arreter de télécharger ? 

k@iser a écrit :

emule

Et pourquoi pas Napster, Shareaza ou kazaa ?

explique moi steuplé plutot que de rigoler 

emule c' est de la merde c' est ça ?

c' est quoi les autres je connais pas ...