bonsoir, je voudrais connaitre dans une colonne selectionnée toutes les lignes où "machaine" apparaît; je voudrais faire avec la fonction find plus rapide qu une boucle systematique
Code :
- Sheets("FProg1" ).Activate
- Columns("D:D" ).Select
- Dim a As Range
- Set a = Selection.Find(What:="machaine", After:=ActiveCell, LookIn:=xlValues, _
- LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
- MatchCase:=True, SearchFormat:=False)
- Do Until a Is Nothing
- NUM_LIG_EN_PLUS = a.Row
- Set a = Selection.FindNext(After:=ActiveCell)
- Loop
|
ça ça marche pas, je reste sur mon premier trouvé ...
Message édité par bill751 le 02-01-2006 à 22:54:07