Pour rappel, la fonction « AUJOUDHUI() » s’incrémente au jour le jour, le mois le mois, l’année l’année, donc forcément la date dans « A2 » sera exacte moins un jour n’est-ce pas ?
Faux, regarde mieux, le “02/03/2018” correspond a la ligne R1-C1
le “03/03/2018” correspond a la ligne R1-C2
Là je ne comprends pas, peux-tu détailler ce que tu souhaites obtenir comme résultat, est-ce la totalité des mises et gains des colonnes « C & D » pour aujourd’hui ?
Explique toi, quitte a faire un faux graphique pour que je puisse comprendre ton raisonnement.
Si tu ne veux pas perdre les données antérieures, tu n’auras pas le choix que de passer par VBA
ou par un nombre de feuille (10 pour les jours) avec une certaine complexité
Il faut faire une feuille RECAP pour transcrire les données GAIN et MISE par jour et appui sur un p’tit bouton pour la récup des données dans cette feuille qui s’accumulera de jour en jour sur une période de 10 jours dynamiquement
Seulement là, tu auras de quoi faire un graphique dynamique
Absent depuis 2 jours, tu nous manquait pour tes réponses surtout en VBA, j’espère rien de grave de ton côté.
La feuille “RECAP” que tu proposes, c’est ce que j’ai fais, mais j’avoue que je n’arrive pas a faire le graphique (ce n’ai pas mon fort) et si tu penses qu’il faut passer pas le VBA, alors là, je te laisse la main faute d’avoir tes grandes compétences dans ce domaine.
Re,
Pour venir en aide, il faudrait savoir comment sont récupérés les données MISES & GAINS tous les jours
ensuite comme le dit MDO
Car si c’est la totalité: je ne te cause pas du « Bordel » dans ton graphique, sans préciser qu’entre les données de la feuille GRAPH et ceux de la Feuil2, le Nb de course n’est pas identique.
Si tu expliquais un petit peu mieux ta demande.Cela serait plus clair
Pour moi, le principe serait de récupérer dans un onglet où tu auras ton graphique, les données de 10 jours, (le jour d’aujourd’hui étant le dernier), avec le total des mises du jour et le total des gains du jour
Après savoir si tu veux un graphique à barres séparées, empilées, etc…), là n’est plus le problème
Mais il faut savoir, au départ, comment tu récupères les données de la journée, afin de faire une petite macro qui ferait les deux sommes (Mise & Gain) et les faire fluctuer sur les 10 derniers jours, afin que cela reste dynamique.
Je noté “Voilà un type de graphique”
Je n’ai pas dis que c’étais un problème réglée, c’est la partie concernant le 1er paragraphe de post plus haut
Pour le reste, il y a le 2ème paragraphe
Alors voilà ce que cela peut donner, en réalité
Je ne me sert que de la feuille JEU, prévue pour récupérer les données du jour (Ce que je dis dans le 2ème § du précédent post)
En allant sur la feuille RECAP, si la cellule A1 n’est pas à la date du jour, le bouton est rouge avec son indication “Mise à jour”
En cliquant dessus, il met à jour les données en effectuant la somme des colonnes C et D de la feuille JEU
et met en forme le tableau et son graphique, le bouton passe au vert et indique que la mise à jour est faite
Dans la feuille Jeu, j’ai placé volontairement un ALEA.ENTRE.BORNES sur la colonne C pour faire varier sur l’exemple
Pour des essais, tu changes simplement en cellule A11 la date par une autre antérieure à celle d’aujourd’hui et en changeant de feuille et en revenant dessus histoire que l’ALEA fonctionne tu auras le bouton qui se mettra au rouge.
Procédure:
Option Explicit
Dim Shp As Shape
Private Sub Worksheet_Activate()
With ActiveSheet
If .Range("A11") = Date Then 'Si la cellule A11 est la date du jour
.Shapes("Btn_MAJ").Fill.ForeColor.SchemeColor = 3 'Colore le bouton en vert
.Shapes("Btn_MAJ").TextEffect.Text = "MàJ effectuée" 'Modifie le texte
Else 'Sinon
.Shapes("Btn_MAJ").Fill.ForeColor.SchemeColor = 2 'Colore le bouton en rouge
.Shapes("Btn_MAJ").TextEffect.Text = "Mise à jour" 'Modifie le texte
End If
End With
End Sub
Sub MajGraph()
Dim Mises As Double, Gains As Double
Application.ScreenUpdating = False
If Range("A11") <> Date Then 'Si la cellule A11 n'est pas la date du jour
ActiveSheet.Shapes("Btn_MAJ").Fill.ForeColor.SchemeColor = 2 'Colore le bouton en rouge
ActiveSheet.Shapes("Btn_MAJ").TextEffect.Text = "Mise à jour" 'Modifie le texte
Mises = Application.WorksheetFunction.Sum(Sheets("JEU").Range("C:C")) 'Attribue à la variable "Mises" la somme colonne C - Feuil JEU
Gains = Application.WorksheetFunction.Sum(Sheets("JEU").Range("D:D")) 'Attribue à la variable "Gainss" la somme colonne D - Feuil JEU
Sheets("RECAP").Activate 'Active la feuille RECAP
Range("B2:C2").Select 'Sélection de B2 et C2
Selection.Delete Shift:=xlUp 'Les suppr. vers le haut
ActiveWorkbook.Names("Mises").Delete 'Supprime la plage de noms "Mises"
ActiveWorkbook.Names("Gains").Delete 'Supprime la plage de noms "Gains"
Range("A11") = Date 'Colle la date du jour en cellule A11
Range("B11") = Mises 'Colle la somme Mises en cellule B11
Range("C11") = Gains 'Colle la somme Gains en cellule C11
ActiveWorkbook.Names.Add Name:="Mises", RefersTo:="=" & ActiveSheet.Name & "!" & Range("B2:B11").Address 'Définit la plage "Mises" (Gestionnaire de noms)
ActiveWorkbook.Names.Add Name:="Gains", RefersTo:="=" & ActiveSheet.Name & "!" & Range("C2:C11").Address 'Définit la plage "Gains" (Gestionnaire de noms)
ActiveSheet.Shapes("Btn_MAJ").Fill.ForeColor.SchemeColor = 3 'Colore le bouton en vert
ActiveSheet.Shapes("Btn_MAJ").TextEffect.Text = "MàJ effectuée" 'Modifie le texte
Range("B14").Select
Else 'Si la cellule A11 est la date du jour
Exit Sub 'Sort de la procèdure
End If
End Sub
Mais savait-tu que des résultats de courses sur le Net peuvent-être téléchargés directement sur EXCEL et ainsi rendre des opérations plus pratique et avec des mises à jour temporisées