XL 2010 Afficher_Masquer_Colonnes

[CATPLUS]

Bonjour à tous,

Dans le classeur, j'ai plusieurs feuilles avec la même macro
2 boutons
1 => Afficher colonnes AB
2 => Masquer colonnes AB

Ma requête:
Comment puis-je à l'ouverture du document Afficher les colonnes AB dans toutes les feuilles.

Cordialement

 

[Eric C]

Re le fil

@ soan : En reprenant ton code avec un seul Bouton et 2 lignes de code en moins. Je suis joueur ce matin 🤣😂🤣

ThisWorkBook :

Private Sub Workbook_Open()
Feuil1.Activate: Job 0 'On se positionne sur la feuille 1 avec le Bouton et Affichage AB
End Sub

Code Feuil1 :

Private Sub CommandButton1_Click()
   If Left(CommandButton1.Caption, 1) = "A" Then Job 0 Else Job -1
   End Sub

Module1 :

Sub Job(k%)
  Dim i%: Application.ScreenUpdating = 0
  For i = 1 To Worksheets.Count
    Worksheets(i).Columns("A:B").Hidden = k
  Next i
  Feuil1.CommandButton1.Caption = IIf(k, "Afficher_Colonnes A-B", "Masquer_Colonnes A-B")
    End Sub

Bonne journée à toutes & à tous
@+ Eric c

 

[soan]

Re Eric,

code de ThisWorkbook : ok, c'est bon ; comme
ce matin tu es joueur, regarde ci-dessous... 😜

code de Feuil1 :

Private Sub CommandButton1_Click()
  Job Left$(CommandButton1.Caption, 1) = "M"
End Sub

code de Module1 :

Sub Job(k%)
  Dim i%: Application.ScreenUpdating = 0
  For i = 1 To Worksheets.Count
    Worksheets(i).Columns("A:B").Hidden = k
  Next i
  Feuil1.CommandButton1.Caption = _
    IIf(k, "Affich", "Masqu") & "er_Colonnes A-B"
End Sub

bonne journée à toi aussi. 🍀

soan