Discussion :

[mehdi.017]

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

[casefayere]

Bonjour,
essayesça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub supprimer_lignes()
Dim i As Integer, j As Integer
 
With Sheets("feuil2")
For i = 2 To .Range("a" & .Rows.Count).End(xlUp).Row
    If UCase(.Range("d" & i)) = "PAYE" Then
        Sheets("Feuil1").Rows(i).Delete 'je mets i parce que ta valeur de "J" est la meme, a toi de changer au besoin
    End If
Next i
End Sub

[Gorfael]

Salut mehdi.017 et le forum

mon prog ne marche pas vmt
je vous montre mon code

Trés précise la description de ton problème.
Comme d'ailleurs les données, mais on va extrapoler : on va admettre que la colonne A des deux feuilles contient un identifiant (au sens base de données).
Tu veux donc que si Dx de Feuil2 est égale à "Payé", tu supprimes la ligne de Feuil1 dont la colonne A est égale à l'identifiant en Ax de Feuil2.
On ne peut pas espérer que les 2 feuilles contiennent le même identifiant à la même ligne : tu ne pourrais utiliser 2 fois la macro, alors pourquoi la faire ? Dans ce cas,le faire à la main, sera plus rapide.

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
Sub supprimer_lignes()
'Déclaration =======================
Dim X As Long, Cel As Range
Dim F1 As Worksheet, F2 As Worksheet
'MEI ===============================
Set F1 = Sheets("Feuil1")
Set F2 = Sheets("Feuil2")
'Traitement ========================
For X = 2 To F2.Range("A" & Rows.Count).End(xlUp).Row
    If F2.Range("D" & X) = "Payé" Then
        Set Cel = F1.Columns(1).Find(F2.Range("A" & X))
        If Not (Cel Is Nothing) Then F1.Rows(Cel.Row).Delete
    End If
Next X
End Sub

Attention : je n'ai pas testé
Si en D on a "Payé" (vérifier l'orthographe et la casse) en F2, on recherche la même valeur que A dans la colonne A de F1. Si elle existe, on supprime la ligne de F1.

Avantage par rapport à ta macro initiale : comme on supprime des lignes, on ne peut assurer la concordance entre les 2 feuilles. En faisant une recherche, on ne s'en occupe pas. on peut la passer autant de fois que nécessaire, après chaque changement dans F1, sans risque de confusion.

Mais ça me semble un peu "bancal" : tu ne peux pas recharger F2, puisque c'est la seule trace des lignes ayant été effacées en F1. Il serait plus logique que la feuille F1 soit la feuille de "travail" et la feuille F2 soit "l'historique", et donc qu'on ne puisse modifier que la feuille F1 et que la modification d'une cellule en D déclenche le transfert de la ligne de F1 en F2.
A+