Graphique personnalisé selon mois de l'année

[nat54]

Bonjour à tous,

Eh oui c'est le WE mais je cherche quand même une solution pour le taf 😀



MA DEMANDE

Selon le mois où l'on se situe, là en juin, donc on connaît les chiffres jusque fin mai
Ne faire apparaître sur le graphe que les données jusqu'à mai

Cependant là il n'y a qu'une société, dans la réalité, j'ai 10 sociétés avec chacune 3 graphes
soit 30 graphes à actualiser. Les graphes sont 2 types.

J'aimerais bien ne pas avoir à faire cette MAJ manuellement.


Est-il possible par exemple de choisir via une liste modifiable (ou autre méthode) le dernier mois à afficher ?


MERCI D'AVANCE 🙂

 

[CB60]

Re : Graphique personnalisé selon mois de l'année

re
Je t'ai mis les formules pour la deuxieme serie

 

[nat54]

Re : Graphique personnalisé selon mois de l'année

Ok. Par contre est-ce que ma méthode avec utilisation du nb mois est bonne ?
car finalement c'est mieux car en choisissant dans liste déroulante le mois, ca met "à jour" les 2 graphes en même temps.

 

[CB60]

Re : Graphique personnalisé selon mois de l'année

re
Oui je pense que cela sera plus convivial.
La difficulté de ton probléme et dans le nombre de graphique et la construction, comme tu le dis un gros travail à la mise en place mais ensuite tout sera automatique.
Bon courage

 

[nat54]

Re : Graphique personnalisé selon mois de l'année

Merci à toi
Tu pourrais juste me répondre quant au post juste au-dessus ?

 

[CB60]

Re : Graphique personnalisé selon mois de l'année

Voici ton fichier

Edit. je n'avais pas fais attention aux autres onglets

 

[nat54]

Re : Graphique personnalisé selon mois de l'année

Je regarde ca
Par contre juste une chose pourrais-tu dans ton post ci-dessus reposter le fichier sans l'onglet 'formules nommées' où l'on voit 'mes' sociétés
Merci

 

[Staple1600]

Re : Graphique personnalisé selon mois de l'année

Bonjour


Peut-etre que VBA peut se charger du "gros boulot"...






(ps: appel à peine voilé au VBAistes du forum)

 

[nat54]

Re : Graphique personnalisé selon mois de l'année

Bonjour,
Je ne vois pas trop comment....

 

[Staple1600]

Re : Graphique personnalisé selon mois de l'année

Re

Je disais ça car plusieurs fois sur ce forum, j'ai lu qu'on pouvait tout faire avec Excel et le VBA(sauf le café)

 

[CB60]

Re : Graphique personnalisé selon mois de l'année

re
Le plus difficile est la création des formules de base pour les zones nommées, le travail est à faire qu'une seul fois.
Je ne suis pas sur non plus que d'avoir une macro ferais gagner du temps car il y a l'obligation de crée les zones?

 

[nat54]

Re : Graphique personnalisé selon mois de l'année

Je vais continuer le travail sur les formules nommées à la main comme dans l'onglet que je t'ai demandé de supprimer.
Mais je le ferais lundi au taf, car il me faut l'ordre exact des sociétés.

Ensuite hop copier-coller (c'est ca qui sera long aussi) dans insertion/nom/définir
mais comme tu dis, ce ne sera fait qu'une fois.

 

[nat54]

Re : Graphique personnalisé selon mois de l'année

Une question
Pour société A, on part de C3 ou C4 ? car selon les formules ca change, et je ne vois pas pourquoi
SAext1
=DECALER(recap!$C$3;recap!$B$3;;😉
socAext06
=DECALER(recap!$C$4;;;recap!$B$3)



EDIT : j'ai compris car je ne savais pas que c'était ligne/colonne/hauteur/largeur

 

[nat54]

Re : Graphique personnalisé selon mois de l'année

Bonjour

Pour le VBA, avec l'enregistreur

ActiveWorkbook.Names.Add Name:="aa", RefersToR1C1:="=Evolution_PRU!R1C1"


Quand j'aurais fini mon tableau de correspondance
càd une colonne nom, une colonne la formule nommée

récupérer via ce code VBA
nom1 = formule nommée1
nom2 = formule nommée2
...

Cela m'éviterait en fait de devoir copier-coller une ligne par une ligne la correspondance dans insertion/nom/definir.

 

[CB60]

Re : Graphique personnalisé selon mois de l'année

re
J'étais dessus, voici ou en es mon code, la macro se passe bien, mais il m'indique une anomalie dans le fichier après avoir crée les formules.
Je cherche!!!
Sub zoneNommee()
On Error Resume Next
Range("q1").Select' j'ai mis en Q1 le nom et en R1 la formule
While ActiveCell.Value <> "" ' boucle tant que ce n'est pas vide
ActiveWorkbook.Names.Add Name:=Selection.Value, RefersToLocal:=ActiveCell.Offset(0, 1).Value
ActiveCell.Offset(1, 0).Range("A1").Select
Wend
End Sub

 

[nat54]

Re : Graphique personnalisé selon mois de l'année

Je cherche aussi
mais ca ne marche pas, je maitrise pas VBA à fond 😀

Sub Creer_nom()


For lgn = 10 To 150 'pour boucler sur les lignes 2 à 24

Sheets("formules_nommées").Select 'on se place sur la feuille de référence
nom = Cells(lgn, 3).Value 'on variabilise
ActiveWorkbook.Names.Add Name:=nom, RefersToR1C1:=ActiveCell.Offset(0, 1).Value


Next lgn
End Sub