Code pour supprimer des données sur des colonnes définies

Bonjour,

Je souhaiterais programmer un code pour userform afin de supprimer des données d'une ligne sur un nombre de colonnes définies. J'ai déjà tenté d'en faire un (voir ci-dessous) mais ça ne fonctionne pas. Ça bloque au niveau de "Set c"

Quelqu'un aurait-il une solution svp ?

Private Sub cmdsupprimer_Click()
'Bouton supprimer
1: With ActiveSheet.Columns(1)
    Set c = .Find(zlmimmatriculation.Value, LookIn:=xlValues)
    If Not c Is Nothing Then
            Range("A" & c.Row & ":H" & c.Row).Delete Shift:=xlUp
            GoTo 1
    End If
End With

End Sub

Merci d'avance.

NSAPURPAN

Salut,

peux-tu joindre un fichier-exemple avec les critères de suppression.. qu'on puisse éviter cet horrible GOTO ?!

Bon dimanche!

A+

Bonjour curulis57,

Voilà un fichier exemple :

J'aimerais pouvoir à partir d'un bouton supprimer lié à une macro, supprimer les lignes des colonnes A,B que l'on choisirais en se plaçant sur le numéro d'une ligne.

De plus lorsqu'on appuie sur le bouton supprimer, j'aimerais avoir un message me demandant de confirmer la suppression.

En vous remerciant par avance,

NSAPURPAN

Salut NsaPurpan,

si j'ai bien compris ta demande, voilà!

Tu cliques sur une des deux cellules en colonne A ou B ==> message de confirmation de suppression de la ligne A > H ===> suppression si OUI.

Est-ce bien cela que tu voulais ?

A+

RE curulis57,

Alors c'est pas tout à fait ce que je souhaite faire mais on s'en approche, en fait :

Je clique sur une ligne de la colonne A et j'appuie sur le bouton supprimer. Là, il y à un message "Confirmez vous la suppression des données" et si je clique sur OUI alors cela me supprime les données de la ligne correspondante uniquement sur les colonnes A et B.

Voilà, j'espère que c'est assez clair.

Je te remercie par avance pour ton aide.

NSAPURPAN

Dis, franchement? Tu pouvais y arriver tout seul, non ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If Not Application.Intersect(Target, Range("A")) Is Nothing Then
    iRep = MsgBox("Confirmez-vous la suppression de cette ligne de données ?", vbYesNo, "Autorisation")
    If iRep = 6 Then
        Range("A" & Target.Row & ":B" & Target.Row).Delete shift:=xlUp
    End If
End If
'
End Sub

A+