Quel horaire ?comment afficher l´horaire entre deux dates choisies (par exemple entre le 25 janvier et le 5 février)?
2 | mer | jeu | ven | sam | dim | lun | mar | mer | jeu | ven | sam | dim |
prénom | 25.1 | 26.1 | 27.1 | 28.1 | 29.1 | 30.1 | 31.1 | 1.2 | 2.2 | 3.2 | 4.2 | 5.2 |
Pierre | 6 | 14 | 14 | 6 | 6 | 14 | 14 | 22 | 22 | |||
Paul | 6 | 6 | 14 | 14 | 14 | 6 | 6 | |||||
Linda |
Désolé, pas compris. Quelle première réponse ?ce serait l´horaire global à mettre au même endroit que dans la première réponse
comment afficher l´horaire entre deux dates choisies
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C2:C3")) Is Nothing Then Exit Sub
On Error Resume Next
Columns("D:PZ").Hidden = False
ColDeb = Range("D6:NE6").Find(Format(Range("C2"), "d.m"), , xlValues, xlWhole).Column
ColFin = Range("D6:NE6").Find(Format(Range("C3"), "d.m")).Column
ColSup = Range("NF6:PZ6").Find(Format(Range("C2"), "mmm")).Column
Union(Columns("D:NE"), Columns("NG:PZ")).EntireColumn.Hidden = True
Range(Cells(1, ColDeb), Cells(1, ColFin)).EntireColumn.Hidden = False
Columns(ColSup).Resize(, 5).Hidden = False
End Sub