InputBox

Bonjour,
'--------------
Sub jj()
fournisseur = InputBox("Fournisseur?", "Fournisseur")
If fournisseur = "" Then Exit Sub
Range("f3").Value = fournisseur
'ou
'Shetts("nomDeLaFeuille").Range("f3").Value = fournisseur
'Si la feuille en question n'est pas le feuille initiale
End Sub
'--------------

--
Salutations
JJ


"man77" <nospam_ejacquet@guinot.com.invalid> a écrit dans le message de news:
wq-dnSJIuJ1fuFzT4p2dnAA@giganews.com...

Bonjour,
Je souhaite programmer le "annuler" de ma intputbox. Je souhaiterais mettre fin
au programme et retourner à ma feuille initiale.
Quelqu'un peut-il m'aider?
Voilà ce que j'ai écris :

fournisseur = InputBox("Fournisseur?", "Fournisseur")
Range("f3").Value = fournisseur
If Len(fournisseur) = "" Then
Sheets("menu").Select
Exit Sub
End If

Le problème est que que je doit tapez un espace pour annuler...
Merci.
@+

man77 a écrit le 14/11/2011 à 15h29 :

Bonjour,
Je souhaite programmer le "annuler" de ma intputbox. Je souhaiterais
mettre fin au programme et retourner à ma feuille initiale.
Quelqu'un peut-il m'aider?
Voilà ce que j'ai écris :

fournisseur = InputBox("Fournisseur?", "Fournisseur")
Range("f3").Value = fournisseur
If Len(fournisseur) = "" Then
Sheets("menu").Select
Exit Sub
End If

Le problème est que que je doit tapez un espace pour annuler...
Merci.
@+

Merci de ta réponse.
Annuler fonctionne bien, cependant je ne retourne pas à ma page "menu" si il y a "annuler"
Comment faire.
Merci
@+

Re...

...cependant je ne retourne pas à ma page "menu"

'---------------
Sub jj()
fournisseur = InputBox("Fournisseur?", "Fournisseur")
If fournisseur = "" Then
Sheets("menu").Select
Exit Sub
End If
Range("f3").Value = fournisseur
End Sub
'--------------

--
Salutations
JJ


"man77" <nospam_ejacquet@guinot.com.invalid> a écrit dans le message de news:
r_idnU_zM_o-rlzT4p2dnAA@giganews.com...

man77 a écrit le 14/11/2011 à 15h29 :

Bonjour,
Je souhaite programmer le "annuler" de ma intputbox. Je souhaiterais
mettre fin au programme et retourner à ma feuille initiale.
Quelqu'un peut-il m'aider?
Voilà ce que j'ai écris :

fournisseur = InputBox("Fournisseur?", "Fournisseur")
Range("f3").Value = fournisseur
If Len(fournisseur) = "" Then
Sheets("menu").Select
Exit Sub
End If

Le problème est que que je doit tapez un espace pour annuler...
Merci.
@+

Merci de ta réponse.
Annuler fonctionne bien, cependant je ne retourne pas à ma page "menu" si il y
a "annuler"
Comment faire.
Merci
@+

man77 a écrit le 14/11/2011 à 15h29 :

Bonjour,
Je souhaite programmer le "annuler" de ma intputbox. Je souhaiterais
mettre fin au programme et retourner à ma feuille initiale.
Quelqu'un peut-il m'aider?
Voilà ce que j'ai écris :

fournisseur = InputBox("Fournisseur?", "Fournisseur")
Range("f3").Value = fournisseur
If Len(fournisseur) = "" Then
Sheets("menu").Select
Exit Sub
End If

Le problème est que que je doit tapez un espace pour annuler...
Merci.
@+

Merci.
Problème résolu.
Il fallait juste que j'inverse ma condition.
Merci et @++

man77 a écrit, le 14/11/2011 15:29 :

Bonjour,
Je souhaite programmer le "annuler" de ma intputbox. Je souhaiterais me ttre fin
au programme et retourner à ma feuille initiale.
Quelqu'un peut-il m'aider?
Voilà ce que j'ai écris :

fournisseur = InputBox("Fournisseur?", "Fournisseur")
Range("f3").Value = fournisseur
If Len(fournisseur) = "" Then

Syntax error :

Len(fournisseur) est un entier
"" est une chaîne de caractères

Donc, ils ne peuvent pas être égaux.

On peut avoir
fournisseur = ""
ou
Len(fournisseur) = 0

Il faut choisir.

Sheets("menu").Select
Exit Sub
End If

Le problème est que que je doit tapez un espace pour annuler...
Merci.
@+