affichage de petits dessins jpg

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 !

Re : affichage de petits dessins jpg

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a2:b2")) Is Nothing Then
ChDir ActiveWorkbook.Path
If [A2] = 1 And [B2] <> 0 Then nomImage = "x.jpg"
If [A2] = 2 And [B2] <> 0 Then nomImage = "y.jpg"
On Error Resume Next
ActiveSheet.Shapes("monimage").Delete
Range("C2").Select
monimage = ActiveSheet.Pictures.Insert(nomImage).Select
Selection.Name = "monimage"
Target.Select
End If
End Sub

JB
 

Pièces jointes

Re : affichage de petits dessins jpg

Re,

Salut mon ami Spit et merci de me rassurer arf 🙂

User_Médiocre as tu bien tout décompressé dans le même répertoire ?

Sinon, je ne vois pourquoi cela ne fonctionne pas si tu suis TOUTES nos indications (relis le fil...)

A+
 
- 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
4
Affichages
245
Réponses
0
Affichages
54
Réponses
4
Affichages
688
Réponses
5
Affichages
401
Réponses
17
Affichages
232
Réponses
3
Affichages
152
Retour