Utilisation des fonctions InputBox et msgBox en VBA
Toutes les utilisations possibles des fonctions InputBox et msgBox pour interagir avec l'utilisateur.
Code source
Option Explicit
Sub test1()
Dim nom As String
nom = InputBox("Donner votre nom")
Debug.Print "nom tappé: " & nom
End Sub
Sub test2()
Dim nom As String
nom = InputBox("Donner votre nom", "EMI", "Mohamed")
If nom = "" Then
MsgBox "Attention nom vide"
Else
Debug.Print "nom tappé: " & nom
End If
End Sub
Sub test3()
Dim nom As String
Dim reponse As Integer
Dim cond As Boolean
cond = True
Do While cond
nom = InputBox("Donner votre nom", "EMI", "Mohamed")
If nom = "" Then
reponse = MsgBox("Attention nom vide, vous voulez réessayer?", _
vbYesNo + vbInformation + vbDefaultButton2 + vbMsgBoxHelpButton, "EMI")
' If reponse = vbYes Then
' cond = True
' Else
' cond = False
' End If
cond = IIf(reponse = vbYes, True, False)
Else
Debug.Print "nom tappé: " & nom
cond = False
End If
Loop
End Sub
Sub test4()
Dim nom As String
Dim reponse As Integer
Dim cond As Boolean
cond = True
Do While cond
nom = InputBox("Donner votre nom", "EMI", "Mohamed", 100, 100)
If nom = "" Then
reponse = MsgBox("Attention nom vide", _
vbRetryCancel + vbInformation + vbDefaultButton2 _
+ vbMsgBoxHelpButton + vbSystemModal + vbMsgBoxRtlReading, "EMI")
' If reponse = vbYes Then
' cond = True
' Else
' cond = False
' End If
cond = IIf(reponse = vbRetry, True, False)
Else
Debug.Print "nom tappé: " & nom
cond = False
End If
Loop
End Sub
Commentaires