Calendrier en fonction des jours choisis

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide pour afficher en colonne un calendrier en fonction des *jours choisis (*type Lundi,Mardi ect).

Par formule ou VBA, pas de contrainte.

voir fichier...

Merci pour votre aide.

Bien à vous,
Christian

 

[Christian0258]

Re : Calendrier en fonction des jours choisis

Re, le forum, Softmama,

Merci, Softmama, pour ton super travail.

Dis-moi j'ai placé le bout de code suivant tes explications, mais il me semble que les dates sont maintenant copiées dans la feuille "Calendrier". ?

à te lire,
Encore un grand merci.

Bien à toi,
Christian

 

[Softmama]

Re : Calendrier en fonction des jours choisis

Bonjour,

En effet, il faut pas oublier Sheets("Dates"). devant les références de la cellule e, sinon il va pointer sur la feuille active.
comme ceci :

with sheets("Dates")
  if .[B4] = "" then
    if  .[A4] = "" then
        set e = .[A4]
    else
        set e = .|B4]
    end if
  else
    Set e = .Range("A4").End(xlToRight).Offset(0, 1)
  end if
end with

 

[Christian0258]

Re : Calendrier en fonction des jours choisis

Re, le forum, Softmama,

Un grand merci, Softmama, c'est parfait.

Mes excuses pour le dérangement.

Bien à toi

amitiés,

Christian