Ajouter dates sur feuille excel à partir d'un userform

Bonjour,

Essaie comme ceci. J'ai utilisé des variables pour contenir les dates.

À partir des dates contenues dans le DTPicker, tu devrais renseigner directement
les variables et par la suite renseigner les textbox des 2 dates retenues pour
chacun des textbox. Cela suppose que tu ajoutes une ou 2 lignes de code à
la procédure.

'-------------------------------------------------------------------
Sub Test()
Dim Start As Date
Dim Fin As Date, DerLig As Long

Start = DateSerial(2015, 1, 25)
Fin = DateSerial(2015, 2, 12)

Application.EnableEvents = False
Application.ScreenUpdating = False

'Onglet de feuille à adapter
With Worksheets("Feuil1")
'Ligne de départ
DerLig = .Range("A" & Rows.Count).End(xlUp).Row + 1

Do While Start <= Fin
If VBA.Weekday(Start, 2) < 6 Then
.Range("A" & DerLig) = CDate(Start)
.Range("B" & DerLig) = "Vacances"
.Range("C" & DerLig) = TimeValue("7:30:00")
.Range("C" & DerLig).NumberFormat = "H:MM"
DerLig = DerLig + 1
End If
Start = Start + 1
Loop
End With

Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub
'-------------------------------------------------------------------




"Denys" a écrit dans le message de groupe de discussion :
40a84264-c400-4345-b72f-c793129a1671@googlegroups.com...

Bonjour à tous,

Je vais essayer d'être aussi clair que possible:

Sur un userform, il y a un calendrier DTPicker avec lequel l'usager choisit une date de départ pour
ses vacances; dès que la bonne date est inscrite sur le DTPicker, l'usager coche un Checkbox(1) et
la date apparait dans un textbox(1) juste à côté.

Ensuite, l'usager choisit une date de fin de vacances, coche un autre checkbox(2) et la date de fin
de vacances apparait sur un autre textbox(2).

Jusque-là, ça va. Ce que je voudrais par contre, c'est que sur une feuille excel en colonne A
apparaisse la première date choisie, en colonne B le mot Vacances et en colonne C le temps 7:30.

Ensuite, la ligne suivante apparaisse la deuxième journée en colonne A, le mot Vacances en colonne B
et 7:30 en colonne C

Ainsi de suite en excluant les fins de semaine et jours fériés (JF) dans mon cas jusqu'à la date
choisie pour la fin des vacances....Il pourrait donc y avoir 15 lignes de suite si l'usager prend
trois semaines de vacances.

Est-ce que c'est possible?

Merci pour votre temps et vos idées

Denys

Bonjour Denis,

C'est excellent et ça fonctionne comme un charme !!!

Merci beaucoup !!!!

Denys

Le 08/10/2015 21:01, Denys a écrit :

C'est excellent et ça fonctionne comme un charme !!!

Ah bon ? Moi j'ai jamais vu de charme fonctionner..., je les ait même
jamais vu bouger ;-)

https://goo.gl/CwGZRZ

--
JièL sérieux s'abstenir ;-)

Même par grand vent?



Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"JièL" a écrit dans le message de groupe de discussion :
mv6m5u$b4b$1@speranza.aioe.org...

Le 08/10/2015 21:01, Denys a écrit :

C'est excellent et ça fonctionne comme un charme !!!

Ah bon ? Moi j'ai jamais vu de charme fonctionner..., je les ait même
jamais vu bouger ;-)

https://goo.gl/CwGZRZ

--
JièL sérieux s'abstenir ;-)


---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com

Le jeudi 8 octobre 2015 17:11:31 UTC-4, JièL a écrit :

Le 08/10/2015 21:01, Denys a écrit :
> C'est excellent et ça fonctionne comme un charme !!!

Ah bon ? Moi j'ai jamais vu de charme fonctionner..., je les ait même
jamais vu bouger ;-)

https://goo.gl/CwGZRZ

--
JièL sérieux s'abstenir ;-)

Mon amoureuse a plein de charmes......et ça fonctionne très bien crois- moi !! :-)