XL 2016 compilation macro on/off

job75 à dit:

Bonjour eatswick,

C'est pourtant classique, VBA comprend que Columns("B:B") est une colonne de la feuille où se trouve la macro.

Or vous changez de feuille juste avant avec Sheets("H").Activate donc on ne peut pas sélectionner la colonne.

En VBA il faut autant que possible éviter les Select ou les Activate.

Revoyez le code en précisant bien les feuilles des objets Range.

A+

Cliquez pour agrandir...

dysorthographie à dit:

bonjour,
sachant que le ToggleButton a 3 état {True, False, Null} qu'est-ce qui justifie l'utilisation de ce contrôle ?

pour les select, selection et autres Activate tu fusionner les institutions.

Code:

'Sheets("H").Activate
'Columns("B:B").Select
'Range("C1").Activate
'Selection.EntireColumn.Hidden = False

Sheets("H").Range("C1").EntireColumn.Hidden = False

Cliquez pour agrandir...

sylvanu à dit:

Bonjour Eastwick, dysorthographie, Job,
En PJ un essai avec :

VB:

Private Sub ToggleButton1_Click()
    Dim Tablo, i%, Texte$, Etat As Boolean
    Tablo = Array("H", "H_bis", "J", "E", "B", "P", "Q", "C", "A")
    If ActiveSheet.ToggleButton1 Then
        Texte = "Afficher": Etat = False
    Else
        Texte = "Masquer": Etat = True
    End If
    ActiveSheet.ToggleButton1.Caption = Texte
    For i = LBound(Tablo) To UBound(Tablo)
        Sheets(Tablo(i)).[B:B].EntireColumn.Hidden = Etat
    Next i
End Sub

Le Tablo réfère toutes les feuilles concernées.
Suivant l'état du Toogle on met à jour deux variables : le texte à afficher et l'état de la colonne B.
Sur toutes les pages on masque/démasque la colonne B et on met à jour le texte du toogle.

Cliquez pour agrandir...