message avant l'éxécution de la macro

Version imprimable

Bonjour atous ,

j'ai une macro d'ans une userfrorm qui , crée une feuille a apartire des données d'une autre feuille, et dans mon userform , j'ai un "TextBox " qui permetr a l'utilisateur de donnée un nom a la nouvele feuille, et comme la macro récupere les donnée avant de créer la feuille, donc si l'utilisateur ne tape pas le nom de la feuille dans le TextBox , la macro s'éxécute a moitie , et elle m'envoi un message d'erreur, et sa affecte la feuille de la source.

mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 Sub CréerEtat() Dim Liste, i, NbreColonne 'vérifier si le nom de l'état est bie renseigné If TextBox1.Text = "" Then MsgBox "Veuillez saisir le nom de l'état SVP" End If NomEtat = TextBox1.Text FL1.Cells.EntireColumn.Hidden = False 'mis en remarque pour tester Liste = ";" For i = 0 To Me.ListBox2.ListCount - 1 Liste = Liste & Me.ListBox2.List(i) & ";" Next Application.ScreenUpdating = False NbreColonne = Range("IV1").End(xlToLeft).Column For i = 1 To NbreColonne If InStr(Liste, ";" & FL1.Cells(1, i) & ";") = 0 Then FL1.Columns(i).EntireColumn.Hidden = True End If Next 'FL1.PrintOut ' Call SupprimerFeuille(Worksheets("EtatSelection")) FL1.Select FL1.Copy After:=Worksheets("FichierCentral") 'Sheets("FichierCentral (2)").Select Sheets("FichierCentral (2)").Name = NomEtat Worksheets(NomEtat).Select Call sup_col_vides 'DoEvents ' laisser les temps pour l'impression FL1.Select FL1.Cells.EntireColumn.Hidden = False FL1.Cells.EntireColumn.Hidden = False End Sub
je voudrais que au lancement de la macro , faire un teste
si le nom de la feuille est renseigné ==> éxécuter la macro
si le texteBox est vide l'envoi d'un message à l'utilisateur pour tapez le nom , mais surtout il faut pas éxécuter la macro .

je ne sais pas comme le faire mais je crois que c'est facile

merci de votre aide

29/06/2007, 14h03
ouskel'n'or
Tu as plusieurs solutions. La plus simple :
Dans le module standard, tu déclares un variable Public NomFich
Dans la macro qui ouvre l'userform, avant le code d'ouverture, tu poses ta question :
Code:

1 2 3 4 If NomFich = "" Then NomFich = InputBox("Veuillez saisir le nom de l'état SVP", "NOM DE L'ÉTAT", NomFich) End If If NomFich = "" then exit sub 'Tu n'ouvres pas l'userform
Une autre consisterait à tester le nom de l'état dans Userform_Initialize ou Activate mais que fais-tu s'il y a une faute de frappe ?
A+

Edit
J'ajouterais un test pour savoir si l'état existe bien

Bon moi je ferais plutôt comme ceci. Si le textBox contient quelque chose, la macro s'exécute. Sinon, j'affiche un message et je positionne le curseur dans le TextBox.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub CréerEtat() 
        Dim Liste, i, NbreColonne 
        'vérifier si le nom de l'état est bie renseigné 
        If TextBox1.Text <> "" Then  
        NomEtat = TextBox1.Text 
        FL1.Cells.EntireColumn.Hidden = False 'mis en remarque pour tester 
        Liste = ";" 
        For i = 0 To Me.ListBox2.ListCount - 1 
            Liste = Liste & Me.ListBox2.List(i) & ";" 
        Next 
        Application.ScreenUpdating = False 
        NbreColonne = Range("IV1").End(xlToLeft).Column 
        For i = 1 To NbreColonne 
            If InStr(Liste, ";" & FL1.Cells(1, i) & ";") = 0 Then 
                FL1.Columns(i).EntireColumn.Hidden = True 
            End If 
        Next 
        'FL1.PrintOut 
'        Call SupprimerFeuille(Worksheets("EtatSelection")) 
        FL1.Select FL1.Copy After:=Worksheets("FichierCentral") 
        'Sheets("FichierCentral (2)").Select Sheets("FichierCentral (2)").Name = NomEtat 
        Worksheets(NomEtat).Select 
        Call sup_col_vides 
        'DoEvents ' laisser les temps pour l'impression 
        FL1.Select FL1.Cells.EntireColumn.Hidden = False 
        FL1.Cells.EntireColumn.Hidden = False 
      Else
        MsgBox "Veuillez saisir le nom de l'état SVP" 
        TextBox1.SetFocus
    End If   
End Sub