Discussion :

[nubed]

Bonjour à tous,

Je butte sur une macro malgré des post quasi-identique sur ce forum.

Je cherche à copier, coller et supprimer une ligne sous condition (colonne T) de la feuil1 vers la feuil2.

La feuil1 s’alimente quotidiennement, la feuil2 sert d’historique des lignes répondant à la condition de la feuil1.

Voici mon code qui marche, seul hic la suppression des lignes sous condition se fait en plusieurs fois et non en 1 seule éxécution.
Exemple :
ligne 1 condition
Ligne 2 condition
Ligne 3 pas condition
Ligne 4 conditon

Je dois donc exécuter la macro deux fois pour que mes 3 lignes soient bien reportées.

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
Sub Copier()
 
Dim x As Long
Dim y As Long
Dim c As Range
Dim rdata As Range
 
x = Feuil1.Range("A65536").End(xlUp).Row
y = Feuil2.Range("A65536").End(xlUp).Row + 1
 
Set rdata = Feuil1.Range("T2:T" & x)
 
For Each c In rdata
  If c.Value = "ok" Then
    Feuil1.Range("A" & c.Row & ":T" & c.Row).Copy Destination:=Feuil2.Range("A" & y)
    Feuil1.Range("A" & c.Row & ":V" & c.Row).EntireRow.Delete
 
  End If
  y = Feuil2.Range("A65536").End(xlUp).Row + 1
 
Next c
 
End Sub

Merci d’avance
Christophe

[Pierre Fauconnier]

Salut.

Lorsque tu supprimes des lignes, tu dois commencer par le bas de ton tableau, sinon, tu vas "sauter" la ligne qui suit la ligne que tu viens de supprimer, puisqu'elle monte d'une ligne suite à la suppression.

Exemple.
Tes lignes 8 et 9 doivent être supprimées car elles répondent à la condition.
Lorsque tu vas supprimer la 8, toutes les lignes suivantes vont remonter d'un numéro. Ta ligne 9 devient donc la ligne 8. Puis ta boucle passe à la "nouvelle" ligne 9. La ligne 9 initiale (qui est devenue la 8) n'est donc pas testée lors de cette passe. C'est pourquoi tu dois lancer ta macro plusieurs fois.

En commençant à supprimer par le bas, tu n'as pas ce décalage.

[gnain]

Bonjour,
Oui par le bas, très bonne remarque
ou

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 test()

Dim y As Long
y = Feuil2.Range("A65536").End(xlUp).Row + 1

For i = 2 To Feuil1.Range("A" & Rows.Count).End(xlUp).Row
    If Cells(i, 20).Value = "ok" Then
        Feuil1.Range("A" & i & ":T" & i).Copy Destination:=Feuil2.Range("A" & y)
        Feuil1.Range("A" & i & ":V" & i).EntireRow.Delete
       i = i - 1
    End If
    y = Feuil2.Range("A" & Rows.Count).End(xlUp).Row + 1
Next

End Sub

[Pierre Fauconnier]

Oui. Tu vas juste boucler x fois de trop (x correspondant au nombre de cellules qui correspondent à la condition de suppression). Ce ne sera vraiment gênant que si tu as (vraiment) beaucoup de lignes à traiter avec à l'intérieur beaucoup de lignes à supprimer...

[nubed]

Ah pourtant c'était bien (vos explications) dans les autres posts similaires

Merci pour vos réponses.

Mon code final :

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
Sub copy()
 
Dim y As Long
Dim i As Long
 
x = Feuil1.Range("A65536").End(xlUp).Row
y = Feuil2.Range("A65536").End(xlUp).Row + 1
 
For i = 2 To Feuil1.Range("A" & Rows.Count).End(xlUp).Row
    If Cells(i, 22).Value = "oui" Then
        Feuil1.Range("A" & i & ":V" & i).Copy Destination:=Feuil2.Range("A" & y)
        Feuil1.Range("A" & i & ":V" & i).EntireRow.Delete
       i = i - 1
    End If
    y = Feuil2.Range("A" & Rows.Count).End(xlUp).Row + 1
Next
 
End Sub

Bon week end à tous