adaptation de macro

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
 

youky(BJ)

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

  • essaiDTPicker.xls
    39 KB · Affichages: 72

youky(BJ)

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

  • MyCalendar.zip
    21.8 KB · Affichages: 22
  • MyCalendar.zip
    21.8 KB · Affichages: 22
  • MyCalendar.zip
    21.8 KB · Affichages: 21

youky(BJ)

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

  • testeY.zip
    31.6 KB · Affichages: 17
  • testeY.zip
    31.6 KB · Affichages: 20
  • testeY.zip
    31.6 KB · Affichages: 17

gege21

XLDnaute Occasionnel
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)

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

Pièces jointes

  • testeY.zip
    47.6 KB · Affichages: 22
  • testeY.zip
    47.6 KB · Affichages: 21
  • testeY.zip
    47.6 KB · Affichages: 20

Statistiques des forums

Discussions
294 233
Messages
1 937 083
Membres
188 146
dernier inscrit
will90