Discussion :

[Djohn]

Bonjour,

Mon titre n'est pas tres clair, j'ai crée sur liste des mois de l'année dans une cellule sur Excel (menu Données_Validation_Liste)

J'aimerai lorsque je choisis un mois dans cette liste, qu'apparaisse juste en dessous, tous les jours du mois au format jj/mm/aaaa mais sans les samedis et dimanches.

je ne sais pas comment définir mon Sub

Merci pour votre aide

[wilfried_42]

bonjour

tu n'as pas besoin de macro pour faire ça, des formule suffisent. si tu postais ce que tu as deja fait, on pourrait voir et y placer les formules...

[Brunodm13]

Bonsoir,

Tu trouveras sûrement de quoi t'inspirer ici.

Cordialement

Bruno

[Djohn]

Voici ce que j'ai deja fait :

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
Sub t()
 
Dim Ladate As Date
 
annee = Range("e5")
mois = Range("e6")
nombrejourdumois = Range("e3") 'jai rajouté cette cellule qui contient une formule Excel qui me donne le nombre de jour qu'il y a dans le mois E6 de l'année E5
 
n = 7 'numéro de ligne
 
 
For i = 1 To nombrejourdumois
Ladate = i & "/" & mois & "/" & annee
jour = Weekday(Ladate)
 
' jour : 7 = samedi ; 1 = dimanche
If jour = 2 Or jour = 3 Or jour = 4 Or jour = 5 Or jour = 6 Then
 
Cells(n, 5) = Ladate
 
n = n + 1
End If
 
Next i
End Sub

Ce que j'aimerai c'est qu'en changeant le mois et l'année sur ma feuille, que ma macro se lance toute seul.

wilfried_42 : ca m'interesse fortement de le faire sans macro, si tu as une soluce


je précise que lorsque j'écris mon code non pas dans un module mais dans la feuille, avec

Code :

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

Private Sub Worksheet_Change(ByVal Target As Range)

, et que je change le mois, Excel plante

[wilfried_42]

re:

voila un exemple (en a2 j'ai masqué une formule couleur blanc sur fond blanc)
pour ajouter les jours fériés, une table je jours fériés suffit, avec un légère modification de la formule

sinon : pour corriger l'erreur du code :

Code :

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

ladate = DateValue( i & "/" & mois & "/" & annee)

[Djohn]

merci c'est exactement ce que j'attendais.

Par contre, je ne comprends pas ta correction, car ce code fonctionne.
que change la fonction DateValue ?
merci

[Djohn]

bonjour,

Dsl je bug avec mon fichier,
si qlq1 peut m'aider à réaliser cette liste droulante imbriquée. (j'ai énormément de mal à maitriser les fonctions INDIRECT, EQUIV, DECALER)
En colonne A se fait le 1er choix, puis les colonnes B et C dépendent de la colonne A (il faut suivre le code des couleurs)

Je vous remercie