Discussion :

[Ysae68]

Bonjour à tous,

Je cherche à renommer les feuilles d'un classeur en fonction des cellules par l'intermédiaire d'une macro. Pour être plus claire : la feuille 1 doit prendre la valeur de la cellule A1 de la feuille 1, la feuille 2 doit prendre la valeur de la cellule A2 de la feuille 2, et ainsi de suite...

J'ai trouvé le code pour changer le nom des feuilles en fonction de la même cellule pour chaque feuille, mais je bloque pour trouver comment faire pour que le nom des feuilles change en fonction d'une cellule différente pour chaque feuille.

Voici le code que j'ai pour le moment :

Code :

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

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

Merci d'avance pour votre aide

[issoram]

Bonjour,

Avec un compteur en plus:

Code :

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

1
2
3
4
5
6
7
8
Dim Feuille As Worksheet
Dim i as Integer 
 
i=1
For Each Feuille In Worksheets
    Feuille.Name = Feuille.Range("A" & i ).Value
    i = i + 1
Next Feuille

[Ysae68]

Impeccable ! Merci beaucoup pour la réponse et la rapidité

[hungerG100]

Bonjour tout le monde,
Je travaille sur un Userform VBA,contenant des boutons,entre autre bouton modifier pour modifier des cellules dans deux feuilles la premiere Feuille page à Jour l’autre feuille pour l’historique.Si je supprime des lignes dans feuille 1 apres je clique sur modifier ,il y’aura un decalage lors de l’enregistrement de donne dans la feuille historique.
Qlq’un pour m’aider SVP!!
C’est pour mon Projet de fin d’étude.