Graph. barres par VBA

[herve62]

Bonjour
Le forum m'a déjà aidé pour créer un graph (courbes ) via un bouton de commande
car j'avais une erreur en VBA ; cela fonctionne bien
Maintenant Je voudrais améliorer en créant un graph à barres et non plus des courbes ( plus explicite dans mon cas) mais voilà le résultat
Que se passe t-il ??
J'ai enregistré plusieurs macro mais tjs le même résultat
Merci de m'aider

Hervé

 

[CB60]

Re : Graph. barres par VBA

Bonsoir
Voici ton fichier

 

[herve62]

Re : Graph. barres par VBA

Merci Bruno !
Je pense que c'était déjà toi qui m'a débrouillé avec un graphe précédemment
Mais comme j'aime bien comprendre :
- Pourquoi ma macro ne marchait pas ??
- C'est quoi "base" , car apparemment c'est la plage de données et cela ne marche pas dans mon application ( je n'avais joint que la feuille utile) . J'ai donc un graph vierge !!! fond jaune c'est tout . Je ne trouve pas son affectation . Je pense que c'est une variable
, car si je bouge la plage de données cela marche toujours
Merci encore d'avance pour l'info , afin que mon appli. fonctionne

Hervé

 

[CB60]

Re : Graph. barres par VBA

Bonjour
Regarde dans insertion, nom, définir "base" et le nom que j'ai donné à tes infos. J'ai utilisé la fonction decaler afin de rendre ce graph évolutif.

edit je ne sais plus pourquoi ça ne fonctionnait pas, il faudrait que je recommence le travail pour retrouver. Il me semble que c'etait à cet endroit:
With ActiveChart
.RightAngleAxes = True
.HeightPercent = 100
.AutoScaling = True
End With

 

[herve62]

Re : Graph. barres par VBA

J'ai vu ! c'est chiadé !! je maitrise un peu VBA , mais j'aurais pas trouvé
Par contre je l'ai appliqué dans mon fichier , mes data sont en A100😀108
et voilà le résultat ??? j'ai mis "base" aussi dans la macro
Je vais devoir approfondir mes connaissances VBA > graphique !

 

[CB60]

Re : Graph. barres par VBA

re
A tu des infos sur les lignes au dessus de A100 car la formule ne doit pas être écrite de la même façon si c'est le cas

 

[herve62]

Re : Graph. barres par VBA

Comme tu peux le voir dans ma capture d'écran , j'ai les boutons et le texte
Au début j'avais laissé "$A$2:$D$2" et là ne s'affichait dans le graphe que le texte du haut
avec même le nom des boutons ???? j'ai donc modifié "2" en "100".
Ca Y EST !! j'ai trouvé , c'est à cause du NBVAL , tu avais mis la colonne "A" donc comme j'avais des cellules non vide en "A" la formule se calculait par rapport à A2 ( donc faussait tout) , je viens de mettre "C" ( rien avant les data en 100)et ça marche !!!!

FINX encore
Si j'ai encore des Pb de graph je penserais à toi !!!