Recherche
Recherche
Les mémos
Je débute...
Visites

 997939 visiteurs

 1 visiteur en ligne

FAQ
Déplier Fermer  Comment faire...

Utiliser la fonction StrPtr() qui renvoie l'adresse de la variable

Dim sInput As String
sInput = InputBox("Allons y ... testez-moi", "Demo InputBox")

If StrPtr(sInput) = 0 Then
    MsgBox "Vous avez annulé..."
Else
    If Len(sInput) = 0 Then
        MsgBox "Vous avez appuyé sur OK, mais sans saisie."
    Else
        MsgBox "Vous avez appuyé sur OK, la valeur est : " & sInput
    End If
End If


Dernière modification :02/02/2007 : 07:12 Hyperlien