Discussion :

[isrdum]

Bonjour et bonne année à toute la communauté

J'ai une petite question pour vous
Dans une macro composé de 50 feuilles, j'ai besoin, pour chacune d'elles, de récupérer une information dans une cellule précise (J3) dans chaque feuille et de les nommer de cette manière

J'ai donc créé une boucle afin d’incrémenter automatiquement mes noms de feuilles.... Mais j'ignore comment coder correctement cette partie

Dans un module j'ai écrit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_Open()
Dim Nom As String
Dim Feuille As Integer
Dim i As Integer
 
Feuille = 1
    For i = 0 To 50
            Nom = Feuil(Feuille).Range("J3")
           Feuil(Feuille).Name = Nom
        Feuille = Feuille + 1
    Next i
End Sub

Comme vous pouvez le constater, la partie du code "Feuil(Feuille)", n'est pas accepté par Excel

Quoi faire

Merci

[mfoxy]

Bonjour,
Pour boucler sur chacune des feuilles de ton classeur et renommer :

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
 
Dim ws As Worksheet
 
For Each ws In Sheets
   ws.Name = ws.range(tacellule).value
 Next ws
 
 End Sub

Non tester fait via mobile
Attention à ne pas avoir de feuilles portant le même nom.

[isrdum]

Merci pour votre proposition. Mais le programme ne modifie aucun nom de feuille!!!

[mfoxy]

Vous avez bien modifier le (tacellule) par la cellule contenant le nom de la feuille ?

[isrdum]

Vous avez bien modifier le (tacellule) par la cellule contenant le nom de la feuille ?

J'ai ajouté J3, soit l'emplacement de la cellule où se situe l'information désirée

[Philippe Tulliez]

Bonjour mFoxy,
Si je puis me permettre, il est preférable de parcourir la collection Worksheets au lieu de Sheets
En effet Sheets représente la collection de toutes feuilles y compris Graphique et Macros alors que Worksheets est la collection des feuilles de calcul uniquement.

Exemple

Code :

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

1
2
3
4
Dim ws As Worksheet
 For Each ws In Worksheets
   ws.Name = ws.Range("B1").Value
 Next ws

Si la boucle rencontre par exemple une feuille graphique une erreur sera détectée

[mfoxy]

Bonjour mFoxy,
Si je puis me permettre, il est preférable de parcourir la collection Worksheets au lieu de Sheets

Bonjour Philippe,

Je n'avais pas pris en considération le fait que la collection Sheets ne prenne pas en compte toutes les feuilles du classeur.

Merci pour le rappel