Annulation InputBox

Question

Bonjour, 

J'ai cherché et trouvé qu'une input box renvoie une chaine de caractére vide quand on clique sur Annuler.

Mon probléme est qu'il apparait une error : run time 13 type mismatch, quand je lance ma macro.

j'ai essayé de mettre un "type := 1"  á la fin de mon inputbox mais quand je fais ca j'ai une erreur de compilation.

Pourriez Vous m'aider Svp ?

PS : je suis un peu nul en programmation donc si vous pouviez utiliser des termes faciles á comprendre, merci :-)
PS2 : je suis en Angleterre donc pas beaucoup d'accent ni de cédille, donc désolé pour les fautes d'orthographe.

Merci

Utilisateur anonyme · Answer

Bonjour, 

Il te faut considérer l'entrée comme étant de type Variant, 
et convertir (démotion) vers un type String. 

N'oublie pas que lors de la saisie, l'utilisateur peut saisir 
n'importe quel touche, or il est souhaitable de contrôler 
la saisie. 


Sub SaisieDatas() 

    Dim varEntree As Variant, strEntree As String 
     
    varEntree = InputBox("Saisie :", "Saisie de données ", "Lupin") 
     
    If varEntree <> "" Then 
        MsgBox "Différent de Vide" 
        strEntree = CStr(varEntree) 
        MsgBox strEntree 
    Else 
        MsgBox "Vide" 
    End If 
     
End Sub 
' 


Cdt 

Lupin

Annulation InputBox

1 réponse

Discussions similaires

Newsletters