Re: rechercher et dupliquer
Bonsoir Arnaud,
Tu trouveras en pièce jointe un petit exemple qui devrait répondre à ton problème si je l'ai bien compris :
================================================== ===
Private Sub CommandButton1_Click()
For Each Cel In Intersect(UsedRange, Range("K:L"))
If Cel = "oui" Or Cel = "non" Or Cel = "?" Then Intersect(Cel.EntireRow, Range("A:A")) = Cel
Next Cel
End Sub
================================================== ===
Bien entendu, les Ranges "K:L" et/ou "A:A" peuvent être adaptés.
Cordialement
Omicron.
|