Fonction VBA

 Bonjour,
je souhaiterais faire une fonction qui récupère en entrée le nom d'un onglet existant et qui renomme cet onglet avec un nouveau nom (également passé en paramètres). Voici le code de ma fonction :

Function ChangerNom(AncienNom As String, NouveauNom As String) As String
    Sheets(AncienNom).Name = NouveauNom
    ChangerNom = NouveauNom
End Function

Je ne comprends pas pourquoi ca ne marche pas, pouvez vous m'aider?
Merci.

Bonjour marly,

ça marche très bien chez moi avec

Function ChangerNom(AncienNom As String, NouveauNom As String) As String
    Sheets(AncienNom).Name = NouveauNom
    ChangerNom = NouveauNom
End Function

Sub test()
    xxx = ChangerNom("Feuil1", "ccc")
End Sub


la feuille nommée "Feuil1" est bien renomée en "ccc" et xxx contient aussi "ccc"

RB

Salut,
(ca marche aussi nickel chez moi)

"pouvez vous m'aider"
Oui on peut t'aider mais il faut savoir que  "ca ne marche pas,"  ne nous aide pas du tout.

Est ce que tu as une erreur, ou bien aucun resultat mais pas d'erreur?


@+: Ju£i€n
Pensez: Réponse acceptée

Oui ca marche comme ca effectivement mais j'aimerais lancer le renommage d'onglet en passant directement les paramètres (AncienNom et NouveauNom) à la macro (Est ce possible???) ou a la fonction que je lancerais depuis nimportequelle cellule. 

Car comme c'est codé plus haut, cela oblige a coder en dur soit les noms d'onglet a renommer, soit l'emplacement des 2 cellules dans lesquelles on va inscrire les 2 noms.

Salut,
Au niveau de ta feuille faire un Worksheet_Change tel que :

Private Sub Worksheet_Change(ByVal Target As Range)
          Dim AncienNom As String
          Dim NouveauNom As String
          AncienNom = Range("$B$2").Value
          If Target.Address = "$C$2" Then
                    NouveauNom = Target.Value
                    Sheets(AncienNom).Name = NouveauNom
          End If
End Sub

Dans un module creer la fonction NomFeuille

Function NomFeuille()
          Application.Volatile
          NomFeuille = Application.Caller.Parent.Name
End Function

Dans mon exemple la cellule B2 comporte la formule suivante          =NomFeuille()
Dans la cellule C2 tu entres ton nouveau nom et voila.