Bonjour le forum
Peut-on faire afficher sur tout le classeur à partir de Janvier?
Macros toutes dans ThisWorkbook
Merci à vous pour vos éventuels retours
Cordialement
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If InStr(1, "JanvierFévrierMarsAvrilMaiJuinJuilletAoûtSeptembreOctobreNovembreDécembre", _
Split(Sh.Name, " ")(0), vbTextCompare) Then
ActiveWindow.ScrollRow = 1
End If
End Sub
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Count = 1 Then
If Not Intersect(Target, [A3]) Is Nothing Then
If Not Target.Comment Is Nothing Then AfficherMasquerDistanceMoisPrecedent
End If
If Not Intersect(Target, [G1]) Is Nothing Then
AfficherMasquerColonneH
End If
End If
End Sub