Graphique VBA

[Nimbus]

Bonjour,

J'ai besoin d'aide pour mon programme VBA.

Je veux créer un graphique automatique, qui à chaque nouvelle saisie enregistrée se modifie en fonction des nouvelles données.

Le graphique doit correspondre à un PARETO c'est à dire un graphique colonne représentant la quantité NC en fonction du type de défauts! (voir doc joint).

De plus, j'ai une erreur dans mon programme car, je veux qu'à chaque nouvelle saisie une nouvelle ligne s'insére alors que moi la ligne précédente s'efface pour laisser apparaitre la nouvelle.
Si qqn peux me venir en aide sur ces deux points se serai génial!!

Merci d'avance à tout ceux qui répondrons!

 

[dionys0s]

Re : Graphique VBA

Bonjour Nimbus, bonjour tout le monde

concernant le graphique, s'il s'agit de modifier la plage source, tu peux procéder comme suit :

Feuille.ChartObjects("Nom du graphique").Select
    ActiveChart.SetSourceData Source:=Feuille.Range("Blablabla")

Concernant la nouvelle saisie, tu veux qu'une ligne s'insère, ou tu veux que la saisie se place juste dessous la dernière ?

A+

 

[dionys0s]

Re : Graphique VBA

(concernant le graphique, cela sous-entend qu'il est déjà existant, configuré, et que seule la plage source nécessite d'être adaptée)

 

[dionys0s]

Re : Graphique VBA

(J'ai fait un test avec ton fichier, et ta macro écrit dans la bonne ligne, sans qu'elle efface quoi que ce soit)

 

[Nimbus]

Re : Graphique VBA

Je l'écris ou cette ligne de code?
Peux tu me faire un exemple sur mon fichier stp?

Ben c'est bizarre moi il m'insére pas de ligne... Etrange😡

Merci d'avance

 

[dionys0s]

Re : Graphique VBA

Re Nimbus,

Ce qui serait bien, c'est que ton fichier exemple soit un peu plus étoffé, à savoir qu'il contienne quelques lignes d'exemples de saisie (même bidons/inventés), et qu'un graphique existe déjà. Je te laisse faire ça, et poste le fichier joint.

A+

 

[Misange]

Re : Graphique VBA

Bonjour

juste mes 2 centimes :
tu sais que tu peux faire tout cela sans macro avec un tableau excel ? (onglet accueil/style/mettre sous forme de tableau)
voir plus d'explications détaillées ici
Ce lien n'existe plus

il suffit d'écrire dans la première ligne vide sous le tableau pour qu'une nouvelle ligne se crée en dessous en recopiant les formules de la ligne du dessus. Le graphique associé au tableau s'ajuste automatiquement aux nouvelles lignes insérées. Tu peux déplacer le tableau où tu veux, ça suit (alors qu'avec du VBA ...) Tu peux écrire sous ton tableau dans la feuille sans risque de modifier les valeurs prises en compte dans le tableau/graphique.
A toi de voir mais le VBA ne me parait pas nécessaire dans ton cas (et potentielle source d'erreur à l'usage), sachant que ton formulaire de saisie n'est pas forcément plus lisible que le tableau (dont la première ligne est toujours visible).

 

[Nimbus]

Re : Graphique VBA

Salut DionysOs,

Voila le fichier demandé!
en espérant que cela te convienne!

Merci

A+

 

[Nimbus]

Re : Graphique VBA

Salut Misange,

Ca fonctionne ta méthode mais, le problème c'est que quand j'ai 2 défauts du même nom il me les additionne pas, il me fait une autre colonne. Tu sais comment résoudre ce problème?

Je t'envoie le fichier pour que tu comprennes mieux.

Merci pour ton aide

A+

 

[dionys0s]

Re : Graphique VBA

Salut Misange, salut Nimbus,

Ce lien devrait pas mal t'aider. Tu manies un graphique contenant plusieurs séries de données, donc si tu veux creuser l'option VBA, tu dois manier l'objet ActiveChart.SeriesCollection(i).Values.

Ceci dit, je pense que l'option de Misange est la plus simple et la plus adaptée à ton besoin

A+
Dionys0s

 

[Nimbus]

Re : Graphique VBA

Salut DionysOs,

En effet, la solution de Misange est bien plus simple mais, saurais tu résoudre mon problème d'addition de quantité?
(Voir message que j'ai envoyé à Misange+doc que je lui ai joint!)

Merci d'avance!!

 

[Efgé]

Re : Graphique VBA

Bonjour à tous,
Après les deux centimes de Misange 🙂, les miens:
Dans ton cas je pense que tu devrais passer par un TCD dont la source est ton tableau.
Je ne peux pas te faire un exemple "pil poil" car je suis sous 2003, mais sur le site de Misange ou sur le forum, tu devrais trouver des exemples.
Cordialement

P.S Il faut enregistrer l'exemple sur ton PC si tu veux manipuler le TCD.

 

[Nimbus]

Re : Graphique VBA

Sauf que les TCD ne se génére pas à chaque nouvelle saisie!
Moi je veux un truk qui se fais tout seul.
Pas que à chaque nouvelle saisie il faille que je refasse un TCD!

 

[Efgé]

Re : Graphique VBA

Re
Il est bien entendu hors de propos de "refaire un TCD" à chaque saisie...
Si tu utilise ton tableau comme source de données du TCD, toutes tes saisies seront prise en compte.
Si tu veux, tu même mettre une seule et unique ligne de code dans le code de la feuille qui affiche le graph pour ne pas réactualiser le TCD "à la main":

Private Sub Worksheet_Activate()
ThisWorkbook.RefreshAll
End Sub

Cordialement

 

[Misange]

Re : Graphique VBA

Bonjour à tous

un TCD qui s'actualise automatiquement quand tu actives la feuille qui le contient en PJ.
Je t'ai mis des listes de validation pour les erreurs et acceptation/refus. Je te conseille d'en mettre partout ou c'est possible de façon à être sur que la saisie soit toujours identique.
Avec un TCD tu pourras faire bien plus de choses, par exemple regrouper les erreurs par mois.