Aide sur Macro [Résolu]

tben08

XLDnaute Occasionnel
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.


Code:
 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
 
Dernière édition:

Pierrot93

XLDnaute Barbatruc
Re : Aide sur Macro

Bonjour,

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

Code:
With Sheets("Trame")
        .Visible = True
        .Copy Before:=Sheets(1)
        .Visible = False
    End With
bon après midi
@+
 

tben08

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Re : Aide sur Macro

Re,

bah... supprime la alors, difficile de t'aider plus avec juste un bout de code jeté sur un post... :
Code:
If Len(b) < 1 Then
        activesheet.delete
        Exit Sub
 

mutzik

XLDnaute Barbatruc
Re : Aide sur Macro

salut les gens

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

tben08

XLDnaute Occasionnel
Re : Aide sur Macro

Re,

bah... supprime la alors, difficile de t'aider plus avec juste un bout de code jeté sur un post... :
Code:
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.
 

mutzik

XLDnaute Barbatruc
Re : Aide sur Macro [Résolu]

re,

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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas