bonjour
j'ai un autre souci
j'ai deux feuille qui contiennent les memes infos sauf que la feuille 2 indique payé ou non sur la ligne
ce que je voudrai faire c supprimer les lignes de la feuille 1 qd la colonne 4 (payé ou non ) de la feuille 2 indique que c payé
comment pourrai je faire
mon prog ne marche pas vmt
je vous montre mon code
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
20
21
22
23
24 Sub supprimer_lignes() i = 2 j = 2 Do While Feuil2.Cells(i, 1) <> "" If Feuil2.Cells(i, 4).Value <> "Non payé" Then Feuil1.Rows(j & ":" & j).Delete Shift:=xlUp j = j + 1 GoTo line1: End If line1: i = i + 1 Loop End Sub
merci pour votre aide
Partager