XL 2019 Modifier la plage de données d'un graphique selon valeur d'une cellule (sans macro)

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Astyanax
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

Astyanax

XLDnaute Occasionnel
Bonjour,
j'ai besoin de créer un petit fichier excel de relevés puis d'en tirer un graphique.
Je ne bute que sur un problème et je ne suis pas sûr que cela soit possible sans
l'utilisation d'une macro.

Dans une année, il y a des mois de 4 semaines et d'autres de 5 et j'aimerais que la taille du graphique s'adapte
automatiquement selon la valeur d'une cellule (Cellule vide ou non, une certaine valeur dans une cellule, ...)
Si j'utilise 3 relevés par semaine, il faudrait que la plage de données du graphique passe de
A1:F12 pour 4 semaines à A1:F15 pour 5 semaines.
Je vous remercie de me donner votre avis et une solution si possible.
Je vous souhaite un bon week-end.
Astyanax
 
Trier par date Trier par votes
Bonjour Staple 1600,
je ne l'ai pas clairement exprimé mais mon fichier n'existe pas.
En réfléchissant à ce que je voulais faire, je me suis aperçu
que la gestion automatique de la plage de données du graphique
me posait un problème sans la traiter par macro.
Je viens d'en créer un vite fait. Il ne correspond pas tout à fait
au descriptif de mon premier post mais j'ai fais au plus simple.
La semaine 5 n'est pas toujours présente. C'est donc cette semaine
que je dois éliminer dans la plage de données.
Cette plage de données est A1😛3 pour 5 semaines et A1:M3 pour 4 semaines.
La commande pourrait être la détection d'une cellule vide à l'emplacement fusionné
de la semaine 5(N1😛1).
J'espère que c'est plus clair malgré le changement de structure.
 

Pièces jointes

  • Graphique Excel.jpg
    Graphique Excel.jpg
    51.8 KB · Affichages: 35
Vote positif 0 Vote négatif
Re

@Astyanax
Lance cette macro sur une feuille vierge
(c'est juste pour créer un exemple)
VB: 
Sub exemple()
Range("A1").FormulaR1C1 = "8/1/2022"
Range("A2").Formula2R1C1 = "=SUMPRODUCT((WEEKDAY(ROW(INDIRECT(EOMONTH(R[-1]C,-1)+1&"":""&EOMONTH(R[-1]C,0))))=2)*1)-1+(WEEKDAY(EOMONTH(R[-1]C,0),2)>0)*1"
[B1] = "Sem 1": [E1] = "Sem 2": [H1] = "Sem 3": [K1] = "Sem 4"
Range("N1") = "=IF(R[1]C[-13]=5,""Sem 5"","""")"
Range("N2").FormulaR1C1 = "=IF(LEFT(R1C14)=""S"",""Lundi"","""")"
Range("O2").FormulaR1C1 = "=IF(LEFT(R1C14)=""S"",""Mardi"","""")"
Range("P2").FormulaR1C1 = "=IF(LEFT(R1C14)=""S"",""Mercredi"","""")"
Range("B2").Select
jours = Array("Lundi", "Mardi", "Mercredi")
[B2:D2] = jours: [E2:G2] = jours: [H2:J2] = jours: [K2:M2] = jours
[A1].Interior.Color = vbYellow: [A1].Font.Bold = -1
End Sub
Une fois, la macro lancée, change manuellement la date en A1
(par exemple saisis : 01/07/22)

NB: La formule en A2 est de la regrettée Monique (une grande formuliste du forum)
 
Vote positif 0 Vote négatif
Re

Il faut relire et surtout tester la macro comme indiqué dans le message#5
Si tu suis correctement les directives, tu verras forcément un changement sur ton écran
(notamment en colonne N,O et P)
Je peux l'affirmer puisque c''est ce qui se passe sur mon écran.
 
Vote positif 0 Vote négatif
Bonsoir @Phil69970

Pas de coquille cette fois-ci 😉
Syntaxe issue de l'enregistreur de macros d'Excel 365
VB: 
Sub Macro1()
    Range("A2").Select
    ActiveCell.Formula2R1C1 = _
        "=SUMPRODUCT((WEEKDAY(ROW(INDIRECT(EOMONTH(R[-1]C,-1)+1&"":""&EOMONTH(R[-1]C,0))))=2)*1)-1+(WEEKDAY(EOMONTH(R[-1]C,0),2)>0)*1"
End Sub
Et pour le pourquoi de la chose
Formula2R1C1 Property
Gets or sets the formula of the cells represented by this IRange in R1C1-style array notation.
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re

Et comme ceci, cela donne quoi sur Excel 2010 ?
VB: 
Sub exemple_bis()
Range("A1").FormulaR1C1 = "8/1/2022"
'Office 365
'Range("A2").Formula2R1C1 = "=SUMPRODUCT((WEEKDAY(ROW(INDIRECT(EOMONTH(R[-1]C,-1)+1&"":""&EOMONTH(R[-1]C,0))))=2)*1)-1+(WEEKDAY(EOMONTH(R[-1]C,0),2)>0)*1"
'Versions antériereures
Range("A2").FormulaArray = "=SUMPRODUCT((WEEKDAY(ROW(INDIRECT(EOMONTH(A1,-1)+1&"":""&EOMONTH(A1,0))))=2)*1)-1+(WEEKDAY(EOMONTH(A1,0),2)>0)*1"
[B1] = "Sem 1": [E1] = "Sem 2": [H1] = "Sem 3": [K1] = "Sem 4"
Range("N1") = "=IF(R[1]C[-13]=5,""Sem 5"","""")"
Range("N2").FormulaR1C1 = "=IF(LEFT(R1C14)=""S"",""Lundi"","""")"
Range("O2").FormulaR1C1 = "=IF(LEFT(R1C14)=""S"",""Mardi"","""")"
Range("P2").FormulaR1C1 = "=IF(LEFT(R1C14)=""S"",""Mercredi"","""")"
Range("B2").Select
jours = Array("Lundi", "Mardi", "Mercredi")
[B2:D2] = jours: [E2:G2] = jours: [H2:J2] = jours: [K2:M2] = jours
[A1].Interior.Color = vbYellow: [A1].Font.Bold = -1
End Sub
 
Vote positif 0 Vote négatif
Re

Comme je le disais dans mon second post, c'est une formule de Monique
(et en relisant le message d'origine, il semble qu'il n'y ait pas besoin de validation matricielle)

Donc un simple Formula devrait suffire 😉
VB: 
Sub exemple_ter()
Range("A1").FormulaR1C1 = "8/1/2022"
Range("A2").Formula = "=SUMPRODUCT((WEEKDAY(ROW(INDIRECT(EOMONTH(A1,-1)+1&"":""&EOMONTH(A1,0))))=2)*1)-1+(WEEKDAY(EOMONTH(A1,0),2)>0)*1"
[B1] = "Sem 1": [E1] = "Sem 2": [H1] = "Sem 3": [K1] = "Sem 4"
Range("N1") = "=IF(R[1]C[-13]=5,""Sem 5"","""")"
Range("N2").FormulaR1C1 = "=IF(LEFT(R1C14)=""S"",""Lundi"","""")"
Range("O2").FormulaR1C1 = "=IF(LEFT(R1C14)=""S"",""Mardi"","""")"
Range("P2").FormulaR1C1 = "=IF(LEFT(R1C14)=""S"",""Mercredi"","""")"
Range("B2").Select
jours = Array("Lundi", "Mardi", "Mercredi")
[B2:D2] = jours: [E2:G2] = jours: [H2:J2] = jours: [K2:M2] = jours
[A1].Interior.Color = vbYellow: [A1].Font.Bold = -1
End Sub

Maintenant pour se rapprocher du problème initiale: plage nommée dynamique.
 
Vote positif 0 Vote négatif
RE

Toujours à tester sur une feuille vierge
VB: 
Sub test_A()
Dim ligne&
Range("A1").FormulaR1C1 = "8/1/2022"
Range("A2").Formula = "=SUMPRODUCT((WEEKDAY(ROW(INDIRECT(EOMONTH(A1,-1)+1&"":""&EOMONTH(A1,0))))=2)*1)-1+(WEEKDAY(EOMONTH(A1,0),2)>0)*1"
Rows("3:500").Clear
Range("B3:P" & Application.RandBetween(3, 25)).Formula = "=RaND()"
a = [A2]
ligne = Cells(Rows.Count, 2).End(3).Row
Set plage_graph = Range(Cells(3, 2), Cells(ligne, IIf(a = 4, 13, 16)))
MsgBox plage_graph.Address
End Sub
Sub test_B()
Dim ligne&
Range("A1").FormulaR1C1 = "7/1/2022"
Range("A2").Formula = "=SUMPRODUCT((WEEKDAY(ROW(INDIRECT(EOMONTH(A1,-1)+1&"":""&EOMONTH(A1,0))))=2)*1)-1+(WEEKDAY(EOMONTH(A1,0),2)>0)*1"
Rows("3:500").Clear
Range("B3:P" & Application.RandBetween(3, 25)).Formula = "=RaND()"
a = [A2]
ligne = Cells(Rows.Count, 2).End(3).Row
Set plage_graph = Range(Cells(3, 2), Cells(ligne, IIf(a = 4, 13, 16)))
MsgBox plage_graph.Address
End Sub
Ensuite reprendre cette logique pour avoir une plage dynamique selon qu'il y ait 4 ou 5 semaines dans un mois donné.


NB: Si on avait un fichier Excel exemple avec des données et un graphique déjà mis en place, on aurait déjà résolu cette question, non ?
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

B
  • Question Question
XL 2016 Ramener une plage de données en fonction d'une cellule
Réponses
11
Affichages
424
JHA
J
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
319
Dégé59
D
D
  • Résolu(e)
Microsoft 365 Récupérer la valeur d'une cellule d'un autre fichier
Réponses
7
Affichages
113
Diane272727
D
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
702
fanfan38
fanfan38
I
  • Résolu(e)
Microsoft 365 Exécuter une macro en fonction de la valeur d'une cellule
Réponses
12
Affichages
428
iliess
I
N
  • Question Question
XL 2013 Fixer la valeur d'une cellule saisie en fonction d'un nombre de décimal défini
Réponses
6
Affichages
307
mapomme
mapomme
T
  • Résolu(e)
XL 2013 Harmoniser valeur de cellules selon 2 variables
Réponses
4
Affichages
181
Thomas75
T
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
159
Phil69970
Phil69970
J
  • Question Question
XL 2010 définir un nom de cellule en fonction de la valeur d'une autre
Réponses
12
Affichages
894
jojo4738
J
O
  • Question Question
Autres recopie de cellules selon la date
Réponses
3
Affichages
151
olivier Clech
O
P
  • Résolu(e)
XL pour MAC Problème de changement de couleur de la valeur d'une cellule
Réponses
2
Affichages
305
pvander
P
T
  • Résolu(e)
XL 2016 Modification de données en fonction d'une valeur
Réponses
3
Affichages
429
therse
T
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
686
loloboc
L
P
  • Résolu(e)
Microsoft 365 Rechercher une valeur d'une cellule à partir d'un nom de feuille
Réponses
2
Affichages
363
paulng
P
M
  • Résolu(e)
XL 2021 Automatisation de la randomisation des cellules d'une colonne
3 4 5
Réponses
61
Affichages
1 K
Dranreb
Dranreb
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
513
Nel'
N
C
  • Résolu(e)
XL 2016 Formule de calcul de la somme conditionnée des écarts d'une plage par rapport à une valeur témoin
Réponses
3
Affichages
195
crocrocro
C
piga25
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
68
piga25
piga25
M
  • Question Question
XL 2019 Recherche d'un mot dans une chaîne de caractère depuis une plage de références puis si présent renvoyer la référence
Réponses
7
Affichages
561
MilieBZH
M
F
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle selon la référence d'une cellule
Réponses
3
Affichages
621
filiph79
F
Retour