Aide sur Macro [Résolu]

[tben08]

Bonjour, Voici une partie de ma macro.

l'ordre de la macro :
1- copie un onglet
2- demande le nom du salarié qu'elle affecte comme nom d'onglet
3- demande le matricule qu'elle va mettre dans l'onglet qui a été créé

Ca fonctionne très bien comme ça mais si je mets annuler à la question du nom du salarié, il sort de la macro mais il m'a quand même créé un onglet qui devient inutile pour le coup. J'ai bien essayé de déplacer la 1ère partie de la macro pour demander d'abord le nom mais ça ne fonctionne pas.
Merci beaucoup pour votre aide.

 With Sheets("Trame")
        .Visible = True
        .Copy Before:=Sheets(1)
        .Visible = False
    End With
      
    While Len(b) < 1
        b = InputBox("Nom du salarié (EN MAJUSCULE) ?", "Question ?")
        If Len(b) < 1 Then
        
        Exit Sub
            MsgBox ("Vous devez obligatoirement entrer un nom de salarié")
        End If
        If FeuilleExiste(ThisWorkbook, b) Then
            MsgBox "La feuille " & b & " existe déjà. Changez de nom."
            b = ""
        End If
    Wend
          
c = InputBox("Matricule du salarié ?", "Question ?")

Range("c2") = c

 

[Pierrot93]

Re : Aide sur Macro

Bonjour,

normal, cette partie la est avant la question...

With Sheets("Trame")
        .Visible = True
        .Copy Before:=Sheets(1)
        .Visible = False
    End With

bon après midi
@+

 

[tben08]

Re : Aide sur Macro

Je sais bien qu'elle est mal placée, d'où ma demande!!

J'ai essayé de la bouger mais après ça faut des choses bizarres

 

[Pierrot93]

Re : Aide sur Macro

Re,

bah... supprime la alors, difficile de t'aider plus avec juste un bout de code jeté sur un post... :

If Len(b) < 1 Then
        activesheet.delete
        Exit Sub

 

[mutzik]

Re : Aide sur Macro

salut les gens

ca serait quand même beaucoup plus simple avec ton fichier (sans données confid)

 

[tben08]

Re : Aide sur Macro

Re,

bah... supprime la alors, difficile de t'aider plus avec juste un bout de code jeté sur un post... :

If Len(b) < 1 Then
        activesheet.delete
        Exit Sub

bien vu je n'avais pas pensé à cette possibilité. le reste du code ne t'aurais servi à rien.

Merci pour ton aide.

 

[tben08]

Re : Aide sur Macro

salut les gens

ca serait quand même beaucoup plus simple avec ton fichier (sans données confid)

En effet ce serait beaucoup mieux, mais cette macro concerne une quinzaine d'onglet donc elle ne serait jamais passée.

 

[mutzik]

Re : Aide sur Macro [Résolu]

re,

supprime les 13 autres, t'en laisse 2 avec juste quelques données et ca passe ...