Si vous devez masquer certaines colonnes à l’aide d’un bouton, vous pouvez utiliser ce code. Il changera même le texte du bouton de commande en Masquer les colonnes, puis le changera à nouveau en Afficher les colonnes.

Sous Hide_C ()

Dim C_ell As Range ActiveSheet.Shapes.Range (Array (« Button 2 »)). Select If Selection.Characters.Text = « Unhide Columns » Then Columns.Hidden = False Selection.Characters.Text = « Hide Columns »

Sinon pour chaque C_ell In Range (« B1 », Cells (1, Columns.Count) .End (xlToLeft))

If C_ell = « x » Then C_ell.Columns.Hidden = True Next Selection.Characters.Text = « Afficher les colonnes »

End If Range (« A2 »). Sélectionnez End Sub