Bonjour,
Je tourne un peu en rondalors 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:
Merci pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager