InputBox True ou False

  • Initiateur de la discussion Initiateur de la discussion Temjeh
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

T

Temjeh

Guest
Bonjour a tout les excelleurs!!!

J'ai ce code je voudrais si possible inserer un message box qui me dit de entrer au moins un nom si InputBox est vide:

Private Sub CommandButton1_Click()

Dim Nom_Fichier
Nom_Fichier = Application.InputBox(prompt:="Entrez le nom du fichier")
Sheets("Model").Copy

Application.Visible = True
Sheets("Model").Visible = True

ActiveWorkbook.SaveAs Filename:= _
"K:\Factures 2004\Programme\Factures\" & Nom_Fichier & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

MsgBox "Votre facture sera créer dans le répertoire: K:\Factures 2004\Programme\Factures\"
YesNo = MsgBox("Voulez-vous éditer le nouveau ?", vbYesNo + vbQuestion, "Caution")
Select Case YesNo
Case vbYes
TextBox1 = ""
MsgBox "Passer maintenant en mode Excel"

UserForm2.Hide
UserForm1.Hide
Case vbNo
MsgBox "*Créer maintenant un autre*"
End Select

End Sub

Merci de bien vouloir m'aide

tres reconaissant

Temjeh
 
Salut

essaies peut-être

Private Sub CommandButton1_Click()

Dim Nom_Fichier
Debut:
Nom_Fichier = Application.InputBox(prompt:="Entrez le nom du fichier")
If Nom_Fichier="" then
Msgbox "Entrer un nom"
Goto Debut

Pascal
 
Allo Temjeh

Essaie :

If InputBox.Value = ""
Else
MsgBox "Vous devez ...!", vbOKOnly + vbInformation
End If


If InputBox.Value <> ""
Else
MsgBox "Vous devez ...!", vbOKOnly + vbInformation
End If

Benoit
 
Bonjour

En fait tu n'as pas besoin du else

J'avais refait un post pour dire que j'avais oublié le end if et en fait il suffit pour eviter ton problème. Mais c'est vrai que je n'ai pas été assez explicite.

Regardes le code sans le Else :

Private Sub CommandButton1_Click()

Dim Nom_Fichier as string
Debut:
Nom_Fichier = Application.InputBox(prompt:="Entrez le nom du fichier")
If Nom_Fichier="" then
Msgbox "Entrer un nom"
Goto Debut
end if
LA suite de ton code ici

Bon courage

Pascal
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
8
Affichages
845
Retour