VbCritical

Pat -  
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

  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
    1. yg_be Contributeur
      bonjour, moi j'essaierais ainsi: 
      MsgBox("Voulez-vous supprimer " & sel.Value & " ?", vbYesNo+vbCritical, "Suppression matricule")
    2. Pat
      réponse : erreur de compilation
    3. yg_be Contributeur
      @Patle code précédent ne donnait pas d'erreur? peux-tu montrer avant/après?
    4. Patrice33740
      C'est mieux sans les parenthèses : 
      MsgBox "Voulez-vous supprimer " & sel.Value & " ?", vbYesNo + vbCritical, "Suppression matricule"