Changer nom de l'onglet automatiquement

[Fermé]
Signaler
-
 francis -
Bonjour,



J'aimerais incorporé ceci dans ma formule : ="(" & DROITE(F8;4) & ")"

Formule : Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("F8")) Is Nothing Then: Exit Sub
test = Range("F8")
ActiveSheet.Name = test
End Sub

Dans le fond pour que le nom de l'onglet prenne seulement les 4 dernies caractères de la cellule F8

1 réponse

J'ai trouvé

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("F8")) Is Nothing Then: Exit Sub
test = Right(Range("F8").Value, 4)
ActiveSheet.Name = test
End Sub

Merci !