Changer nom de l'onglet automatiquement

Fermé

francis - 25 mai 2017 à 17:22
francis - 25 mai 2017 à 17:39

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

A voir également:

Changer nom de l'onglet automatiquement
Changer dns - Guide
Piratage facebook changer mot de passe - Guide
Changer nom twitter - Guide
Changer clavier qwerty en azerty - Guide
Nom de l'adresse - Forum Consommation & Internet

1 réponse

Réponse 1 / 1

francis
25 mai 2017 à 17:39

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 !

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site

Annuaire portable gratuit à partir d'un nom

Nom d’adresse

Comment trouver un numéro à partir du nom et prénom

Que faut il écrire dans le champ obligatoire : Adresse (suite)*?

Discussions similaires

Newsletters