• Initiateur de la discussion Initiateur de la discussion gege21
  • 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 !

gege21

XLDnaute Occasionnel
bonjours a tous.

j'ai cette macro qui me génère un graphique en choisissant le mois en "D5" et l'année en "F5"

se que je voudrai c'est ca la place du mois et de l'année je puise il mètre une page de date "ex du 26/janv/2010 au 05/févr/2010"
merci par avance pour vos réponse

Sub Test()
Dim Mois As Integer, Année As Long, Plage As Range, I As Integer
Select Case Sheets("menu").Range("D5")
Case "janvier"
Mois = 1
Case "février"
Mois = 2
Case "mars"
Mois = 3
Case "avril"
Mois = 4
Case "mai"
Mois = 5
Case "juin"
Mois = 6
Case "juillet"
Mois = 7
Case "août"
Mois = 8
Case "septembre"
Mois = 9
Case "octobre"
Mois = 10
Case "novembre"
Mois = 11
Case "décembre"
Mois = 12
Case Else
Exit Sub
End Select
Année = Sheets("menu").Range("F5")
If Année = 0 Then Exit Sub
With Sheets("Données")
I = 2
While .Cells(I, 1) <> ""
If Month(.Cells(I, 1)) = Mois And Year(.Cells(I, 1)) = Année Then
If Plage Is Nothing Then
Set Plage = Union(.Cells(I, 2), .Cells(I, 5))
Else
Set Plage = Union(Plage, .Cells(I, 2), .Cells(I, 5)) 'chois des colone
End If
End If
I = I + 1
Wend
End With
If Plage Is Nothing Then
MsgBox "Il n'y a pas de valeurs à cette date !", vbExclamation, "Erreur"
Exit Sub
End If
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Plage
ActiveChart.ChartType = xlColumnClustered
ActiveChart.Location Where:=xlLocationAsObject, Name:="graph."
End Sub
 
Re : adaptation de macro

Bonjour Gégé,
Voici un fichier avec 2 controls DTPicker ou tu peux facilement rentrer des dates.
Par contre il n'est pas sur que cela fonctionne chez toi, souvent ce controle est installé avec Access.
Regarde si ça passe peut être fera t'il ton bonheur.
Tu as aussi le controle calendrier que tu peux trouver en ajout de control (à voir).
Bruno
 

Pièces jointes

Re : adaptation de macro

Re,
Dans ce fichier un exemple du control DTPicker "made in Youky" fonctionne sur toute version excel donc tu pourras juger.
Ta demande n'étant pas trés claire et sans fichier dur de faire mieux.
Bruno
 

Pièces jointes

Re : adaptation de macro

Revoila ton fichier modifié,
Il te faudra trier (croissant)par date la col A ou le faire par macro.(j'ai oublié)
Dans les combobox les dates de données sont recopiées sans doublons, donc tu retrouves toutes les dates que tu as besoin (simple d'emploi)
Bon test...
Bruno
 

Pièces jointes

Re : adaptation de macro

merci Bruno cela et vraiment très proche de se que je veut

-une foie les dates sélectionne ils faudrait directement généré le graphique
sans recopier les données (pour moi c inutile)

mais merci d'avance tu as déjà fais du très bon boulo 🙂
 
- 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

Réponses
5
Affichages
235
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
9
Affichages
195
Réponses
2
Affichages
201
Réponses
7
Affichages
163
Réponses
8
Affichages
466
Retour