XL 2019 copier/coller sous conditions boucle?

[YohanSC]

Bonjour à tous,


J'aimerais executer un copiè/collé en fonction de la collone G dans une plage définie.
Est-ce qu'avec la fonction For each cela est possible?ou Boucle?

lDestLastRow = wsDestT.Cells(wsDest.Rows.Count, "B").End(xlUp).Offset(1).Row
wsCopy.Range("A101:K110").Copy
wsDestT.Range("A" & lDestLastRow).PasteSpecial Paste:=xlPasteValuesAndNumberFormats

Donc l'idée est de dire pour chaque cellule non vide en colonne G dans la plage A101:K110 alors copié la ligne correspondate et collé dansun autre classeur.

Exemple pour une seule cellule :

If Range("G101")<>"" then
lDestLastRow = wsDestT.Cells(wsDest.Rows.Count, "B").End(xlUp).Offset(1).Row
wsCopy.Range("A101:K101").Copy
wsDestT.Range("A" & lDestLastRow).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
else
end if

Merci pour votre aide

 

[YohanSC]

For i = 1 To 10

If wsCopy.Range("g" & i + 100) <> "0" Then

lDestLastRow = wsDestT.Cells(wsDest.Rows.Count, "B").End(xlUp).Offset(1).Row
wsCopy.Range("A" & i + 100, "K" & i + 100).Copy
wsDestT.Range("A" & lDestLastRow).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End If
Next