toggle button

[clautu]

Bonjour à tous,🙂
J'ai une question pour vous. J'utilise souvent le "toggle button" avec la formule " if, Then, else". Jusque là tout va bien. J'aimerais savoir si l'on peut changer la forme du bouton ou encore mieux affecter le code du toggle button à n'importe quelle image.
Je vous met ma formule même si ce n'est pas indispensable à ma question


If ToggleButton1 = True Then
ActiveSheet.Shapes("objet 211").Select
Selection.ShapeRange.ZOrder msoBringToFront
Range("B1").Select
Else
ActiveSheet.Shapes("forme automatique 215").Select
Selection.ShapeRange.ZOrder msoBringToFront
Range("B1").Select[/COLOR]
End If

End Sub

Merci beaucoup

 

[ya_v_ka]

Re : toggle button

Salut

Tu peux affecter ta macro à n'importe quelle forme, mais il faudra créer un test pour connaitre la position du reste, puisque le toggle ne te le signaleras plus...

Enfin c'est mon avis...

Ya'v

 

[myDearFriend!]

Re : toggle button

Bonsoir clautu, ya_v_ka, le Forum,

On peut s'amuser à utiliser n'importe quel objet en guise de ToggleButton, le tout est de gérer dans la macro liée le basculement "On/Off". Ce basculement peut être simulé par une simple variable static de type boolean, que l'on va basculer en True/False à chaque lancement.

Ci-joint un exemple simple avec un objet dessin et un effet visuel servant de repère pour l'utilisateur (comme le fait un vrai ToggleButton). Je lui ai appliqué le code suivant :

[SIZE=2][COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]

[COLOR=NAVY]Sub[/COLOR] SpecialToggleButton()
[COLOR=GREEN]'myDearFriend![/COLOR]
[COLOR=NAVY]Static[/COLOR] TB [COLOR=NAVY]As Boolean[/COLOR]
    TB = [COLOR=NAVY]Not[/COLOR] TB
    [COLOR=GREEN]'Effet visuel ToggleButton[/COLOR]
    ActiveSheet.Shapes("SpecToggleButton").Shadow.[COLOR=NAVY]Type[/COLOR] = IIf(TB, 18, 6)
    [COLOR=GREEN]'Traitement...[/COLOR]
    Range("G27").Value = IIf(TB, "ACTIF", "INACTIF")
[COLOR=NAVY]End Sub[/COLOR]
[/SIZE]

Cordialement,

 

[clautu]

Re : toggle button

Salut my dear friend
Ta macro fonctionne bien mais vu mon ignorance je n'arrive pas à remplacer la valeur que tu lui donne "actif" ou "inactif" par la fonction que moi je veux que ma macro produise.


Merci

 

[myDearFriend!]

Re : toggle button

Bonjour clautu, le Forum,

Ci-dessous, le même code que j'espère un peu plus explicit :

[SIZE=2][COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]

[COLOR=NAVY]Sub[/COLOR] SpecialToggleButton()
[COLOR=NAVY]Static[/COLOR] TB [COLOR=NAVY]As Boolean[/COLOR]

    [COLOR=GREEN]'Basculement ON/OFF du "bouton"[/COLOR]
    TB = [COLOR=NAVY]Not[/COLOR] TB
    [COLOR=GREEN]'Effet visuel ToggleButton[/COLOR]
    ActiveSheet.Shapes("SpecToggleButton").Shadow.[COLOR=NAVY]Type[/COLOR] = IIf(TB, 18, 6)
    
    [COLOR=GREEN]'Traitement[/COLOR]
    [COLOR=NAVY]If[/COLOR] TB = [COLOR=NAVY]True Then[/COLOR]
        [COLOR=GREEN]'Le bouton est enfoncé (statut ON)...[/COLOR]
        Range("G27").Value = "ACTIF"
    [COLOR=NAVY]Else[/COLOR]
        [COLOR=GREEN]'Le bouton est à sa position d'origine (statut OFF)...[/COLOR]
        Range("G27").Value = "INACTIF"
    [COLOR=NAVY]End If
End Sub[/COLOR][/SIZE]

Cordialement,

 

[Hervé]

Re : toggle button

bonjour tout le monde

hop j'en profite

didier, pourquoi utilises-tu une variable static au lieu d'une public ?

je bataille à comprendre l'interet des static.

d'avance merci.

salut

 

[myDearFriend!]

Re : toggle button

Salut Hervé,

Ben, je suis désolé Hervé, je ne vois pas comment je pourrais te l'expliquer autrement que comme je l'ai fait dans ce post là... Je ne saurais malheureusement pas te l'expliquer autrement 😱.

Amicalement,

 

[clautu]

Re : toggle button

Merci !!!
ça marche


Clautu