Discussion :

[NewYork]

Bonjour à tous,
Voici mon problème.

J'ai mis en place un userform dans le lequel j'effectue une recherche en fonction de l'année (combobox) et du trimestre (CLICK BOX). Mon objectif est d'obtenir, dans un premier temps, tous les Vendredis existant selon ces critères. Par exemple, si je choisis 2009 et T1 (Trimestre 1), j'aimerais obtenir une liste de tous les Vendredis existant.

Je dois obtenir ces valeurs spécifiquement car j'effectue ensuite un import de données via SQL Server, et j'ai uniquement besoin des Vendredis.

Est-ce possible?

Bien cordialemen,
NY

[Marcandy]

Bonjour,

Voilà de quoi t'inspirer dans la mesure où je ne connais pas le nom de tes combobox et checkbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
27
28
29
30
31
32
33
34
35
36
37
Sub lister_vendredi()
Dim Annee As Integer
Dim Trimestre As Integer
Dim Mois As Integer
Dim Fin As Integer
Dim D1 As Date
 
Annee = 2009 ' a remplacer par la valeur de ta combobox
Trimestre = 1 ' à remplacer par la valeur donnée par les clickbox
Select Case Trimestre
Case 1
    Mois = 1
    Fin = 4
Case 2
    Mois = 4
    Fin = 7
Case 3
    Mois = 7
    Fin = 10
Case 4
    Mois = 10
    Fin = 1
Case Else
    Exit Sub
End Select
 
D1 = DateSerial(Annee, Mois, 1)
Do While Weekday(D1) <> vbFriday
    D1 = D1 + 1
Loop
 
Do While Month(D1) <> Fin
    MsgBox Format(D1, "dd-mm-yyyy") ' à formater selon tes besoins
    D1 = D1 + 7
Loop
 
End Sub

[NewYork]

C'est parfait
J'ai juste modifié la fin du code afin que je puisse insérer les dates dans une feuille.

Merci !!!

Cordialement,
NY

[NewYork]

Bonjour,
Excusez-moi de vous déranger à nouveau sur ce sujet mais je me suis rendu compte que j'ai besoin de pouvoir choisir plusieurs trimestres à la fois si l'utilisateur le désir. Ainsi, j'ai commencé à modifier le code en utilisant des ClickBoxs, mais je ne m'en sort pas vraiment pour le moment. Auriez vous une idée ?

Bien cordialement,
NY

[NewYork]

Ok, J'ai trouvé
J'avais juste une petite erreur de chiffre dans me code.

NY