Suppression de ligne avec une macro VBA

Bonsoir à tous,

Nouvelle petite question et voici mon code :

Sub SUPPLIGNE()
'
' SUPPLIGNE Macro
'
Dim i As Integer
Dim a As Integer
Sheets("Juillet").Select
'Rows("15:15").Delete Shift:=xlUp

    Do
        i = i + 1
    MsgBox "Non trouve ligne " & i
    Loop While Cells(i, 1) <> "REUNION"

    MsgBox "Trouve ligne " & i
    Rows("i:i").Delete Shift:=xlUp

End Sub

Je comprends pas bien. Ma boucle fonctionne bien, j'ai fait pas mal de test.

Mais quand la condition se réaliser, la ligne ne s'efface pas !!!

En vous remerciant par avance.

Boss92

bonjour,

remplace cette instruction

Rows("i:i").Delete Shift:=xlUp

par celle-ci

Rows(i).Delete Shift:=xlUp

Top. Merci beaucoup.

Ca fonctionne bien mais je comprends pas pourquoi ma commande ne marche pas.

Bonne soirée.

Boss92.

Bonsoir Boss92, h2so4,

tu a écrit :

mais je comprends pas pourquoi ma commande ne marche pas.

car c'est soit : Rows(i & ":" & i).Delete Shift:=xlUp ; soit : Rows(i).Delete Shift:=xlUp

et comme le xlUp est en fait le 1er argument, tu peux raccourcir ainsi :

soit : Rows(i & ":" & i).Delete xlUp ; soit : Rows(i).Delete xlUp

perso, mon préféré est le plus court, donc le dernier.

dhany