Copier et coller sur autre feuille des lignes en fonction de la valeur d'une cellule
Bonjour,
Je tourne un peu en rond :mur: alors je viens chercher un peu d'aide.
J'ai mon onglet"VE" ou j'ai toutes mes données que je voudrai copier en "Feuil5" selon condition (la valeur recherché est "ESP" dans la colonne 50.
Si en "VE" (les données commencent en ligne 3 (ligne1= totaux et ligne2 =titres)) la cellule de la colonne 50 à la valeur "ESP" alors copie la ligne de la colonne 1 à 5 sur la feuille "Feuil5"
Le tableau en "VE" est saisi toutes les semaines et comporte pour le moment 326 lignes.
Je voudrai une copie (sans effacement) des 5 premières colonnes de "VE" dans "Feuil5" au fur et à mesure de la saisie, et surtout sans doublon.
J'ai ce début de code mais je bloque:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Sub TriESP()
Sheets("VE").Select
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
For x = 1 To FinalRow
ThisValue = Cells(x, 50).Value
If ThisValue = "ESP" Then
Cells(x, 1).Resize(1, 5).Copy
Sheets("Feuil5").Select
NextRow = Cells(Rows.Count, 1).End(x1Up).Row + 1
Cells(NextRow, 1).Select
ActiveSheet.Paste
Sheets("VE").Select
End If
Next x
End Sub |
Merci pour votre aide