Discussion :

[Niconewrest]

Bonjour,
J'ai un fichier avec un nombre X d'onglet.
Je souhaiterais que chaque onglet s'intitule comme sa cellule L12
Est ce que quelqu'un a une solution?
Merci d'avance

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For each Onglet in sheets
   Onglet.name = Onglet.Range("L12")..Value
Next Onglet

[Niconewrest]

merci,

mais j'ai un message d'erreur

Erreur de Compilation:
Erreur de syntaxe

[rvtoulon]

salut il y a un "." de trop à "..value"
il faut mettre ".value"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each Onglet In Sheets   
     Onglet.Name = Onglet.Range("L12").Value
Next Onglet

mais si il n'y a pas de valeur dans la cellule L12 il y aura une erreur....

tu peux l'éviter avec un petit test comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For Each onglet In Sheets
   If onglet.Range("L12") <> "" Then
      onglet.Name = onglet.Range("L12").Value
   Else
        MsgBox "La cellule L12 de l'onglet " & onglet.Name & " est vide"
   End If
Next onglet

[Niconewrest]

T'es un as,
SUPER
Merci

je voudrais ajouter a cette macro :
- mise en page de toutes les feuilles du classeur : ajuster sur une page
- copier toutes les feuilles dans fichier TEST MACRO

merci davance

[Menhir]

- mise en page de toutes les feuilles du classeur : ajuster sur une page

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Worksheet.PageSetup.FitToPagesTall = 1
Worksheet.PageSetup.FitToPagesWide = 1

Pour l'insérer dans le code qui a déjà été donné, il faut bien sûr remplacer Worksheet par Onglet.

- copier toutes les feuilles dans fichier TEST MACRO

Mettre en dehors de la boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.SaveCopyAs "TEST MACRO"