Selection plage en fonction d'une date

[moi_ces_moi]

Bonjour,

est il possible de placer avec le bouton, un "H" dans le tableau de la page "année" en fonction de la date et en face de chaque personne, en fonction des jours férié specifier dans la page "parametres" ?

J'ai essayé en vain, je me suis perdu dans le méandre des code du VBA.


Merci d'avance

 

[moi_ces_moi]

Après quelque heure de recherche j'ai trouvé.
Voilà pour qui ça peut intéresser.

Private Sub CommandButton1_Click()
Sheets("année").Select
Dim c As Date
c = Sheets("année").Rows(1).Find(what:=Range("a2").Value, LookIn:=xlValues)
Dim x As Range
Set x = Sheets("année").Range("b1:q1").Find(c, , xlValues, xlWhole, , , False)
ActiveSheet.Range(ActiveSheet.Cells(4, x.Column), ActiveSheet.Cells(8, x.Column)).FormulaR1C1 = "H"
End Sub

 

[sylvanu]

Bonjour ,
Une autre approche en PJ avec une formule et une MFC.
Ne réponds pas strictement à la demande mais peut être une alternative simple sans VBA.

 

[sylvanu]

Re,
ou avec une macro :

Sub PlacerJoursFeriés()
For L = 4 To 8
    For C = 2 To 17
        If Not IsError(Application.Match(Cells(1, C), [JoursFériés], 0)) Then
            Cells(L, C) = "H"
        End If
    Next C
Next L
End Sub

à adapter à votre fichier réél.