Compter nbr de caracteres dans un titre.

[romainchu78]

Bonjour a tous,
je souhaiterais renvoyer le nombres de caracteres d'un nom dans une variables.
je preleve le titre dun fichier que je place dans une variable pour ensuite compter le nombre de caracteres et au final placer ce nombre dans une autre variable.
jai fouille dans le forum, et je n'ai rien trouve.
quelqu'un a t-il une idee ?

Voici comment je preleve le nom d'un fichier:

dim NomFichierCourt2 as string
dim NbrCaractere as integer

NomFichierCourt2 = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) 'Copie du titre sans extension du workbook dans une variable

MsgBox NomFichierCourt2 'affichage du titre

code qui compte le nombre de caracteres du titre et qui le stock dans la variable NbrCaractere

Msgbox "dans ce titre il y a: " & NbrCaractere "caracteres"


J'ai une deuxieme question: J'ai creer une macro qui cree automatiquement un code pour l'affichage d'un graph camembert de donnees. Dans le code jai fais integrer le titre de la worksheet. Il semblerait que si le titre a plus de 30 caracteres, il ne veuille pas me le prendre en compte.

ca bloque a ce niveau la:
ActiveChart.Location Where:=xlLocationAsObject, Name:=NomFichierCourt2

Est ce bien vrai ?

Merci par avance pour votre reponse et bon week-end

 

[MichelXld]

Re : Compter nbr de caracteres dans un titre.

bonjour

si j'ai bien compris ta premiere question , tu peux essayer

MsgBox Len( NomFichierCourt2 )

bonne journée
MichelXld

 

[MichelXld]

Re : Compter nbr de caracteres dans un titre.

rebonjour

pour la 2eme question, l'agument Name de la methode Location sert à indiquer le nom de la feuille ou sera inséré le graphique

ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"

pour ajouter un titre, tu peux utiliser

With ActiveChart
    .HasTitle = True
    .ChartTitle.Characters.Text = "Le titre du graphique"
End With

bonne journée
MichelXld

 

[romainchu78]

Re : Compter nbr de caracteres dans un titre.

tres bien michel avec ca ca va marche pour la longueur du titre.

par contre pour le titre de mon camembert; lidee estait d'utiliser le nom de la feuille pour le camembert. et dapres mes tests, la longueur admissible par le camembert ne doit pas exceder 30 caracteres...

 

[MichelXld]

Re : Compter nbr de caracteres dans un titre.

rebonjour

je ne comprends pas ton soucis: je viens de faire un essai avec une chaine de 50 caracteres

peux tu montrer la procédure complète que tu as utilisé?


bon apres midi
MichelXld

 

[romainchu78]

Re : Compter nbr de caracteres dans un titre.

en fait je pense qu'il serait tres complique de te montrer tout le code...il est tres tres lours et pas optimise.
par contre tous mes essaie porte a croire qu'il ne prend pas les titre de plus de 30 caracteres.
je pense que je vais le laisser comme cela.

par contre tu peux etre m'aider sur quelque chose d'autre...mon titre ne dois pas comporter de point.
aurais tu une idee sur un code simple permettant de detecter le presence de point dans le titre (titre toujours stoke dans la variable "NomFichierCourt2")
et si au moins un point est utilise, un message s'affiche a l'utilisateur l'invitant a choisir un autre nom sans point.

merci par avance

 

[MichelXld]

Re : Compter nbr de caracteres dans un titre.

bonjour

tu peux tester

Sub Test()
    Dim X As Integer
    Dim Titre As String
    
    ActiveChart.HasTitle = True
    
    Titre = "Le .graphique."
    
    Do
        X = InStr(1, Titre, ".")
        If X = 0 Then Exit Do
        
        Titre = InputBox("saisissez un titre de graphique sans point")
    Loop
    
    ActiveChart.ChartTitle.Characters.Text = Titre
End Sub

bonne journée
MichelXld

 

[romainchu78]

Re : Compter nbr de caracteres dans un titre.

ok merci beaucoup.
bonne semaine