Heure système pour calendrier
Bonjour,
Le calendrier que j'ai créé s'ouvre automatiquement à la date du jour grâce à cette macro à l'ouverture :
Dim Col As Integer, DerCol As Integer, LibFMois(12)
Dim DateJ As Date, Sht As Worksheet
' Définir le tableau des libellés des feuilles mois
LibFMois(1) = "janv": LibFMois(2) = "Fev": LibFMois(3) = "Mars": LibFMois(4) = "Avr": LibFMois(5) = "Mai": LibFMois(6) = "juin": LibFMois(7) = "juil": LibFMois(8) = "Août": LibFMois(9) = "sept": LibFMois(10) = "Oct": LibFMois(11) = "nov": LibFMois(12) = "dec":
DateJ = Format(Now(), "dd/mm/yyyy")
' Définir la feuille en fonction de son libellé du mois
Set Sht = Sheets(LibFMois(Month(Now())))
' Avec la feuille en question
With Sht
' La sélectionner
.Select
' Déterminer la dernière colonne
DerCol = .Cells(1, Columns.Count).End(xlToLeft).Column
' Pour toutes les colonnes par lot de 4
For Col = 9 To DerCol Step 4
' Trouver celle correspondant à la date du jour
If DateValue(.Cells(1, Col)) = DateJ Then
' Si trouvée, la séectionner
.Cells(1, Col).Select
Exit For
End If
Next Col
End With
Je voudrai maintenant, une fois la date système trouvée et sélectionnée, que la cellule qui correspond aux plages horaires et définies par des listes de validation dans les lignes qui vont de 4 à 26 (mais bien sûr, la colonne change chaque jour), soit sélctionée automatiquement selon l'heure système du PC.
Est-ce faisable et qui peut m'aider ? D'avance merci
Bonsoir
Bien de mettre une macro mais le plus du mieux serait de fournir un fichier afin d'éviter de refaire ce que tu as déjà fait
A suivre
Oups ! voici le fichier en question.
J'ai dû ôter toutes les feuilles sauf celle de ce mois de juillet, car fichier beaucoup trop lourd.