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
Merci pour ce que tu as fait et belle journéeBonjour Combaud,
Les syntaxe VBA et "VBA" GoogleSheet sont différents.
( Voir ex : https://forums.commentcamarche.net/...atibilite-macros-excel-et-macros-google-sheet )
Et je ne connais pas la syntaxe google, je ne l'ai jamais pratiqué.
Refaites un post ici : https://www.excel-downloads.com/forums/autres-applications.22/ vous aurez surement une réponse plus adéquate.