Copier les feuilles avec des noms aux onglets

[Gwendoline]

Bonjour à tous,

Je suis navrée de vous déranger. J'ai un trou de mémoire. Je ne sais plus comment je faisais pour copier une feuille (appelé MODELE) plusieurs fois mais en nommant les autres feuilles avec le nom que j'ai spécifié dans un tableau sur autre feuille (appelé NOM).

Je joins le fichier au cas où je n'ai pu très bien m'exprimer.

Merci par avance!

gwendo

 

[mutzik]

Re : Copier les feuilles avec des noms aux onglets

Bonjour Gwendoline,

Faut pas être navrée, c'est toujours un plaisir d'aider

vois si cela te convient

 

[Gwendoline]

Re : Copier les feuilles avec des noms aux onglets

Salur Bertrand, tu es fénoménal. Merci beaucoup.
Je peux te demander un dernier truc : trier les onglets par ordres alphabétiques c'est possible ça!

Merci encore pour mon fichier!

 

[GillesC]

Re : Copier les feuilles avec des noms aux onglets

Bonjour Gwen, Mutzik, le forum
J'ai une autre variante qui ne copie que les noms sélectionnés si cela t'intéresse

 

[Gwendoline]

Re : Copier les feuilles avec des noms aux onglets

Salut Gilles,

Là je suis gâtée. J'accepte volontier Gilles!

Gwendo

 

[GillesC]

Re : Copier les feuilles avec des noms aux onglets

Le fichier est trop gros pour être DL je te donne donc le programme :
Private Sub Copieonglet_Click()

If ActiveCell.Column <> 1 Then
MsgBox "Veuillez sélectionner un ou plusieurs noms de la colonne A"
Exit Sub
End If
For Each Cell In Selection
If Cell = "" Then
MsgBox "Vous avez sélectionné une cellule vide"
Exit Sub
End If
Nom = Cell.Value
Sheets("MODELE").Select

Sheets("MODELE").Copy After:=Sheets(2)
On Error GoTo 1
ActiveSheet.Name = Nom
Next
Sheets("NOM").Select
Exit Sub
1
MsgBox "L'onglet " & (Nom) & " existe déjà"
Sheets("MODELE (2)").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Sheets("NOM").Select
End Sub

Il faut le copier comme suit :
clic droit sur le nom de l'onglet NOM
puis clic gauche sur "visualiser le code"
copier ce programme à la place de ce qui est dedans.

 

[Gwendoline]

Re : Copier les feuilles avec des noms aux onglets

Oh là là, je suis avec les meilleurs. je vous oublies pas les Gars.

Merci Mutzik, merci GillesC!