Axe des abscisses qui ne s'actualise pas

[GAMA7]

Bonjour à tous

J'ai un graphique qui évolue quand on rajoute des données dans le tableau.

Cependant alors que les histogrammes des valeurs s'ajoutent bien, les dates correspondants ne s'affichent pas alors que quand je regarde les données sélectionnées elles le sont bien...

Quelqu'un peut -il m'éclairer car je perds un temps fou sur quelque chose de, je suis certaine, très simple à effectuer.

Merci à tous

 

[job75]

Bonjour GAMA7, bienvenue sur XLD,

En effet les 2 dernières dates 24-mai et 6-juin (2018) ne s'affichent pas sur l'axe des abscisses.

C'est dû au fait que l'axe des abscisses n'est pas défini de la même manière pour toutes les 36 séries.

[Edit] Pour la 1ère série c'est $A$11:$B$28 mais pour toutes les autres c'est $A$6:$B$26.

Le plus simple c'est d'utiliser la plage $A$6:$B$28 du tableau Excel, les lignes masquées ne sont pas traitées.

Plutôt que de faire les modifications manuellement il vaut mieux exécuter cette macro :

Sub AxeX()
Dim plageX As Range, i%
With Feuil1 'CodeName
    Set plageX = .ListObjects(1).DataBodyRange.Columns(1).Resize(, 2) 'colonnes A:B
    With .ChartObjects(1).Chart
        For i = 1 To .SeriesCollection.Count
            .SeriesCollection(i).XValues = plageX
        Next
    End With
End With
End Sub

Fichier joint après exécution de la macro.

A+

 

[job75]

Etoile filante mais surtout très mal élevée, il n'y aura plus de réponse de ma part.

 

[GAMA7]

Merci d'avoir pris le temps de me répondre.

Et là je vais paraître bête mais je ne sais pas exécuter de macro ...
Ma seule manip à moi a été de sélectionner mes données pour en faire un graphique ...

 

[GAMA7]

Etoile filante mais surtout très mal élevée, il n'y aura plus de réponse de ma part.

Si ce message m'est adréssé, désolée, mais je suis la plupart du temps sur le terrain en prélèvement et donc pas d'ordinateur... je viens juste de me connecter.

 

[GAMA7]

Je vois bien quand j'affiche les macros existantes, le texte qui a été précisé au dessus, mais je ne vois pas comment le mettre en action de la même manière sur un autre graphique.

Merci pour votre aide

 

[job75]

Bonsoir GAMA7,

Je veux bien admettre que vous ayez été occupé(e) pendant 2 jours.

Maintenant que vous soyez incapable de comprendre la solution (simple) que j'ai donnée ça me dépasse.

A+

 

[GAMA7]

Je pensais être sur un forum d'entraide pour Excel, j'ai pourtant un Bac +8 et non je n'ai jamais manipulé les macros pendant toutes ces années d'études ! Peut être faut-il une spécialité en informatique ou autre que je ne possède visiblement pas.

Je resterai polie en vous remerciant malgré tout et en allant trouver de l'aide ailleurs.

Belle journée

 

[Claude5]

Bonjour,

concernant la macro (je ne suis pas un spécialiste) dans votre fichier Excel vous avez un onglet macro et en cliquant dessus vous avez le nom de la macro qui doit être ExeX. En cliquant dessus, cela met à jour votre travail

 

[GAMA7]

Merci Claude5, c'est effectivement ce que j'ai fait, mais je n'ai envoyé qu'un extrait de mes résultats et je dois appliquer la même méthode pour d'autre feuille avec d'autres tableaux et même si je colle la macro donnée par Mr plus haut, cela ne fonctionne pas. Certainement car je ne m'y connais pas. Je vais chercher encore. Merci

 

[GAMA7]

Le dit fichier d'où est extrait ma feuille donnée plus haut en exemple.

 

[Claude5]

J'espère qu'un autre "pro" vous aidera. Il y a de brillantes personnes sur ce forum🙂

 

[GAMA7]

Je n'en doute pas, mais il faut se mettre à la portée de tout le monde, car tout le monde n'est pas "pro" . Merci en tous cas

 

[VIARD]

Je n'en doute pas, mais il faut se mettre à la portée de tout le monde, car tout le monde n'est pas "pro" . Merci en tous cas

Bonjour GAMA7, Job75, Claudie5 toutes et tous

Salutation Job.
Ce qu'a effectué "Job" est très bien, ça évite de mettre les mains dans le cambouis.
J'ai donc repris sa macro, c'est plus simple et adapté au fichier.
fichier joint.

A+ Jean-Paul

 

[job75]

Bonjour,

Je comprends qu'il faut mettre à jour les graphiques des feuilles "Ech.C" et "Ent.int".

Alors clic droit sur chaque onglet => Visualiser le code et coller la même macro :

Sub AxeX()
Dim plageX As Range, i%
With Me 'cette feuille
    Set plageX = .ListObjects(1).DataBodyRange.Columns(1).Resize(, 2) 'colonnes A:B
    With .ChartObjects(1).Chart
        For i = 1 To .SeriesCollection.Count
            .SeriesCollection(i).XValues = plageX
        Next
    End With
End With
End Sub

Et affecter chaque macro à chacun des boutons "MAJ Axe X".

Fichier joint.

A+