Sujet Précédent Sujet Suivant

VbCritical

Fermé
Pat - 7 juil. 2019 à 10:41
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 7 juil. 2019 à 22:39
Bonjour,

comment rajouter à votre premier code "vbCritical et un point d'interrogation à la fin de la question.
Merci

Configuration: Windows / Firefox 67.0

2 réponses

Réponse 1 / 2
f894009 Messages postés 17239 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 10 février 2025 1 713
7 juil. 2019 à 10:48
Bonjour,

Pouvez preciser un peu plus??
0
Réponse 2 / 2
Pat
7 juil. 2019 à 10:52
Dans la MsgBox rajouter l’icône vbCritical ainsi qu'un point d'interrogation dans ce code : Private Sub Worksheet_BeforeDoubleClick(ByVal sel As Range, Cancel As Boolean)
If vbYes = MsgBox("Voulez-vous supprimer " & sel.Value, vbYesNo, "Suppression matricule") Then
Rows(sel.Row).Delete
End If
End Sub
0
yg_be Messages postés 23467 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 14 février 2025 1 568
7 juil. 2019 à 11:01
bonjour, moi j'essaierais ainsi: 
MsgBox("Voulez-vous supprimer " & sel.Value & " ?", vbYesNo+vbCritical, "Suppression matricule")
0
Pat
7 juil. 2019 à 11:07
réponse : erreur de compilation
0
yg_be Messages postés 23467 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 14 février 2025 1 568 > Pat
7 juil. 2019 à 12:21
le code précédent ne donnait pas d'erreur? peux-tu montrer avant/après?
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
Modifié le 7 juil. 2019 à 22:40
C'est mieux sans les parenthèses : 
MsgBox "Voulez-vous supprimer " & sel.Value & " ?", vbYesNo + vbCritical, "Suppression matricule"
0