XL 2021 Comment lister mardi et mercredi d'une année VBA

[Nicos]

Bonjour à tous,

Comment lister les mardi et les mercredi d'une année en VBA

Merci d'avance

 

[job75]

J'interviens pour donner un conseil à Nico_J.

Quand on veut vraiment comprendre un code VBA il faut prendre chaque ligne une par une et ne pas aller plus loin tant qu'on ne l'a pas complètement comprise.

Pour cela ne pas hésiter à demander de l'aide sur le forum.

 

[Nicos]

J'interviens pour donner un conseil à Nico_J.

Quand on veut vraiment comprendre un code VBA il faut prendre chaque ligne une par une et ne pas aller plus loin tant qu'on ne l'a pas complètement comprise.

Pour cela ne pas hésiter à demander de l'aide sur le forum.

re, j'essais, j'essais, mais ça me gêne de trop demander ( d'autres savent), vous avez déjà fait beaucoup, c'est pour ça que j'essai de comprendre de moi même.
Je suis sur votre fichier depuis 2 jours à essayer de comprendre ligne par ligne

 

[ChTi160]

Re
Un fichier que j'ai tenté de simplifier (pour une meilleure compréhension) avec des commentaires dans une partie du Code(si besoin je ferai le reste) !
j'ai mis un Bouton pour créer la Liste des dates concenées ! Mardi et Mercredi (jours 3 et 4 de la semaine)
a voir ! et tu nous dis Lol
Jean marie

 

[patricktoulon]

le problème avec Nicolas c'est que c'est comme un enfant qui découvre un nouveau jouet
il veut toute les options
et c'est pas nouveau je connais le bonhomme
à trop en vouloir on ne retient rien(je rejoint @job75)
mieux vaut en maitriser un peu que pas du tout
Bonne nuit Nicolas

 

[ChTi160]

Bonjour le Fil
une question
Quand tu dis : "la date la plus proche"
pourquoi une date passée plutôt que toujours la date à venir ?
Jean marie

 

[job75]

Bonjour ChTi160

Quand tu dis : "la date la plus proche"
pourquoi une date passée plutôt que toujours la date à venir ?

Avec ma macro la date peut être passée ou à venir, c'est toujours la plus proche.

A+

 

[patricktoulon]

re
et avec mon modèle vba aussi
principe de l'ABS de datediff("d",date1,date2)
Q = Abs(DateDiff("d", Date, D, vbMonday, vbUseSystem)): If Q < Q2 Then Q2 = Q

d'ailleurs dans mon modèle il y a une liste déroulante pour changer l'année
pour 2025 le jour le plus proche sera forcement le 01/01/2025
pour 2023 le jour le plus proche ce sera forcement le 31/12/2023