Nom onglet = 30 premiers caractères de la cellule

[Résolu/Fermé]
Signaler
Messages postés
96
Date d'inscription
dimanche 21 avril 2013
Statut
Membre
Dernière intervention
9 septembre 2016
-
Messages postés
96
Date d'inscription
dimanche 21 avril 2013
Statut
Membre
Dernière intervention
9 septembre 2016
-
Bonjour,

Je souhaite créer un code à ajouter à ma macro afin que le nom de mon onglet soit égal à la valeur d'une cellule B7. Mais les informations de la cellule B7 peuvent être supérieur au nombre de caractère autoriser pour un onglet. Ainsi je voudrai que mon code soit du style:

nom onglet = 30 premiers caractère de la cellule B7. J'ai vu qu'il existe un terme "Characters" dans la liste des codes macro mais je ne sais pas trop comment formuler mon code.

Voici un extrait de mon code d'origine:

ActiveSheet.Name = Range("B7").value

Mais quand je suis tombé sur un message d'erreur car les caractères de ma cellule B7 étaient supérieurs à 31, j'ai pensé à ceci:

If Range("B7").Value = "FRANCE-DOLLAR RENT A CAR SYSTEM INC" Then
ActiveSheet.Name = "FRANCE-DOLLAR RENT A CAR SYSTEM"
Else: ActiveSheet.Name = Range("B7").Value
End If

Bémol, avec un tel code, à chaque nouveau nom dans ma cellule B7, il me faudra le personnaliser... ça peut faire long, d'où l'idée d'avoir un code automatique comme évoqué plus haut.

Merci d'avance de votre aide.

2 réponses

Messages postés
1953
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
12 août 2021
151
Bonjour

ActiveSheet.Name = Left(Range("B7").Value,30)

A+
Messages postés
96
Date d'inscription
dimanche 21 avril 2013
Statut
Membre
Dernière intervention
9 septembre 2016
4
Merci beaucoup !!!