Google Sheets VBA Xls google Sheet

combaud

XLDnaute Nouveau
Bonjour, voici ce que ma fait Sylvanu et ça fonctionne super bien, mais pas sur GSheets

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
 

Pièces jointes

  • TEST Sheet 1.03.xlsm
    168.7 KB · Affichages: 3

Discussions similaires

Réponses
2
Affichages
324
Réponses
3
Affichages
196