OVH Cloud OVH Cloud

Bouton de barre outil on/off

6 réponses
Avatar
RaMa
Bonjour à toutes et à tous

Je cherche comment créer un bouton (et/ou proc)de barre d'outil de type
toggle (comme le bouton "copier").
Pas trouver ni fils ni liens!!
Même à la quincaillerie de Fredéric Sigonneau qui avait déja ce problème en
09/2000 !!.

Merci

6 réponses

Avatar
mousnynao
Bonjour,

Si j'ai bien comprit !

Ex.:
'******************************
Sub Toggle ()

Static Flag as boolean

If (Flag) then
Flag = False
Toggle1
Else
Flag = True
Toggle2
End if

End Sub
'--------------------------------------
Sub Toggle1()
MsgBox "Premier"
End Sub
'--------------------------------------
Sub Toggle2()
MsgBox "Second"
End Sub
'***************************************

Il vous suffit d'accrocher le bouton sur la routine
Toggle.

@+
Mousnynao!

-----Message d'origine-----
Bonjour à toutes et à tous

Je cherche comment créer un bouton (et/ou proc)de barre
d'outil de type

toggle (comme le bouton "copier").
Pas trouver ni fils ni liens!!
Même à la quincaillerie de Fredéric Sigonneau qui avait
déja ce problème en

09/2000 !!.

Merci


.



Avatar
RaMa
Bonjour mousnynao
Non c'est pas la gestion commutée que je cherche
c'est l'image du bouton que je veux inverser en commutation comme le bouton
"coller"
Merci
"mousnynao" a écrit dans le message de
news: f5b201c3f16d$8c6367c0$
Bonjour,

Si j'ai bien comprit !

Ex.:
'******************************
Sub Toggle ()

Static Flag as boolean

If (Flag) then
Flag = False
Toggle1
Else
Flag = True
Toggle2
End if

End Sub
'--------------------------------------
Sub Toggle1()
MsgBox "Premier"
End Sub
'--------------------------------------
Sub Toggle2()
MsgBox "Second"
End Sub
'***************************************

Il vous suffit d'accrocher le bouton sur la routine
Toggle.

@+
Mousnynao!

-----Message d'origine-----
Bonjour à toutes et à tous

Je cherche comment créer un bouton (et/ou proc)de barre
d'outil de type

toggle (comme le bouton "copier").
Pas trouver ni fils ni liens!!
Même à la quincaillerie de Fredéric Sigonneau qui avait
déja ce problème en

09/2000 !!.

Merci


.



Avatar
RaMa
OK
je suis allé chercher loin ce que j'avais sous le nez

Avec controls et anabled j'avais ce que je voulais
Désolé pour ceux qui ont creusé. Bon je sais c'est for(um)mateur

Merci
RaMa
"RaMa" a écrit dans le message de news:
#
Bonjour mousnynao
Non c'est pas la gestion commutée que je cherche
c'est l'image du bouton que je veux inverser en commutation comme le
bouton

"coller"
Merci
"mousnynao" a écrit dans le message
de

news: f5b201c3f16d$8c6367c0$
Bonjour,

Si j'ai bien comprit !

Ex.:
'******************************
Sub Toggle ()

Static Flag as boolean

If (Flag) then
Flag = False
Toggle1
Else
Flag = True
Toggle2
End if

End Sub
'--------------------------------------
Sub Toggle1()
MsgBox "Premier"
End Sub
'--------------------------------------
Sub Toggle2()
MsgBox "Second"
End Sub
'***************************************

Il vous suffit d'accrocher le bouton sur la routine
Toggle.

@+
Mousnynao!

-----Message d'origine-----
Bonjour à toutes et à tous

Je cherche comment créer un bouton (et/ou proc)de barre
d'outil de type

toggle (comme le bouton "copier").
Pas trouver ni fils ni liens!!
Même à la quincaillerie de Fredéric Sigonneau qui avait
déja ce problème en

09/2000 !!.

Merci


.







Avatar
mousnynao
Re :

Il y a aussi le paramêtres FACEID du bouton
sur lequel vous pouvez jouer :)

mousnynao!
-----Message d'origine-----
OK
je suis allé chercher loin ce que j'avais sous le nez

Avec controls et anabled j'avais ce que je voulais
Désolé pour ceux qui ont creusé. Bon je sais c'est for(um)
mateur


Merci
RaMa
"RaMa" a écrit dans le message
de news:

#
Bonjour mousnynao
Non c'est pas la gestion commutée que je cherche
c'est l'image du bouton que je veux inverser en
commutation comme le


bouton
"coller"
Merci
"mousnynao" a
écrit dans le message


de
news: f5b201c3f16d$8c6367c0$
Bonjour,

Si j'ai bien comprit !

Ex.:
'******************************
Sub Toggle ()

Static Flag as boolean

If (Flag) then
Flag = False
Toggle1
Else
Flag = True
Toggle2
End if

End Sub
'--------------------------------------
Sub Toggle1()
MsgBox "Premier"
End Sub
'--------------------------------------
Sub Toggle2()
MsgBox "Second"
End Sub
'***************************************

Il vous suffit d'accrocher le bouton sur la routine
Toggle.

@+
Mousnynao!

-----Message d'origine-----
Bonjour à toutes et à tous

Je cherche comment créer un bouton (et/ou proc)de barre
d'outil de type

toggle (comme le bouton "copier").
Pas trouver ni fils ni liens!!
Même à la quincaillerie de Fredéric Sigonneau qui avait
déja ce problème en

09/2000 !!.

Merci


.







.





Avatar
Frédéric Sigonneau
Bonsoir,

Au cas zoù..
Le code du bouton de cette macro complémentaire pourrait t'intéresser (mot de
passe pour ouvrir le VBAProject : zaza) :

http://perso.wanadoo.fr/frederic.sigonneau/code/Calendriers/Calendrier1904.zip

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Bonjour à toutes et à tous

Je cherche comment créer un bouton (et/ou proc)de barre d'outil de type
toggle (comme le bouton "copier").
Pas trouver ni fils ni liens!!
Même à la quincaillerie de Fredéric Sigonneau qui avait déja ce problème en
09/2000 !!.

Merci


Avatar
RaMa
Bonsoir Frédéric

Merci pour ta proc
ça m'a permis de bien ficeler l'install
ainsi selon l'état de commutation j'ai le bouton qui passe alternativement
de icone à icone barrée
Super
Merci et bonne nuit

--
RaMa
"Frédéric Sigonneau" a écrit dans le message
de news:
Bonsoir,

Au cas zoù..
Le code du bouton de cette macro complémentaire pourrait t'intéresser (mot
de

passe pour ouvrir le VBAProject : zaza) :


http://perso.wanadoo.fr/frederic.sigonneau/code/Calendriers/Calendrier1904.zip


FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Bonjour à toutes et à tous

Je cherche comment créer un bouton (et/ou proc)de barre d'outil de type
toggle (comme le bouton "copier").
Pas trouver ni fils ni liens!!
Même à la quincaillerie de Fredéric Sigonneau qui avait déja ce problème
en


09/2000 !!.

Merci