pas plus de 31 caracteres en nom de feuille ! ! !

[thibaut]

bonjour le forum.
je suis face a un gros pb mais alors un tres gros
j'ai une petite macro qui renome une feuille en fonction d'un champ mais le pobleme c'est que certaine fois (etant donné que le champ contient des titres) les infos dépassent 31 caracteres et donc ma macro ne fonctionne plus !!!
comment faire pour indiquer a la macro de ne prendre que les 25 (par exemple) premiers caracteres ???

merci de votre aide
en esperant que ce soit possible

thibaut

 

[Hervé]

Bonjour

essaye ceci :

ActiveSheet.Name = Left(Range("a1").Value, 25)

A adapter bien sur

Salut
Hervé

 

[thibaut]

hello hervé.

mais c'est pas possible alors on peu tout faire en VBA !!!

j'adore
bon je vais tester et adapter

merci beaucoup

thibaut

 

[thibaut]

arggg
ben mince ça fonctionne pas ça me retourne "false" comme nom de feuille
mon code de nommage d'origine est le suivant
ActiveSheet.Name = Range("I4") & " " & Range("C4")
et j'ai essayer en mettant
ActiveSheet.Name = Range("I4") & " " & Range("C4").value = 25
et c'est la que le nom de ma feuille devient "false"
et avec la virgule il me dit que certains arguments sont manquants....

si tu as une petite idée

merci
thibaut

 

[Hervé]

re

soit tu veux donner comme nom de feuille la valeur de C4 soit la valeur 25.

Mais : ActiveSheet.Name = Range("I4") & " " & Range("C4").value = 25 , c'est pas possible.

ActiveSheet.Name = Range("I4") & " " & "25", ca c'est possible.

Salut
Hervé

 

[thibaut]

hervé
ben non je veu pas la valeur 25 en nom de feuille je veux que le nom de ma feuille reprenne la valeur de C4 mais comme il est possible que le nom depasse les 31 carracteres je souhaiterais que le nom soit tronqué automatiquement a 25 ou a 30 pour que la feuille se renome sans me retourner d'erreure

merci
thibaut

 

[Pascal76]

Bonjour

ActiveSheet.Name = Left(Range("I4") & " " & Range("C4"),25)

cela devrait faire l'affaire

Pascal

 

[thibaut]

bonjour pascal

ben dis donc tu t'occupe bien de moi entre ma macro que tu as réaliser et maintenat la formule qui fonctionne nikel

bon ok j'aurais un peu plus chercher car le = left(range.... hervé l'avais donné
(pas taper sur les doigts)

donc merci a tous les deux pour votre aide
et puis merci au forrum car il n'y a pas de raison

voila mon travail est terminer et tout fonctionne
grace a vous je vous avoir les felicitation de mon chef

merci a tous

thibaut