Renommer un onglet suivant une cellule qui contient une formule

[taissi]

SALUT TT LE MONDE JE SUIS AVEC VOUS POUR UN AUTRE BESOIN
J AI RECUPPERER CE CODE SUR LE FORUM ZT IL FONCTIONNE MAIS SI LA CELL CONTIENT UNE FORMULE LA C EST PLUS BON
Y AURAIT IL UNE ALTERNATIVE POUR Y REMDIER
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
MERCI D AVANCE

 

[MJ13]

Re : Renommer un onglet suivant une cellule qui contient une formule

Bonjour Taissi

Un conseil: sur un forum évite d'écrire en majuscule. En général, c'est mal vu 🙁.

Allez, envoie ton fcihier et quelqu'un va te le faire sans problème (remarque avec un peu de chance 🙂) .

 

[taissi]

Re : Renommer un onglet suivant une cellule qui contient une formule

merci pour le conseil j y manquerais pas la prochaine fois
la cellule qui doit contenir la non de l onglet est H2
merci d avance

 

[MJ13]

Re : Renommer un onglet suivant une cellule qui contient une formule

Re

Teste:

activesheet.name= Activesheet.range("H2").value

 

[taissi]

Re : Renommer un onglet suivant une cellule qui contient une formule

j ai teste mais ca ne donne rien

 

[MJ13]

Re : Renommer un onglet suivant une cellule qui contient une formule

Re

Chez moi, cela fonctionne 🙂.

 

[taissi]

Re : Renommer un onglet suivant une cellule qui contient une formule

peut etre que j ai ratte quelque chose novice que je suis en vba
le code je le place on workbook et c et cest tout?

 

[MichD]

Re : Renommer un onglet suivant une cellule qui contient une formule

Bonjour,

Cette procédure événementielle : Private Sub Worksheet_Change(ByVal Target As Range)
n'est pas déclenché si la cellule contenant une formule est mise à jour. Seule la modification d'une cellule faite manuellement ou par un copier-coller fait réagir la procédure événementielle.

Si nécessaire, tu peux utiliser l'événement suivant :

'------------------------
Private Sub Worksheet_Calculate()

End Sub
'------------------------