Configuration d'un bouton "SUPPRIMER" dans un UserForm

Pierrot93

XLDnaute Barbatruc

• 29 Septembre 2015

• #2

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

Bonjour,

modifie comme suit :

Code:

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
@+

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 29 Septembre 2015

• #3

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.

 

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 29 Septembre 2015

• #4

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

 

Pièces jointes

• Sans titre 2.jpg

  44.9 KB · Affichages: 62

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 29 Septembre 2015

• #5

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.

 

Vote positif 0 Vote négatif

patouman

XLDnaute Occasionnel

• 29 Septembre 2015

• #6

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

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

Bonjour à la DZ

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 29 Septembre 2015

• #7

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

Bonjour à toi !

 

Vote positif 0 Vote négatif