User Form
Résolu/Fermé1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
26 sept. 2011 à 11:26
26 sept. 2011 à 11:26
Bonjour,
Le code (1 et 2 étant des boutons de commande):
Un fichier exemple
Le code (1 et 2 étant des boutons de commande):
Private Sub CommandButton1_Click()
Dim Result As String
Result = InputBox("Saisie du texte : ", "Inputbox 1")
If Result = "toto" Then
MsgBox "vous avez écrit : " & Result
Else
MsgBox "valeur erronée"
End If
End Sub
Private Sub CommandButton2_Click()
Dim Result As String
Result = InputBox("Saisie du texte : ", "Inputbox 2")
If Result = "tata" Then
MsgBox "vous avez écrit : " & Result
Else
MsgBox "valeur erronée"
End If
End Sub
Un fichier exemple
26 sept. 2011 à 11:40