More

    Comment utiliser MsgBox et InputBox dans VBA pour une meilleure interaction

    Dim response As Integer
response = MsgBox(“Are you sure you want to continue?”, vbYesNo + vbQuestion, “Confirm”)

If response = vbYes Then
    MsgBox “You chose Yes!”, vbInformation, “Result”
Else
    MsgBox “You chose No!”, vbExclamation, “Result”
End If

    Apprendre à connaître la zone de saisie dans VBA

    Input Box (InputBox) est une fonctionnalité de VBA (Visual Basic for Applications) qui permet aux utilisateurs de saisir des données sous forme de texte ou de chiffres via une simple fenêtre de dialogue. InputBox est souvent utilisé pour demander des informations aux utilisateurs, telles que des noms, des numéros, des dates ou d’autres données requises dans le traitement VBA.

    Syntaxe de base d’InputBox

    La syntaxe de base pour l’affichage des InputBox en VBA est la suivante :

    Dim userName As String
userName = InputBox(“Enter your name :”,”Input Data”)
MsgBox “Hello,” &userName “ !”

    Explication du code :

    1. InputBox affichera une boîte de dialogue avec le texte “Enter your name :”.
    2. Les données saisies par l’utilisateur seront stockées dans la variable userName.
    3. MsgBox affichera le message d’accueil « Bonjour, [nom saisi] ! »!– /wp:list-item –>

    Autres articles intéressants

    Spécification de la valeur par défaut dans l’InputBox

    Vous pouvez définir la valeur par défaut dans InputBox pour fournir un exemple de l’entrée attendue.

    Exemple de code avec des valeurs par défaut :

    Dim city As String
city = InputBox(“Enter your city name :”“,”Input Data”,”Jakarta”)
MsgBox “You live in “ & city “ !”

    Explication:

    • “Jakarta”“ apparaîtra comme texte par défaut dans le InputBox.
    • Les utilisateurs peuvent modifier ou appuyer directement sur OK pour utiliser la valeur par défaut.

    Validation des entrées à partir de l’InputBox pour s’assurer que les données d’entrée sont correctes

    Étant donné que InputBox ne reçoit que des données saisies sous forme de texte, il est important de vérifier que les données saisies sont conformes aux attentes.

    Exemple de validation des entrées pour qu’elles ne soient pas vides :

    Dim userInput As String
userInput = InputBox(“Enter your email:”, “Input Email”)

If userInput = ““ Then
            MsgBox “Input cannot be empty!”, vbExclamation, “Warning”
Else
            MsgBox “The email you entered: “ & userInput, vbInformation, “Confirmation”
End If

    Explication:

    • Si l’utilisateur appuie sur OK sans renseigner les données, un avertissement apparaîtra.
    • S’il y a une entrée valide, une confirmation apparaîtra avec les données saisies.

    Un exemple de validation d’entrée n’accepte que les nombres :

    Dim age As String
age = InputBox(“Enter your age:”, “Input Age”)

If IsNumeric(age) Then
            MsgBox “Your age is “ & age & “ years.”, vbInformation, “Confirm”
Else
            MsgBox “Please enter a valid number!”, vbCritical, “Error”
End If

    Explication:

    • IsNumeric() est utilisé pour vérifier si l’entrée est un nombre.
    • S’il ne s’agit pas d’un numéro, un avertissement d’erreur apparaîtra.

    Dernières articles

    Articles Connexes