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