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