Changer nom de l'onglet automatiquementFermé

Question

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

francis · Answer

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 !

Changer nom de l'onglet automatiquement

1 réponse

Newsletters