adaptation de macro

[gege21]

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

 

[gege21]

Re : adaptation de macro

personne n'a d'idée pour moi

même un nouveau code mais un petit quelque chose

 

[youky(BJ)]

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

 

[gege21]

Re : adaptation de macro

effectivement cela ne marche pas chez moi dommage
merci quand même pour ta renonce Bruno

alors ci quelqu'un avait une solution pour moi se serais le top

 

[youky(BJ)]

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

 

[gege21]

Re : adaptation de macro

si cela peut t'aide tout et explique dans le ficher

 

[youky(BJ)]

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

 

[gege21]

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

 

[youky(BJ)]

Re : adaptation de macro

Re,
Cette fois ça doit le faire. . .
Bruno

 

[gege21]

Re : adaptation de macro

bonjours Bruno
juste une petit chose pour le graphique il faudrait que ce sois juste sur une colonne (ex colonne "H")
pluto que 3 actuellement (c-D-E)

et la sa va le faire

 

[youky(BJ)]

Re : adaptation de macro

Bigre!!!
Cette fois ça doit être bon...
j'ai enlevé des données en onglet données pour réduire la taille du fichier.
Bruno

 

[gege21]

Re : adaptation de macro

je n'ai qu'une chose a dire

c parfait

un grand merci a toi Bruno

cordialement
gégé