Lister les groupe de plan sur VBA

Version imprimable

21/04/2021, 11h37
Laeroon

1 pièce(s) jointe(s)

Lister les groupe de plan sur VBA

Bonjour,

Je dispose d'un fichier excel avec des données météorologiques. Il est organisé de la manière suivante:
- Chaque feuille correspond à une année de relevé
- Chaque feuille possède 12 groupes de plan correspondant aux 12 mois de l'année.
Pièce jointe 596228
J'ai bien la possibilité de chercher les dates dans la première colonne mais cette structure ne me plaît pas.
Est t'il possible de récupérer la liste des groupes et les valeurs associées sur VBA ?

Merci par avance !

Maxime
21/04/2021, 15h23
Pierre Fauconnier

Salut.

Je ne suis pas certain d'avoir compris ce que tu veux réaliser...

Si les niveaux du plan correspondent aux dates, il me semble plus intéressant de se baser sur les dates que sur les niveaux de plan. Le filtre automatique, placé sur une colonne de dates, se présente un peu comme un plan avec les années puis les mois. Quel est l'intérêt d'amener du VBA là-dedans?
21/04/2021, 20h26
Laeroon

1 pièce(s) jointe(s)

Citation:

Envoyé par Pierre Fauconnier

Salut.

Je ne suis pas certain d'avoir compris ce que tu veux réaliser...

Si les niveaux du plan correspondent aux dates, il me semble plus intéressant de se baser sur les dates que sur les niveaux de plan. Le filtre automatique, placé sur une colonne de dates, se présente un peu comme un plan avec les années puis les mois. Quel est l'intérêt d'amener du VBA là-dedans?

Bonsoir Pierre,
Je souhaite sur un autre tableur, donner la possibilité de choisir une année via une liste. Que ce choix induise automatiquement une recherche dans la BDD météorologique contenant les Degré-Jour-Unifié DJU mis à jour annuellement et les introduisent dans mon premier sous la forme d'un calendrier (cf ci dessous)
Pièce jointe 596273
Je me demandais s'il est possible en VBA d'aller chercher les valeurs DJCD18 des groupes Janvier, Février, Mars ... et de les insérer avec le même ordre à partir du premier jour de chaque mois.
Procéder par date me semblait un peu fastidieux comme méthode.
Concernant l'intérêt du VBA, j'en ai aucune idée. J'ai commencé à développer d'autres fonctionnalités avec et je pensais continuer sur ma lancée. Jusqu'à peu, j'utilisais Excel avec ses fonctionnalités de "base". Merci de me redire si vous avez d'autres possibilités plus simple pour réaliser cela.

Il faut un peu de mise en place pour simplifier le code.

Je pars d'une situation de départ où

les feuilles de données sont nommées du millésime des données qu'elles contiennent;
les dates renseignées, vu leur format, sont des chaines de caractères et pas des vraies dates;
le fichier qui contient les données s'appelle Données-Météo.xlsx et est placé dans le même dossier que le classeur "calendrier";
dans le classeur "Calendrier", une plage nommée choixAnnée reprend l'année choisie (on pourra en profiter pour rendre le titre du calendrier dynamique).

Voici un code compact qui réalise la récupération des données. On devrait normalement paramétrer cela. Le code que je donne ici, bien que fonctionnel, n'est là que pour montrer la démarche et les étapes de réalisation, et doit être adapté à ta situation.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub Test() Dim i As Long Dim Annee As Long Dim wbSource As Workbook Dim shSource As Worksheet Dim nbreJours As Long Dim Source As Range Annee = Range("ChoixAnnée").Value shCalendrier.Range("b3:m33").ClearContents Set wbSource = Workbooks.Open(ThisWorkbook.Path & "\Données-Météo.xlsx") Set shSource = wbSource.Worksheets(Annee & "") For i = 1 To 12 nbreJours = Day(DateSerial(Annee, i + 1, 0)) Set Source = shSource.Range("a:a").Find(what:=Replace(Format(DateSerial(Annee, i, 1), "yyyy/mm/dd"), "-", "/")) shCalendrier.Cells(3, i + 1).Resize(nbreJours).Value = Source(1, 5).Resize(nbreJours).Value Next i wbSource.Close False End Sub

Bonjour Pierre,

Merci pour ton aide, je suis arrivé au bout de mon problème. Je joins la version finale adaptée à mon programme

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub CommandButton1_click()
  Dim i As Long
  Dim Annee As Long
  Dim wbSource As Workbook
  Dim shSource As Worksheet
  Dim nbreJours As Long
  Dim dates As String
  Dim Source As Range
  Dim wbGenerator As Workbook
  Dim shCalendar As Worksheet
 
  Set wbGenerator = ActiveWorkbook
  Set shCalendar = wbGenerator.Worksheets(4)
  Annee = Range("A1").Value
  shCalendar.Range("B3:M33").ClearContents
  Set wbSource = Workbooks.Open(ThisWorkbook.Path & "\DJU depuis 1999.xlsx")
  Set shSource = wbSource.Worksheets("DJU " & Annee)
  For i = 1 To 12
    nbreJours = day(DateSerial(Annee, i + 1, 0))
    dates = "01/" & i & "/" & Annee
    Set Source = shSource.Range("A11:A389").Find(what:=CDate(dates), LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
        shCalendar.Cells(3, i + 1).Resize(nbreJours).Value = Source(1, 5).Resize(nbreJours).Value
  Next i
 
  wbSource.Close False
End Sub

Bonne continuation
Maxime