Macro qui réagit en fonction d'une liste

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

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...

Bonsoir,

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

Cordialement

Bruno

Voici ce que j'ai deja fait :

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

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:

---

Private Sub Worksheet_Change(ByVal Target As Range)

---

, et que je change le mois, Excel plante

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:

---

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

---

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

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

Bonjour,


Je tepropose une méthode qui consiste à nommer le plages de cellules avec le nom de l'option sélectionnées à l'étape précédente.

La plage de cellules correspondant à la sélection "Action" doit s'appeler "Action"
Celle correspondant à la selection "Obligation" doit s'appeler "Obligation"...

La première plage est nommée "Actifs"

Comme la dernière plage ne semble pas dépendre de la sélection de la colonne B mais de la seélection de la colonne A, j'ai utilisé un artifice pour nommer les plage de cellules, j'ai utilisé les noms de la plage "Actifs" auquels j'ai ajouté "_C".

Pour les listes déroulantes,
La première utilise la plage de données "Actifs" comme validation es données.
La seconde utilise la fonction suivante:

Code:

---

=INDIRECT($A$21)

---

La troisième utilise la fonction suivante:

Code:

---

=INDIRECT($A$21 & "_C")

---

Dans le fiichier transmis, il n'est pas possible de distinguer Obligation et Obligation Convertible, je n'ai donc pas traité les deuxième, mais le principe reste le même

c'est génial, :king:
merci bcp