Help Macro

[yannouche]

Bonjour,

J'ai un classeur excel avec une feuille de données et plusieurs feuilles (onglets) de graphique.

J'aimerais pouvoir attribuer le texte qui se trouve dans un certain nombre de cellules de la feuille de donnée comme nom des onglets graphiques.

Est-ce possible par macro ?

Pouvez-vous m'aider ?

Mercci bcp !

 

[cbea]

Re : Help Macro

Bonjour yannouche,

Pourrais-tu joindre un extrait de ton fichier ?

Merci

 

[Sylvain59]

Re : Help Macro

Bonjour

Si j'ai bien compris tuveux donner a l'onglet le texte d'une cellule

Dans ce cas

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Name = Range("A1").Value 'à adapter
End Sub


Cela pour la cellule A1

A+🙂

 

[yannouche]

Re : Help Macro

Merci pour vos réponses.
Voici un exemple.
J'aimerais que l'onglet 2 prenne le nom de la cellule A1 de l'onglet1 soit Pierre et que l'onglet3 prenne le nom de la celluleA2 de l'onglet1 soit Jean. Etc.
Merci bcp

 

[kjin]

Re : Help Macro

Bonsoir,
Sans plus de précision...
Dans le module de la feuille1 :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
On Error Resume Next 'évite le bug si la feuille n'éxiste pas
For i = 1 To Range("A65000").End(xlUp).Row
Sheets(i + 1).Name = Range("A" & i).Value
Next
End Sub

Il serait préférable de récupérer le nom de l'onglet dans l'onglet lui-même pour éviter les erreurs (nom du graphique par exemple) et seulement après créer la liste des noms dans la feuille1, enfin c'est mon avis.
A+
kjin