Bonjour à tous,
J'ai un petit souci de selection.
Voici mon code
Code :
- Sub Test()
- For I = 1 To Range("AC2", Range("AC2" ).End(xlDown)).Cells.Count Step 1
- If Sheets("CodeStationHN" ).Range("B2:B52" ).Find(what:=Range("AC2", Range("AC2" ).End(xlDown)).Cells(I).Value) Is Nothing Then
- Range("AC2", Range("AC2" ).End(xlDown)).Cells(I).EntireRow.Select Replace:=False
- End If
- Next
- End Sub
|
J'ai une erreur à la ligne 5
Lorsque j'enléve le Replace:=False à la fin, la macro marche bien mais me selectionne mes lignes les unes aprés les autres sans tenir compte des précédentes. Donc en mettant Replace:=False cela devrait marcher ... mais non lol.
J'arrive pas à piger pourquoi.
Avez-vous une idée ?
Message édité par GohanSSj2 le 03-05-2010 à 16:08:43