Boutons radios qui permettent d'afficher des images

Modeste geedee

XLDnaute Barbatruc

• 13 Février 2014

• #2

Re : Boutons radios qui permettent d'afficher des images

Bonsour®
🙄

voir pièce jointe :

 

Pièces jointes

• HF.xls

  58 KB · Affichages: 66
• Capture.JPG

  13.7 KB · Affichages: 40
• Capture.JPG

  13.7 KB · Affichages: 41

Vote positif 0 Vote négatif

Y

yml

Guest

• 14 Février 2014

• #3

Re : Boutons radios qui permettent d'afficher des images

Bravo, la réponse exacte en 30 minutes !

Merci beaucoup pour votre aide.

Sauriez-vous comment je pourrais utiliser mes propres images ?

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 14 Février 2014

• #4

Re : Boutons radios qui permettent d'afficher des images

Bonsour®

🙄
un fichier d'explication interactif
à adapter à ton contexte
http://www.polykromy.com/fichiers/decaler.xls

 

Vote positif 0 Vote négatif

Y

yml

Guest

• 14 Février 2014

• #5

Re : Boutons radios qui permettent d'afficher des images

Merci, je n'ai pas compris comment tu voulais utiliser la fonction "decaler"

J'ai finalement créer une macro sur chaque bouton radio du style :

Code:

'Affiche l'image de la femme
ActiveSheet.Shapes("image-femme").Visible = True
'cache l'image de l homme
ActiveSheet.Shapes("image-homme").Visible = False

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 14 Février 2014

• #6

Re : Boutons radios qui permettent d'afficher des images

yml à dit:

Merci, je n'ai pas compris comment tu voulais utiliser la fonction "decaler"

J'ai finalement créer une macro sur chaque bouton radio du style :

Code:

'Affiche l'image de la femme
ActiveSheet.Shapes("image-femme").Visible = True
'cache l'image de l homme
ActiveSheet.Shapes("image-homme").Visible = False

Cliquez pour agrandir...

les solutions précédemment proposées sont des solutions purement "formuliste"...(c-a-d sans VBA)

🙄 tu souhaites en fait utiliser des macros VBA...
il te faut alors utiliser des "optionButtons" ActiveX, c'est à dire auxquels seront alors associés les codes suivant :

Code:

Private Sub OptionButton1_Click()
ActiveSheet.Shapes("Image1").Visible = OptionButton1.Value
ActiveSheet.Shapes("image2").Visible = OptionButton2.Value
End Sub
Private Sub OptionButton2_Click()
ActiveSheet.Shapes("image1").Visible = OptionButton1.Value
ActiveSheet.Shapes("image2").Visible = OptionButton2.Value
End Sub

 

Vote positif 0 Vote négatif