VBA chercher 2 possibilités

Bonjour,

Voila plusieurs heures que j'essai de trouver une condition et je n'arrive pas à trouver

Ma macro ouvre un fichier, et je voudrais vérifier dans ce fichier si dans la colonne A j'ai :

Soit ça : 180-02

Soit ça : 180-01

nom="180-02"

Set c = Sheets("Report").[A:A].Find(nom, , , xlWhole)

If Not c Is Nothing Then

premier = c.Address ' Je récupère le numéro de la ligne pour une autre utilisation

Do

Set c = Sheets("Report").[A:A].FindNext(c)

dernier = dernier + 1

Loop While Not c Is Nothing And c.Address <> premier

Pourtant la réponse doit être facile mais la je cale .... Haaa les lendemains de fêtes

Merci pour votre aide

Bonsoir

Qu'est ce ne fonctionne pas dans le code ?

Crdlt

Merci pour ton aide

Tout fonctionne bien mais je voudrais qu'il me dise si il a trouver en AA

Soit ça : 180-02

Soit ça : 180-01

Re

Là le code vous dit si vous avez trouvé une valeur car si la variable "dernier" est supérieure à 0 c'est que la valeur existe.

Si vous mettez ceci en dessous de Loop While Not c Is Nothing And c.Address <> premier

Msgbox dernier

Si cela vous renvoie une valeur différente de 0, c'est que la valeur existe

Est-ce cela que vous cherchez ?

J'ai honte

Pourquoi chercher compliqué lorsque la solution est si simple...

Merci de m'avoir aidé

Rechercher des sujets similaires à "vba chercher possibilites"