Titre graph en VBA avec variable

[herve62]

Bonjour
Mon graph "auto" en VBA marche très bien sauf que .....
Je voulais améliorer le titre en le mettant sous une variable du genre

With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = Titre_g
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
End With

ou Titre_g = " % RETOURS POUR " & mois
"mois" provient d'avant dans le code ( as String ) et est égal , par exemple à "Nov 07"
Dans mon graph le titre n'affiche que : % RETOURS POUR

Y-a t-il une raison ? ou n'est-ce pas possible ?
Merci
Hervé

 

[Compte Supprimé 979]

Re : Titre graph en VBA avec variable

Salut Herve62,

A mon avis ta variable 'mois' est vide lorsque tu composes le titre !

Essaye en mode débogage de vérifier la valeur prise par ta variable.

A+

 

[RENAUDER]

Re : Titre graph en VBA avec variable

Bonjour,
Comme dit Bruno, vérifies qu'elle soit bien déclarée (ta variable) en Public pour ne pas la perdre en cours de route

 

[herve62]

Re : Titre graph en VBA avec variable

Bonsoir

La variable "mois" est déclarée en "string" ( mais pas public , puisque même module)
En pas à pas , mois= "Nov 07"
Donc c'est pour cela que je ne comprends pas ?

 

[CB60]

Re : Titre graph en VBA avec variable

Bonsoir
Voici un exemple

Sub titreGraph()
'
' titreGraph Macro
' Macro enregistrée le 10/12/2006 par Bruno
Dim MaDate, MonMois
MaDate = [a1]
MonMois = Month(MaDate)
    ActiveSheet.ChartObjects("Graph_1").Activate
        With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "toto " & MonMois
    End With
End Sub

 

[Compte Supprimé 979]

Re : Titre graph en VBA avec variable

Bonsoir

La variable "mois" est déclarée en "string" ( mais pas public , puisque même module)
En pas à pas , mois= "Nov 07"
Donc c'est pour cela que je ne comprends pas ?

Hervé,

Tu ne pourrais pas nous mettre ton code en entier, plutôt qu'un bout !?

Comme ça on pourrait regarder de plus près ...

A+

 

[herve62]

Re : Titre graph en VBA avec variable

Re

Voilà je joins l'ensemble ( c'était déjà Bruno qui m'avait corrigé les failles du graph)
Je viens de faire qq essais .... mais rien
Je vois que "mois" = "oct 07" , puis en fin de boucle "mois" ="" ?? car "cellule" passe à ""
Je ne trouve pas comment mémoriser les premiers passages ou "mois" = "oct 07" ? pour l'utiliser ensuite dans le graph !!

Merci de votre aide ( j'en apprends tous les jours et cela me passionne !!)

Hervé

 

[CB60]

Re : Titre graph en VBA avec variable

re
regarde si cela te convient?

 

[herve62]

Re : Titre graph en VBA avec variable

Encore Re bonsoir !!
Merci Bruno !
je me doutais que tu serais encore là sur ce coup !!
CA MARCHE !!!
Pourrais tu m'expliquer "grosso modo " ta démarche ?
J'ai fait du "pas à pas" mais je ne vois pas ? , tu ajoutes.....

Sub essai()
Set cellule1 = Sheets(1).Range("IV4").End(xlToLeft).Offset(0, -9)
MsgBox cellule1.Value
End Sub

J'ai supprimé cette "sub" et ça marche toujours ???

Ensuite après la boucle tu écris :

Set cellule1 = Sheets(1).Range("IV4").End(xlToLeft).Offset(0, -9)


Il me semble que cela est "fastoche" pour toi !!! j'essaye de comprendre

En tous les cas "Chapeau " !!!
Merci si tu peux m'éclaicir simplement

Bon WE

 

[CB60]

Re : Titre graph en VBA avec variable

Bonjour
Cette macro

Sub essai()
Set cellule1 = Sheets(1).Range("IV4").End(xlToLeft).Offset(0, -9)
MsgBox cellule1.Value
End Sub

à la même logique que la ligne que tu a déja dans ton fichier (Set cellule = .Range("IV2").End(xlToLeft).Offset(l_produit - 2, -7)), elle m'a servi pour retrouver la derniere cellule de la ligne 4 et le offset (0,-9) me decale de 0 ligne et de moins 9 cellules, lorsque ça fonctionné après ta boucle j'ai mis cette instruction et pour le titre j'ai fais reference au nom de cette ligne.

edit j'ai modifié la macro pour le graph afin qu'elle soit plus lisible

 

[herve62]

Re : Titre graph en VBA avec variable

Bonjour Bruno , le forum
Merci encore . mais ... tu as perdu des données
En effet le "MIAMI" et "CL320" n'apparaissent plus dans le tableau recap ( en A100) donc plus dans le graph
Les données de "Oct" sont en "AR et "BV" : 3.05% et 1.34%
Ce tableau sert à suivre l'évolution des nouveaux produits , mais qui forcément n'ont pas tous démarré en même temps , d'ou les colonnes décalées

Bon WE
Hervé

 

[CB60]

Re : Titre graph en VBA avec variable

Bonjour
remet cela :

           Do While cellule.Value = ""
            Set cellule = cellule.Offset(0, -10)
            cel_n = cellule.Address
 
        Loop

apres Set cellule = .Range("IV2").End(xlToLeft).Offset(l_produit - 2, -7)

 

[herve62]

Re : Titre graph en VBA avec variable

Merci beaucoup ... c'est OK ! affaire soldée
J'espère aussi que cet exemple puisse servir à d'autres

A la prochaine

Hervé