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

Posts les plus consultés de ce blog

Nom des services Windows en Français et en Anglais

How to determine eigenvalues and eignevectors of a matrix in Excel

Analyse de Fourrier sur Excel