VbCritical

Pat -  
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   -
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Pouvez preciser un peu plus??
0
Réponse 2 / 2
Pat
 
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 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
bonjour, moi j'essaierais ainsi: 
MsgBox("Voulez-vous supprimer " & sel.Value & " ?", vbYesNo+vbCritical, "Suppression matricule")
0
Pat
 
réponse : erreur de compilation
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > Pat
 
le code précédent ne donnait pas d'erreur? peux-tu montrer avant/après?
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
C'est mieux sans les parenthèses : 
MsgBox "Voulez-vous supprimer " & sel.Value & " ?", vbYesNo + vbCritical, "Suppression matricule"
0