Boutons bascules en macro pour afficher ou cacher des colonnes

Question

Je ne comprends pas ce qui cloche dans mon code pour simplement afficher / cacher des colonnes à l'aide de boutons bascule. J'ai 4 boutons bien nommés (dans les propriétés, le champ (Name) correspond bien au nom de la fonction, et j'ai juste modifié le champ Caption). Seul le premier bouton semble fonctionner correctement. Voici le code : Private Sub ToggleButton1_Click() Dim A As String A = "H:J" If ToggleButton1.Value Then Application.ActiveSheet.Columns(A).Hidden = True Else Application.ActiveSheet.Columns(A).Hidden = False End If End Sub Private Sub ToggleButton2_Click() Dim B As String B = "K:L" If ToggleButton1.Value Then Application.ActiveSheet.Columns(B).Hidden = True Else Application.ActiveSheet.Columns(B).Hidden = False End If End Sub Private Sub ToggleButton3_Click() Dim C As String C = "P:U" If ToggleButton1.Value Then Application.ActiveSheet.Columns(C).Hidden = True Else Application.ActiveSheet.Columns(C).Hidden = False End If End Sub Private Sub ToggleButton4_Click() Dim D As String D = "B:F" If ToggleButton1.Value Then Application.ActiveSheet.Columns(D).Hidden = True Else Application.ActiveSheet.Columns(D).Hidden = False End If End Sub Merci :)...

Dan · Accepted Answer

Non cela fonctionne mais vos codes 2, 3 et 4 fonctionnent si votre bouton 1 est actionné puisque vous mentionnez toujours ToggleButton1.Value dans tous les codes. Si vous voulez utiliser vos bouton séparément, vous devez mentionnez ToogleButton2 dans le code 2, etc ... Si vous voulez que vos codes agissent séparément, le code 1 peut être simplifié comme ceci : Private Sub ToggleButton1_Click() Dim A As String A = "H:J" Columns(A).Hidden = Not Columns(A).Hidden End Sub NB : - La variable n'est pas utile. vous pouvez remplacer directement le A par "H:J" (idem pour les autres codes) - Activesheet ne sert pas puisque vos codes sont dans la feuille concernée Reste à adapter pour les autres codes Si ok Cordialement...