“VBA SÍ NO CAJA” Código de respuesta

VBA SÍ NO CAJA

Dim answer As Integer
answer = MsgBox("Text", vbQuestion + vbYesNo + vbDefaultButton2, "Message Box Title")
If answer = vbYes Then
  MsgBox "Yes"
Else
  MsgBox "No"
End If
Muddy Moose

VBA SÍ NO CAJA

Sub effacerB2()

    If MsgBox("Etes-vous certain de vouloir supprimer le contenu de B2 ?", vbYesNo, "Demande de confirmation") = vbYes Then
        Range("B2").ClearContents
        MsgBox "Le contenu de B2 a été effacé !"
    End If

End Sub
Drab Dog

Respuestas similares a “VBA SÍ NO CAJA”

Preguntas similares a “VBA SÍ NO CAJA”

Más respuestas relacionadas con “VBA SÍ NO CAJA” en VBA

Explore las respuestas de código populares por idioma

Explorar otros lenguajes de código