MACRO AVEC UN CRITERE DE COPY

[post prod]

Bonjour a tous voila mon petit probleme
j'ai dans fichier une macro pour copier des informations d'une feuille vers une autre
macro : range ("j7:j" . cells ( application.rows.count,3.end (x1up) . row. copy sheets ("avril"). range ("c20")
la colonne j se copy dans la feuille avril jusque la pas de probleme
mais je voudrai que seule les cellules de la colonne J contenant le mot "payé" se copy dans avril
merci d'avance pour vos reponses

 

[Lone-wolf]

Bonjour post prod

Sans fichier, impossible de faire le test et voir le résultat. Sinon un truc du genre

With Feuil1
derlig = .Cells(Rows.Count, "J").End(xlUp).Row
For i = 2 To derlig
If .Cells(i, "J") Like "*payé*" Then
.Cells(i, "J").Copy Sheets ("avril"). range ("c20")
End If
Next i
End with

Oubien

With ActiveSheet
derlig = .Cells(Rows.Count, "J").End(xlUp).Row
x = 19
For i = 2 To derlig
If .Cells(i, "J") Like "*payé*" Then
x = x + 1
.Cells(i, "J").Copy Sheets("avril").Range("c" & x)
End If
Next i
End With