Colorier dates de vacances
Le
L-A

bonjour
comment colorier mes dates de vacances dans mon calendrier créé e=
n semaine.
cel m'importe pour la suite car j'ai des formations à mettre et je vou=
drai que ca ne compte pas les périodes ou le centre est fermé
je vous mets mon fichier en pj
merci
https://www.cjoint.com/c/JJjtFIDlHA7
comment colorier mes dates de vacances dans mon calendrier créé e=
n semaine.
cel m'importe pour la suite car j'ai des formations à mettre et je vou=
drai que ca ne compte pas les périodes ou le centre est fermé
je vous mets mon fichier en pj
merci
https://www.cjoint.com/c/JJjtFIDlHA7
Bonjour,
Désolé, je ne comprends pas la donne de ton problème.
Donne un exemple concret à partir des données de ton fichier sur ce que
tu veux réaliser.
MichD
Le 10/10/2020 à 10:06, L-A a écrit :
Si c'est toi qui remplit la feuille 'PLANNING' il serait plus simple de mettre un indicateur pour
le début et la fin de tes activitées.
Bonjour MichD
oui les dates je les mets moi meme surtout pour l'activité 1
car après j'aimerai que ca se calcul tout seul
mais comme je le disais auparavant j'aimerai que ca prenne en compte les da tes de fermeture
si l'activité 1 est de 3 semaines et que dans ce créneau il y a 2 semaines de vacances, au final on aura une durée "calendaire " de 5 s emaines
Bon si je comprend bien pour l'instant c'est toi qui remplit la feuille 'PLANNING'
mais tu aimerais que la feuille 'PLANNING' se remplisse toute seule en fonction
de ce que tu auras saisi dans la feuille 'VACANCES' (date début en I2 et nb de semaine en I3)
j'ai bon ou pas ?
Nota : Ta formule en L2 n'est pas correcte puisque tu fonctionne par semaine.
Le 10/10/2020 à 13:57, L-A a écrit :
Ben maintenant c'est plus clair, mais cela change la donne et à mon avis ce que tu veux obtenir ne
peux se faire qu'avec du VBA.
Et moi en ce moment j'ai pas trop le temps.
Le 10/10/2020 à 17:50, L-A a écrit :
Si j'ai bien compris voici une façon de faire à adapter si besoin :
Il suffit de doublecliquer dans la cellule (K2 puis N2) pour avoir le résultat.
https://mon-partage.fr/f/NRJQ03HI/
Nota : J'utilise 3 plages nommées
[...]
Ok si à l'occasion je rencontre MichD je lui transmettrais.
En attendant voici une version un peu modifiée du fichier précédent :
https://mon-partage.fr/f/9cJ254kG/
Le 12/10/2020 à 18:39, L-A a écrit :
J'ai rajouté une gestion d'erreur pour le résultat Date que je récupère dans la feuille 'PLANNING'
et j'ai simplifié une partie du code.
Ah pour moi le A de A1, A2 c'était pour l'activité pas pour la classe ?
Le 12/10/2020 à 18:39, L-A a écrit :
Autant pour moi
Remplace la ligne suivante :
sAct = "A" & Right(Worksheets("VACANCES").Cells(iLig - 1, iCol).Value, 1)
par
sAct = "A" & Right(Worksheets("VACANCES").Cells(1, iCol).Value, 1)
Le 12/10/2020 à 19:22, L-A a écrit :
Oui le double click est obligatoire car c'est cet événement qui déclenche le traitement.
Mais on peut faire autrement ;)
Tu peux réutiliser ma Procédure 'Gestion_Activite'
Par exemple (j'ai pas testé donc à adapter si besion) tu affecte la procédure suivante à un bouton :
Sub Action_Bouton
Dim iCol As Long, iLig As Long
For iLig = 2 To 5
For iCol = 11 To 20 Step 3
Worksheets("VACANCES").Cells(iLig, iCol).Select
If IsDate(ActiveCell.Value) Then Gestion_Activite
Next iLig
Next iCol
End Sub