Bonjour,
Mon problème est assez simple à première vu, j'ai ce tableau excel en PJ.
Je voudrais appliquer la méthode Find pour rattacher la à chaque date du calendrier sa disponibilité dur la colonne.
avec le code ci-dessous, je trouve bien la première colonne du jour mais ne n'arrive pas à faire une boucle sur tout les éléments trouvés pour faire correspondre ne jour au mois. lorsque je relance la recherche, elle s'arrête toujours à la première valeur trouvée.
Quelqu'un aurait'il une Idée svp?
Merci au forum.
Dim sysdate As Date
sysdate = Format(DateSerial(Year(Date), Month(Date), Day(Date)), "dd/mm/yyyy")
a = Year(Date)
b = Month(Date)
c = Day(Date)
Valeur_Cherchee = c
Set Plage = Feuil25.Range("D7:O44")
'Set trouve = Plage.Cells.Find(what:=Valeur_Cherchee, lookAT:=xlWhole)
If Not trouve Is Nothing Then
o = trouve.Column
If Feuil25.Cells(1, o) <> b Then
Set trouve = Plage.Cells.Find(what:=Valeur_Cherchee, lookAT:=xlWhole)
o = trouve.Column
End If
End If