Bonjour, voici ce que ma fait Sylvanu et ça fonctionne super bien, mais pas sur GSheets
et j'aimerais l'adapter sur GSheets
Merci et belle journée
Kinay
VB:
Sub Worksheet_Change(ByVal T As Range)
If T.Count > 1 Then Exit Sub
If Not Intersect(T, [B13]) Is Nothing Then ' Si B13
Application.ScreenUpdating = False ' Figer écran
Columns("C:OE").EntireColumn.Hidden = True ' Tout démasquer
' Masquer du début à la semaine considérée
Range(Cells(1, 7 * [B13] - 6), Cells(1, 395)).EntireColumn.Hidden = False
End If
End Sub
et j'aimerais l'adapter sur GSheets
Merci et belle journée
Kinay