XL 2016 compilation macro on/off

[eastwick]

Bonjour à toutes et tous,
J'ai 2 macros, une pour masquer la colonne B de plusieurs onglets, l'autre pour l'afficher. Si je veux compiler mes 2 macros sur un ToggleButton, ça ne fonctionne plus.
Voici mon code :
Private Sub ToggleButton1_Click()
If ActiveSheet.ToggleButton1 Then
ActiveSheet.ToggleButton1.Caption = "afficher"
Sheets(Array("H", "H_bis", "J", "E", "B", "P", "Q", "C", "A")).Select
Sheets("H").Activate
Columns("B:B").Select
Range("C1").Activate
Selection.EntireColumn.Hidden = False
Range("A1").Select
Sheets("table").Select
Range("G2").Select
Else
ActiveSheet.ToggleButton1.Caption = "masquer"
Sheets(Array("H", "H_bis", "J", "E", "B", "P", "Q", "C", "A")).Select
Sheets("H").Activate
Columns("A:C").Select
Selection.EntireColumn.Hidden = True
Range("A1").Select
Sheets("table").Select
Range("G2").Select
End If
End Sub

J'ai mis en rouge où le code coince.

Je vous remercie.

 

[job75]

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+

 

[eastwick]

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+

Merci job75 mais pouvez- vous m'aiguiller svp ?

 

[dysorthographie]

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.

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

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

 

[eastwick]

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.

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

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

Euh, j'ai rien pigé ! le VBA et moi ça ne le fait pas, pourtant je l'adore !

 

[sylvanu]

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

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.

 

[eastwick]

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

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.

Impeccable, merci beaucoup

 

[job75]

Perso je ferais simplement :

Private Sub ToggleButton1_Click()
Dim w As Worksheet
ToggleButton1.Caption = IIf(ToggleButton1, "Afficher", "Masquer")
For Each w In Sheets(Array("H", "H_BIS", "J", "E", "B", "P", "Q", "C", "A"))
    w.Columns(2).Hidden = ToggleButton1
Next
End Sub