Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

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
A

Astyanax

XLDnaute Occasionnel
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 A13 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(N11).
J'espère que c'est plus clair malgré le changement de structure.
 

Pièces jointes

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

Staple1600

XLDnaute Barbatruc
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

Staple1600

XLDnaute Barbatruc
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

Staple1600

XLDnaute Barbatruc
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

Staple1600

XLDnaute Barbatruc
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

Staple1600

XLDnaute Barbatruc
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

Staple1600

XLDnaute Barbatruc
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
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

B
  • Question
XL 2016 Ramener une plage de données en fonction d'une cellule
Réponses
11
Affichages
304
JHA
J
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
170
Dégé59
D
A
  • Question
Microsoft 365 Graphique : suppression partie de courbe sans valeur
Réponses
3
Affichages
198
CDA32
C
N
  • Question
XL 2013 Fixer la valeur d'une cellule saisie en fonction d'un nombre de décimal défini
Réponses
6
Affichages
249
mapomme
  • Question
Microsoft 365 Série de graphique définie par une formule
Réponses
1
Affichages
199
Efgé
N
  • 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
357
Nel'
N
I
  • Résolu(e)
Microsoft 365 Exécuter une macro en fonction de la valeur d'une cellule
Réponses
12
Affichages
311
iliess
I
C
  • Question
XL 2010 MsgBox selon la valeur d'une cellule
Réponses
2
Affichages
429
CATPLUS
C
J
  • Question
XL 2010 définir un nom de cellule en fonction de la valeur d'une autre
Réponses
10
Affichages
536
jojo4738
J
C
  • Résolu(e)
Microsoft 365 Graphique charge de travail répartie sur la journée
Réponses
3
Affichages
316
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…