Supprimer une ligne

[apdf1]

Bonjour,

Je suis a la recherche de supprimer la ligne sans supprimer la colonne "A".
Voici mon code

' Supprimer
Private Sub CommandButton3_Click()
    If ComboBox1.ListIndex <> -1 Then
        Sheets("adherents").Cells(ComboBox1.ListIndex + 2, 2).EntireRow.Delete
        Unload Me
    End If
End Sub

Un très grand merci à tout ceux qui pourront m'aider...

Cordialement

Max

 

[Grand Chaman Excel]

Re : Supprimer une ligne

Bonsoir adpf1,

Quelque chose comme ça peut -être :

Sheets("adherents").Range("B" & combobox1.ListIndex + 2).Resize(1, Application.Columns - 1).Delete shift:=xlUp

A+