User Form
Résolu/Fermé
A voir également:
- User Form
- Facebook user ✓ - Forum Facebook Messenger
- User account control - Guide
- Google form - Forum LibreOffice / OpenOffice
- Dummy form - Forum Windows 8 / 8.1
- User appdata - Guide
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
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