Discussion :

[billy255]

bonjour ,

comment imbriquer la boucle qui parcoure la plage de cellule avec une boucle copier coller (noms que j'ai choisi moi même)

je vous remercie d'avance

[XLRATOR]

Bonjour,
Essayez avec ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim rng As Range
For Each rng In Sheets("NomDeLaFeuilleSource").Range("PlageSource").Cells
If rng = "VotreNomCritére" Then
Sheets("NomDeLaFeuilleDestination").Range("CelluleLaPlusEnBasDeLaColonneDeDestination").End(xlUp).Offset(1, 0).Value = rng.Value
End If
Next
MsgBox "C'est fait."

Cordialement.
Karim