VbCritical

Pat -  
Patrice33740 Messages postés 8400 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

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

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