Bonjour à tous, tout d'abord, j'espere que je poste sur le bon forum...

Je ne connais pas vraiment visual basic pour excel, mais j'essaye d'automatiser certaines taches sous excel 2000 .
Voilà mon soucis, je récupère des listes d'enregistrement issues d'un terminal téléphonique, chaque ligne correspond à un appel et je dois d'abord supprimer les lignes qui ne m'intéressent pas…
En fait tout ce qui n'est pas identique à "xx" ou "yy" ou "zz"dans la colonne A, je souhaite le supprimer.
J'ai essayer de faire un test if( testvaleur; valeur si vrai;valeur si faux), mais dans la valeur si faux, je ne peux pas supprimer la ligne qui contient ma valeur fausse.

Voilà une partie de mon code:

Ici, je teste pour voir si la cellule contient une valeur numérique ou pas( apres transformation par mes sois…)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Range("A2").Select
ActiveCell.FormulaR1C1 = "=ISNUMBER(RC[2])"
Ici, j'incrémente mon test jusqu'à la ligne 10000
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Selection.AutoFill Destination:=Range("A2:A10000"), Type:=xlFillDefault
la je voudrais spécifier que si ma valeur de résultat est vrai, je garde la ligne, sinon:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Rows("2:2").Select
Selection.Delete Shift:=xlUp
j'espere avoir été suffisament claire dans ma question, merci à vous...