Message si feuille inexistante Le 24/02/2016 à 18:52reinruof77Membre fidèleMessages466Excel2010Inscrit10/03/2014 Bonsoir a tousvoila tout est dans le titre dans mon userform j'ai des bouton qui dirige directement vers la feuille qui vons etre creer au fur et a mesure .je voudrais rajouter (a la place d'une erreur ) un message "veuillez créer la feuille) et les diriger vers le formulaire de saisie.Merci de votre aideLe 24/02/2016 à 19:13dd3jsJeune membreMessages19Excel2013 FRInscrit01/12/2015Bonsoir,Un simple Msgbox "ton message" fera l'affaire non ?Cordialement,Le 24/02/2016 à 19:17reinruof77Membre fidèleMessages466Excel2010Inscrit10/03/2014cela ne fonctionne pasje pensait faireIf Sheets("Feuil1") = "" Then MsgBox "veuillez creer"mais cela ne fonctionne pas Le 24/02/2016 à 19:26dd3jsJeune membreMessages19Excel2013 FRInscrit01/12/2015Essaie ce code :Sub Test() Dim s As Worksheet, ok As Boolean For Each sh In Worksheets If sh.Name Like "Ici le nom de ta feuille*" Then flg = True: Exit For Next If flg = True Then MsgBox "Trouvée!" Else Msgbox "non trouvée" End If End SubLe 24/02/2016 à 19:32reinruof77Membre fidèleMessages466Excel2010Inscrit10/03/2014 c'est bon j'ai trouvéPrivate Sub CommandButton4_Click()On Error Resume NextSheets("feul1").SelectIf Sheets("Feuil1") = "" ThenMsgBox "veuillez créer la feuille"End IfEnd SubMerci d3js Rechercher des sujets similaires à "message feuille inexistante"ForumsExcel - VBAMessage si feuille inexistante