Affichage graphique a partir d'un tableau (pas si simple)

Question

Mon Probleme : J'ai joint mon petit fichier pour voir le pb et je n'ai de solution. C'est le suivi au quotidien (Glucose & pression arterielle) Bon d'accord, j'apprends mais des fois ca bloque un peu ! dans l'onglet: "Presure_Graph" Comme vous voyez je suis oblige de rentrer a la main point par point toutes les donnees du tableau &#91;Blood_Presure&#93; je n'ai pas trouve de solution pour selectionner automatiqiuement les donnees je suis oblige de creer ce tableau 3 colonnes qui reprend toutes les donnes afin de les exploiter correctement par mon graphique. Et je fait cela a la mian point par point, quelle perte de temps ..... enfin. Si une bonne ame peut me mettre sur la voie j'apprecierai beaucoup. par avance merci paco...

Efgé · Answer

Une proposition à mettre en Pressure_Graph!$O$2 et à tirer vers le bas et vers la droite. =DECALER(Blood_Pressure!$B$1;EQUIV(MAX($N$2:$N2);Blood_Pressure!$A:$A;0)-1;COLONNES($A:A)-1+(MOD(LIGNE()+1;3)*3)) J'ai aussi modifié les plages de ton graphique pour qu'elles s'ajustent automatiquement. Cordialement...

h2so4 · Answer

Via une macro Sub copydataBP() i = 4 : ' première ligne avec données dans Blood_pressure j = 1 : ' compteur de ligne dans Pressure_graph ' on parcourt la feuille Blood_pressure tant qu'on a une valeur dans colonne B While Worksheets("Blood_Pressure").Cells(i, 2) &lt;&gt; "" ' copier la date Worksheets("Pressure_Graph").Cells(j + 1, 14) = Worksheets("Blood_Pressure").Cells(i, 1) ' copier les données par par période de la journée (matin, midi, soir) For k = 1 To 3 j = j + 1 : ' pour chaque période de la journée, on ajoute une ligne dans pressure_graph ' par période il y a 3 données à copier For l = 1 To 3 Worksheets("Pressure_Graph").Cells(j, l + 14) = Worksheets("Blood_Pressure").Cells(i, (k - 1) * 3 + l + 1) Next l Next k i = i + 1 : ' on prend la ligne suivante dans Blood_pressure Wend End Sub...