Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Changement d'image

  • Initiateur de la discussion Initiateur de la discussion Eric D
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Eric D

XLDnaute Occasionnel
Bonjour le Forum,

J'ai un p'tit soucis, et oui encore 1. Sur mon Classeur j'ai un objet (image) où j'ai une image à l'origine. Je souhaiterais, en faisant un click dessus, changer d'image. Voilà ce que j'ai fait, mais sans résultat. Si vous pouviez me donner un coup de main...

Sub son()
Range("BA11").Value = Range("BA11").Value * -1
If Range("BA11").Value < 0 Then
son.Picture = LoadPicture("C:\HP2.jpeg")
Else
son.Picture = LoadPicture("C:\HP.jpeg")
End If
End Sub

Merci pour votre aide.
Eric D
 
Re : Changement d'image

Bonjour le forum,

Dans mon fichier précédement(je le remet)
Sub Cson()
Dim imag As String 'Image
Range("BA11").Value = Range("BA11").Value * -1
imag = IIf(Range("BA11").Value < 0, "C:\HP2.JPG", "C:\HP1.JPG")
ActiveSheet.Shapes("Son").Fill.UserPicture imag
End Sub
j'avais une image, donc pour la changer c'est ok, mais au départ j'en ai pas, donc comment la creer et lui donner un nom.
Merci encore pour votre aide.
Eric D
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
385
Réponses
5
Affichages
911
Réponses
2
Affichages
527
Réponses
14
Affichages
484
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…