Suppression de données (formulaire)

Bonjour

J'ai un léger petit souci j'aimerais faire en sorte? que lorsque je clique sur le bouton supprimer de mon formulaire, les données de ma feuille ("BASE DE DONNEE") soit supprimer, auparavant un message doit s'afficher me demandant si je confirme oui ou non la suppression de mes données, sauf que là si je clique sur OUI il me supprime les données et si je clique sur NON, il me supprime les données également. PAS TRÈS COOL

Une âme charitable pour un coup de pouce ?

Private Sub CommandButton3_Click()

If MsgBox("Etes-vous certain de vouloir supprimer la fiche de " & ComboBox1.Text, vbQuestion + vbYesNo) Then

Sheets("BASE DE DONNEE").Rows(ComboBox1.ListIndex + 7).Delete Shift:=xlUp

End If

txtNom.Text = ""

txtPrenom.Text = ""

txtEntreprise = ""

txtAdresse.Text = ""

txtCP.Text = ""

txtVille.Text = ""

txtEmail.Text = ""

txtTelFixe.Text = ""

txtTelPortable.Text = ""

txtFax.Text = ""

txtObservations.Text = ""

Me.ComboBox1 = Clear

UserForm1.Hide

End Sub

Bonjour

Essaie comme ceci :

Private Sub CommandButton3_Click()
Dim rep As Integer
rep = MsgBox("Etes-vous certain de vouloir supprimer la fiche de " & ComboBox1.Text, vbQuestion + vbYesNo)
If rep = vbYes Then
Sheets("BASE DE DONNEE").Rows(ComboBox1.ListIndex + 7).Delete Shift:=xlUp
End if
'.....
End sub

Attention que Userform1.hide est une instruction qui cache l'userform à l'arrière plan. Utilise plutôt Unload userform1

Si ok, clique sur le V vert à coté du bouton EDITER lors de ta réponse afin de cloturer le fil

Cordialement

ton code marche impecc, je me suis creusé les méninges et j'ai ajouté ceci :

If MsgBox("Etes-vous certain de vouloir supprimer la fiche de " & ComboBox1.Text, vbQuestion + vbYesNo) = vbNo Then Exit Sub

et sa fonctionne aussi !

Merci pour l'info sur USERFORM

En tout cas merci de ton aide ultra rapide !