inputbox et le cancel

Question

Bonjour,
voila j'aimerais que la question soit repeter tant qu'il n'y a rien de saisis mais bien sur que le inputbox arrete de s'afficher si on appuit sur cancel.
Voila mon code :

nom = InputBox("Saisir le nom ")Do While nom_OU_ajouter "" or nom empty
     If nom = empty
         GoTo fin
     ElseIf nom = "" Then
         nom = InputBox("Saisir le nom ")
     End If
Loop

Et dans cet exemple a tout les coup il rentre dans la condition : if nom = empty

J'ai esseyais avec des vbcancel = 2 mais si j'ai bien vu sur les forum c'est plutot pour les msgbox bref.
Merci d'avance )

cs_Jack · Answer

Salut tomsower 
En effet, "empty" écrit comme ça ne doit pas être reconnu par vb (ou du moins comme une variable) --> vbEmpty (de mémoire)
(il manque le Then après "If nom = empty")

Astuce : En t^te de chaque feuille ou module, ajoute "Option Explicit" : ça t'obligera à dimensionner tes variables, c'est chiant au début, mais on s'y habitue vite et tu détecteras beaucoup plus facilement les erreurs

Vala
Jack

cs_rene38 · Answer

Bonsoir
Ou bien : Outils => Options => Editeur 
cocher 'Déclaration des variables obligatoire'
et le 'Option Explicit' sera automatiquement ajouté en tête de chaque nouvelle feuille iu nouveau module.

Tomsower · Answer

euh en faite le then oublier c'est moi qui est mal recopier..desole p
Mais en fait si j'ai bien compris c'est que le cancel renvoit une chaine vide mais si on veut une boucle qui oblige l'utilisateur a remplir le champ (sauf s'il click sur cancel) alors ce n'est pas possible. En gros écrire :if nom "" et if nom empty revient au meme je me trompe ? en tout cas mon exemple en haut ne marche meme avec le then  :)
Merci quand meme )

cs_rene38 · Answer

Bonsoir
Peut-être une solution :
on initialise Nom à " " (un espace) en utilisant l'argument 'Default' (3ème argument) de l'InputBox
Cet espace est sélectionné si bien que si on saisit un texte, ce texte remplace l'espace.
Si on clique sur OK sans saisie, Nom est toujours un espace et on boucle (Loop)
Si on clique sur Cancel, l'InputBox renvoie une chaîne vide (donc différente d'un espace) et on sort. Dans ce cas, il faut peut-être prévoir un Nom par défaut (Inconnu par exemple).

Dim Nom As String
Do
    Nom = InputBox("Saisir le nom", , " ")
Loop While Nom = " "If Nom "" Then Nom "Inconnu"

Tomsower · Answer

ah oui pas bete merci :) j'essayerais )

Inputbox et le cancel

5 réponses

Discussions similaires