Résolu Selection plage en fonction d'une date

moi_ces_moi

XLDnaute Nouveau
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
 

Fichiers joints

moi_ces_moi

XLDnaute Nouveau
Après quelque heure de recherche j'ai trouvé.
Voilà pour qui ça peut intéresser.
VB:
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

XLDnaute Barbatruc
Supporter XLD
Re,
ou avec une macro :
VB:
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.
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas