la mouette
XLDnaute Nouveau
Bonjour,
Tout d'abord voiçi le code :
Grace à celui-ci je peux appeler plusieurs images en fonction de données présentes dans une liste déroulante située en G3.
Ce que j'essaye de faire c'est que l'image appelée se redimensionne automatiquement dans une plage de cellules genre [B7:G7].
Ca n'as pas l'air bien compliqué de ce que j'ai pu voir sur le net, le problème est que je n'arrive pas à l'implanter à mon code
Merci à tous de vos futures réponses, même si personne ne me répond^^.
Tout d'abord voiçi le code :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$3" Then
On Error Resume Next
ActiveSheet.Shapes("monimage").Delete
rep = ActiveWorkbook.Path
nomimage = rep & "\" & Target & ".jpg"
[B7].Select
ActiveSheet.Pictures.Insert(nomimage).Select
Selection.Name = "monimage"
[G3].Select
On Error GoTo 0
End If
End Sub
Grace à celui-ci je peux appeler plusieurs images en fonction de données présentes dans une liste déroulante située en G3.
Ce que j'essaye de faire c'est que l'image appelée se redimensionne automatiquement dans une plage de cellules genre [B7:G7].
Ca n'as pas l'air bien compliqué de ce que j'ai pu voir sur le net, le problème est que je n'arrive pas à l'implanter à mon code
Merci à tous de vos futures réponses, même si personne ne me répond^^.