Re : Renommer une feuille selon la valeur d'une cellule.
Bonjour Nagrom et le forum,
Je te propose la macro évènementielle suivante, à placer dans le module de la feuille concernée :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B4")) Is Nothing Then
ActiveSheet.Name = Range("B4")
End If
End Sub
Salut
Tu peux toujours le faire par macro, mais le problème est de déclencher la macro : je ne connais pas d'évènement lancé par le changement de nom de la feuille
Sinon, tu peux mettre la formule suivante en B4
Re : Renommer une feuille selon la valeur d'une cellule.
Bonjour,
mon nom d'onglet trouverait sa source à la cellule B2 donc j'ai bien trouvé à modifier le code
ainsi
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
ActiveSheet.Name = Range("B2")
End If
End Sub
Mais ma cellule B2 n'est pas saisie manuellement mais par une formule ce qui ne fait pas varier mon nom d'onglet
A moins d'aller faire F2+entrée sur la cellule B2
Auriez-vous la solution à ce petit contretemps ?
merci d'avance
Re : Renommer une feuille selon la valeur d'une cellule.
Bonjour,
Merci de votre réponse si rapide.
Compte tenu des mes connaissances j'ai fait ceci et ça bloque sur la partie que j'ai mis en gras souligné
--> If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
je n'ai malheureusement pas la connaissance pour solutionner ça et vous ?
Merci d'avance
Code:
Private Sub Worksheet_Calculate() 'Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
ActiveSheet.Name = Range("B2")
End If
End Sub
Re : Renommer une feuille selon la valeur d'une cellule.
Du grand art merci...
Je suis tenté d'essayer de faire un wagon de question concernant tous mes points bloquants si vous répondez aussi bien à tout ;-)
Du coup... A bientôt j'espère...