Calendrier entre deux dates

[denis]

Bonjour à tous

Mon problème du jour est:

avec un user, je donne une date de début de vacances et une date de fin de vacances, je les place en (C1 pour le début ) et (C2 pour la fin ), là pas de prob.
Mais et-il possible par macro ou fonction de renvoyer dans la colonne suivante le calendrier de début de vacances à la fin des vacances
voila si quelqu'un a la soluce
d'avance merci.
@+denis

 

[ZON]

Salut Denis et le forum,

Je comprends rien , un exemle zippé avec des explications plus précises. tu parles de calendrier le controle calendar ? ...

A+++

 

[Celeda]

Bonsoir,

Suis ce fil, tu vas tomber sur un calendrier qui te permettra de coller dans tes cellules verticalement ou horizontalement toutes les dates entre le
début et la fin des vacances, si cela que tu souhaites.

Lien supprimé

Celeda

 

[C@thy]

Bonjour Denis, Zon, Celeda et tutti quanti,

tu veux un bout de calendrier? Ben j'ai pas ça en magasin, comment faire si tu as des semaines complètes et des semaines incomplètes?

Je te joins un calendrier fait à partir d'un exemple trouvé sur le forum et rebidouillé par loi, mais je ne sais pas qui est l'auteur initial (merci à lui, elle, si il, elle se reconnaît).

 

[denis]

Bonjour à tous

Merci Zon, Celeda, Cathy, et tous

Zon demande un bout de prog, le voici en fait je suis en train de rebidouiller un prog, sur un generateur de calendrier il me donne le jour,le mois,l'année et 6 cellules avec le format horaire [hh]:mm dans la 6 èm il me fait la somme de la ligne et en bas le total d'heures mais j'aimerais bien que pendant les vacances il me marque rien du tout ( c'est mieux non? ).
voila si une idée passe faite moi signe
d'avance merci
@+ denis

 

[denis]

re bonjour ou bonsoir

A force de chercher, désoler je suis aller sur le site de Frederic Sigonneau et là, sur les calendriers c'est la mine.
donc voila une soluce qui me va

Sub CalendrierLudo()
'fs, mpfe
Dim deb#, fin#, NbJours&, i#
Dim Cell As Range, Li&, Col%

On Error Resume Next
deb = CDate(InputBox("Première date du calendrier :"))
fin = CDate(InputBox("Dernière date du calendrier :"))

If Err <> 0 Then Exit Sub

Set Cell = Application.InputBox _
("Sélectionnez la cellule où commence le calendrier", Type:=8)

If Err <> 0 Then Exit Sub

Li = Cell.Row: Col = Cell.Column

For i = deb To fin
Cells(Li, Col).Value2 = i
If Weekday(i, vbMonday) > 5 Then _
Cells(Li, Col).Interior.ColorIndex = 6
Cells(Li, Col).NumberFormatLocal = "jjjj jj/mm/aaaa"
Li = Li + 1
Next i
End Sub

Merci à tous
@+denis

 

[C@thy]

Tiens, cpmme ça, vite fait, je t'ai bidouillé un truc à partir d'un calendrier de Pascal Liberty.

Bonne journée

 

[C@thy]

mille pardons, je mé trompé de fichier,

voici la dernière modif

 

[denis]

bonsoir à tous

Merci Cathy
pas mal du tous je vais décortiquer ,
grand merci
salutations @+denis

 

[C@thy]

Celeda m'a signalé un bug d'exsécution, voici la version corrigée.

Bonne journée