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.
@+
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
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" a écrit dans le message de news:
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. @+
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.
@+
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" a écrit dans le message de news:
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
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 de ta réponse.
Annuler fonctionne bien, cependant je ne retourne pas à ma page "menu" si il y a "annuler"
Comment faire.
Merci
@+
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 @+
Jacky
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" a écrit dans le message de news:
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
@+
'--------------- 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" a écrit dans le message de news:
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
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 à 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 @++
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 @++
Gloops
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. @+
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.
@+
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. @+
