Comment parcourir une selection ligne par ligne par rechercher une valeur?
for i=premiere ligne to selection.rows.count
    if sheets(1).cells(i,3)="moi" then msgbox i  
    i=i+1
next
le problème est la définition de la premiere ligne et si j'ai une selection à plusieurs zones comme Worksheets(1).Range("A1:H5,A10:H15" ).

 
Bonjour,
 
En définissant une sélection multiple dans une feuille de calcul et en l'affectant à un objet range puis en parcourant toutes les cellule de cet objet range, cela devrait à peu près répondre à ta demande, voir ci dessous:
 
Sub Macro1()
Dim MaZone As Range
Dim MaCellule As Variant
 
    Range("B3:B8,D9:D16,F10:F16" ).Select
    Range("F10" ).Activate
    ActiveWorkbook.Names.Add Name:="MonSelect", RefersToR1C1:= _
        "=Feuil1!R3C2:R8C2,Feuil1!R9C4:R16C4,Feuil1!R10C6:R16C6"
Set MaZone = Sheets("feuil1" ).Range("MonSelect" )
    For Each MaCellule In MaZone
        Debug.Print MaCellule.Value
    Next MaCellule
End Sub  
 
N'hésite pas si cela ne colle pas.
 
Cordialement
 
Pifa

ca marche merci