Annulation InputBox
Simon
-
Simon -
Simon -
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
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
1 réponse
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.
Cdt
Lupin
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
effectivement il me suffisait de passer mes variable en type variant
Merci et peut étre á bientót :-)