cibleo
XLDnaute Impliqué
Bonsoir le forum,
J'aimerais revoir ce bloc d'instructions placé dans la macro du module1.
Pour comprendre, cliquez sur le bouton dans le fichier joint.
Des feuilles hebdomadaires sont crées avec leurs dates respectives.
Dans la feuille "VacancesScolaires" figurent les périodes de vacances scolaires.
Pour chaque feuille créée, j'aimerais mettre en forme les plages de dates concernées par ces périodes de vacances scolaires.
Ici seule la première période (du 05 janvier au 18 janvier) est prise en compte.
Les plages sont bien coloriées (voir feuilles concernées)
Je ne vois pas comment définir les variables DateFrom et DateTo pour prendre en compte toutes les périodes.
Pouvez-vous m'aider à modifier mon code ?
Merci Cibleo
J'aimerais revoir ce bloc d'instructions placé dans la macro du module1.
Pour comprendre, cliquez sur le bouton dans le fichier joint.
VB:
.../...
'Ceci est à revoir, il faut parcourir tous les intervalles
With Sheets("VacancesScolaires")
DateFrom = .Range("A3") 'début des vacances
DateTo = .Range("B3") ' fin des vacances
End With
'La variable tableau contient les 7 dates de la feuille nouvellement créée
tableau = Sheets(Sheets.Count).Range("A4:A10")
For t = 1 To UBound(tableau)
' Si les dates contenues ds la variable Tableau sont comprises dans l'intervalle [DateFrom - DateTo]
If tableau(t, 1) >= DateFrom And tableau(t, 1) <= DateTo Then
'je colorie la plage de dates concernées dans la feuille nouvellement créée
Sheets(Sheets.Count).Range("A" & t + 3).Interior.ColorIndex = 43
End If
Next t
.../...
Dans la feuille "VacancesScolaires" figurent les périodes de vacances scolaires.
Pour chaque feuille créée, j'aimerais mettre en forme les plages de dates concernées par ces périodes de vacances scolaires.
Ici seule la première période (du 05 janvier au 18 janvier) est prise en compte.
Les plages sont bien coloriées (voir feuilles concernées)
Je ne vois pas comment définir les variables DateFrom et DateTo pour prendre en compte toutes les périodes.
Pouvez-vous m'aider à modifier mon code ?
Merci Cibleo