Nommer un onglet en fonction d'une valeur de cellule

Bonjour à tous,

Je cherche à faire une macro pour donner le nom de la feuille de mon classeur en fonction d'une valeur de cellule.

J'ai pu copier des codes que j'ai trouvé sur des forums mais aucun ne fonctionne.

Quelqu'un peut m'aider svp?

Merci à vous :)

Bonjour,

Il manque quelques précisions alors je vais donner une réponse à titre d'exemple :

Sub Renommer()

interdits = "[[/\?*]"

With ActiveSheet
    If .Range("A1").Value <> "" Then
        If Len(.Range("A1").Value) <= 31 Then
            If Not (.Range("A1").Value Like "*" & interdits & "*" Or .Range("A1").Value Like "*]*") Then
                 .Name = Application.Trim(Application.Clean(.Range("A1").Value))
            Else
                MsgBox "Echec à cause de caractères interdits", vbCritical, "Erreur"
            End If
        Else
            MsgBox "Echec à cause d'un nom supérieur à 31 caractères", vbCritical, "Erreur"
        End If
    Else
        MsgBox "Echec : cellule vide", vbCritical, "Erreur"
    End If
End With

End Sub

La feuille active prend le nom de sa cellule A1.

Cdlt,

Alors là, bravo, super :)

j'ai juste remplacé la cellule A1 et ça fonctionne impec.

Merci beaucoup à toi

Impeccable ! Et j'ajouterais même : ...

A la prochaine,