Configuration d'un bouton "SUPPRIMER" dans un UserForm

[Toubabou]

Bonjour à tous,

Dans un UserForm j'ai un bouton supprimer, dont le code est:
CODE: TOUT SÉLECTIONNER

Private Sub Supprimer_SPV_Click()
If MsgBox("ETES-VOUS CERTAIN DE VOULOIR SUPPRIMER LA FICHE? " & Box1.Text & " " & Box2.Text, vbQuestion + vbYesNo) Then
Sheets("SIGNALETIQUE").Rows(Box1.ListIndex + 2).Delete Shift:=xlUp
End If
End Sub

Suis à l'apparition du message de confirmation je clique sur "NON" la ligne et tout de même supprimée.
Pourriez vous me dire où est mon erreur?

Amicalement,
Toubabou

 

[Pierrot93]

Re : Configuration d'un bouton "SUPPRIMER" dans un UserForm

Bonjour,

modifie comme suit :

Private Sub Supprimer_SPV_Click()
If MsgBox("ETES-VOUS CERTAIN DE VOULOIR SUPPRIMER LA FICHE? " & Box1.Text & " " & Box2.Text, vbQuestion + vbYesNo) = vbYes Then
Sheets("SIGNALETIQUE").Rows(Box1.ListIndex + 2).Delete Shift:=xlUp
End If
End Sub

bon après midi
@+

 

[13GIBE59]

Re : Configuration d'un bouton "SUPPRIMER" dans un UserForm

Bonjour Toubabou.

Essaie plutôt ça :

Private Sub Supprimer_SPV_Click()
resp = MsgBox("ETES-VOUS CERTAIN DE VOULOIR SUPPRIMER LA FICHE? " & Box1.Text & " " & Box2.Text, vbQuestion + vbYesNo)
If resp = vbOK Then
Sheets("SIGNALETIQUE").Rows(Box1.ListIndex + 2).Delete Shift:=xlUp
Else : Exit Sub
End If
End Sub

Edit : salut Pierrot.

 

[Toubabou]

Re : Configuration d'un bouton "SUPPRIMER" dans un UserForm

Bonjour à vous deux,
La solution de Pierrot93 fonctionne parfaitement, un grand Merci
Par contre la solution de 13GIBE59, un petit soucis:


Amicalement,

Toubabou

 

[13GIBE59]

Re : Configuration d'un bouton "SUPPRIMER" dans un UserForm

Bizarre, chez moi, sur un autre fichier, la procédure fonctionne.
Le principal, c'est que tu aies la solution.

 

[patouman]

Re : Configuration d'un bouton "SUPPRIMER" dans un UserForm

Ben alors JB, on donne des fausses pistes ????

Bonjour à la DZ

 

[13GIBE59]

Re : Configuration d'un bouton "SUPPRIMER" dans un UserForm

Bonjour à toi !