Macro bascule

[breeze]

Bonsoir,
Je cherche à créer un bouton à bascule avec une icone.
ce que je voudrais c'est faire apparaitre un carré blanc qui cacherait des boutons d'option etquand je reclic le carré devient transparent pour faire réapparaitre les boutons

Présentement j'utilise une case à cocher qui inscrit Vrai ou faux et je lui ai donné cette macro

If Range("p1").Value = faux Then

ActiveSheet.Shapes("Rectangle 30").Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Range("w6").Select
Else


ActiveSheet.Shapes("Rectangle 30").Select
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9
Range("w6").Select
End If


End Sub

Je voudrais remplacer la case à cocher par une icone et que ma macro fonctionne

JE clic sur l'icone mon rectangle cache les bouton
je reclic et mon rectangle disparait et les boutons d'option réapparaissent.

Merci

 

[Robert]

Re : Macro bascule

Bonjour Breeze, bonjour le forum,

En pièce jointe un exemple avec le code ci-dessous appliqué à l'image (mon avatar) :

Private Sub Image1_Click()
ActiveSheet.Shapes("Rectangle 30").Select
With Selection
    .ShapeRange.Fill.Visible = IIf(.ShapeRange.Fill.Visible = msoTrue, msoFalse, msoTrue)
End With
Range("w6").Select
End Sub

 

[breeze]

Re : Macro bascule

Merci Robert,
C'est parfait !

 

[breeze]

Re : Macro bascule

Salut à tous J'ai oublié quelque chose sur ma macro.
Peut on ajouter à la macro la tache suivante?
Si le rectangle 30 est visible P1 =Faux
si le rectangle30 est invisible P1=vrai

Est-ce Possible ???
Merci !!

 

[Pierrot93]

Re : Macro bascule

Bonjour,

essaye comme ceci :

Range("P1").Value = Not CBool(Sheets("NomFeuille").Shapes("Rectangle 30").Visible)

bonne journée
@+

 

[breeze]

Re : Macro bascule

Salut Pierot93,
C'est à peu près ce que je veux sauf que présentement il affiche "Faux" en P1.
Est-ce qu'il pourrait afficher les 2, soit "vrai" ou faux??

 

[Pierrot93]

Re : Macro bascule

Re,

C'est à peu près ce que je veux sauf que présentement il affiche "Faux" en P1.
Est-ce qu'il pourrait afficher les 2, soit "vrai" ou faux??

bah, à priori c'est ce que le code fait.. selon l'état du rectangle, visible ou non visible...

bonne soirée
@+

 

[breeze]

Re : Macro bascule

C'est dommage cela ne m'avance à rien car il me faut un choix pour que l'ordi face une action ou une autre.
Si c'est vrai l'ordi ne fera pas la même chose que si c'est faux
Merci

 

[Pierrot93]

Re : Macro bascule

Bonjour,

C'est dommage cela ne m'avance à rien car il me faut un choix pour que l'ordi face une action ou une autre.

peut être lié ce code à un événement... A voir lequel utilisé selon ton projet... peut être l'événement change de la feuille, si une cellule est modifiée et prend telle valeur...

bonne journée
@+