code pour toogle bouton

M

myDearFriend

Guest

• 4 Juillet 2004

• #2

Bonjour Patricia,

Tu trouveras ci-joint un petit exemple très très simple (si j'ai bien compris ta demande) :

Private Sub btnToggleButton_Click()
Columns(2).Hidden = btnToggleButton.Value
Columns(5).Hidden = btnToggleButton.Value
Columns(6).Hidden = btnToggleButton.Value
Columns(9).Hidden = btnToggleButton.Value
End Sub



Cordialement,
Didier_mDF

 

Pièces jointes

• PourPatricia.zip

  7.9 KB · Affichages: 32

Vote positif 0 Vote négatif

P

PATRICIA.750190

Guest

• 4 Juillet 2004

• #3

Merci DIDIER, c'est O.K

 

Vote positif 0 Vote négatif

G

Gérard DEZAMIS

Guest

• 4 Juillet 2004

• #4

Bonsoir Patricia

Serait-il possible ve voir sur un petit fichier ce que cela donne ?
Je suis un peu perdu j'obtiens Faux et Vrai mais ....

Les conseils de myDearFriend sont toujours avisés alors ... j'en profite
Merci d'avance.
@+
GD

 

Vote positif 0 Vote négatif

M

myDearFriend

Guest

• 4 Juillet 2004

• #5

Bonsoir Gérard,


Merci du compliment qui me touche vraiment.

Avec ma réponse à Patricia plus haut dans ce fil, il y a justement l'exemple joint )

La propriété "Value" du ToggleButton retourne effectivement True/False et comme la propriété "Hidden" des colonnes demande également une valeur boolean, le plus simple consiste donc à écrire dans l'évènement Click du bonton bascule :

Columns(x).Hidden = ToggleButton.Value

Autrement dit : Columns(x).Hidden = True quand le bouton est enfoncé et False dans le cas contraire.


Cordialement,
Didier_mDF

 

Vote positif 0 Vote négatif

G

Gérard DEZAMIS

Guest

• 5 Juillet 2004

• #6

Bonjour MDF et Pat

Merci

Effectivement dans ma fébrilité je n'avais pas vu qu'il y avait un PourPatricia.zip qui trainait... Surement un effet pré-footbalistique !

Merci encore

@+
GD

 

Vote positif 0 Vote négatif