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
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