Bouton double affichage

[Ilino]

Bonsoir Forum
je cherche le code d'un bouton quand je clique il masque des colonne ( et il s'affiche sur le caption AFFICHER) quand je reclique une autre fois il s'affiche des colonne ( et sur le caption s'affiche MASQUER)
A+

 

[Robert]

Re : Bouton double affichage

Bonsoir Ilino, bonsoir le forum,

En pièce jointe un petit exemple à adapter avec le code ci-dessous :

Private Sub CommandButton1_Click() 'bouton "Aficher/Masquer"
ActiveCell.Select 'enlève le focus au bouton
If Me.CommandButton1.Caption = "Masquer" Then 'condition : si le texte du bouton est "Masquer"
    Columns(5).Hidden = True 'masque la colonne 5 (à adapter à ton as)
    Me.CommandButton1.Caption = "Afficher" 'modifie le texte du bouton
    Me.CommandButton1.Accelerator = "A" 'modifie le raccourci clavier du bouton
Else 'sinon
    Columns(5).Hidden = False 'affiche la colonne 5 (à adapter à ton as)
    Me.CommandButton1.Caption = "Masquer" 'modifie le texte du bouton
    Me.CommandButton1.Accelerator = "M" 'modifie le raccourci clavier du bouton
End If 'fin de la condition
End Sub

Le fichier :

 

[Ilino]

Re : Bouton double affichage

Bonsoir Robert
merci pour la réponse Rapide
GRAZIE
A+

 

[Ilino]

Re : Bouton double affichage

Re Robert
et si j'ai plusieurs colonnes je dois les mettre un par un?

Columns(16).Hidden = True 'masque la colonne 16
Columns(17).Hidden = True

A+

 

[Robert]

Re : Bouton double affichage

Bonsoir Ilino, bonsoir le forum,

Essaie comme ça :

Range("P1:R1").EntireColumn.Hidden = True '(colonnes conjointes P à R)
Application.Union(Range("P1:Q1"), Range("S1")).EntireColumn.Hidden = True '(colonnes disjointes P, Q et S)

 

[Ilino]

Re : Bouton double affichage

Bonsoir Robert
GRAZIE ça fonctionné tres bien
A+

 

[Ilino]

Re : Bouton double affichage

Bonsoir Ilino, bonsoir le forum,

Essaie comme ça :

Range("P[COLOR="#FF0000"][U]1[/U][/COLOR]:R[COLOR="#FF0000"][U]1[/U][/COLOR]").EntireColumn.Hidden = True '(colonnes conjointes P à R)
Application.Union(Range("P1:Q1"), Range("S1")).EntireColumn.Hidden = True '(colonnes disjointes P, Q et S)

BONSOIR ROBERT
un eclaircissement : que signifie le 1 de P et Q ? est ce que le debut du tableau ?
A+

 

[Robert]

Re : Bouton double affichage

Bonjour Ilino, bonjour le forum,

Tu as deux styles pour les références d'Excel. Le Style A1, ou les colonnes sont des lettres de l'alphabet et les lignes des numéros, et le style R1C1 ou les références utilisent les lignes (Row) et les colonnes (Column) avec des numéros. Pour me poser cette question c'est, je pense, parce que tu utilises le style R1C1. Et pour y répondre, Oui, ça indique la cellule en ligne 1. Comme après on lui dit de considérer la colonne entière (EntireColumn) on aurait pu écrire n'importe quel numéro correspondant à une ligne (de 1 à 65536 / Excel 2003 - 1 à 1048576 / Excel 2007 et +).