nom d'une feuille

[hammock]

Salut à tous,


Voilà, j'aimerai savoir s'il est possible de donner le nom d'une feuille à partir d'une cellule.

Exemple : dans la cellule A1 de la feuille1, j'ai le nom 'Suez'.
J'aimerai avoir le nom 'Suez' pour la feuille 2 sans taper 'Suez'.
Est-ce possible ??
Merci beaucoup pour votre aide....
B)

 

[_Thierry]

Bonjour Hammock, le Forum


UNe première approche avec l'Index Number (L'index est le numéro de Feuille en partant de la Gauche des Onglets, attention aux Index des Feuilles cachées au cas où)

Sub ReNameWorkSheet()
Dim NewName As String

NewName = Worksheets(1).Range('A1')

On Error GoTo Out
Worksheets(2).Name = NewName

Exit Sub
Out:
    If Err = 1004 Then
        MsgBox 'Impossibilité de renommer la Feuille, vérifier si doublon de nom, ou caractère interdit'
    Else
        MsgBox 'Erreur Non Gérée', vbCritical
    End If
End Sub

Ici donc la Cellule 'A1' de La Feuille Index 1 donnera le nom de La Feuille Index 2 ...

Bon Dimanche
[ol]@+Thierry[/ol]

 

[hammock]

Merci beaucoup _Thierry B) :lol: :woohoo: