SOS Afficher 2 photo externe suivant choix d'une liste déroulant Résolu/Fermé

Question

Bonjour,

J'ai fait un fichier excel pour le suivi de la formule 1 et je voudrai pouvoir comparer 2 pilotes et afficher une photo externe de chaque pilotes.
Quand je fais un choix de pilote dans ma première liste déroulante sa photo s'affiche bien, mais je n'arrive pas a faire la même chose sur le second, je vous met le code VBA que j'ai trouver pour le premier, merci de bien vouloir m'aider pour la suite du code

Première liste déroulante en "R3" affichage photo en "R21"
Seconde liste déroulante en "U3" affichage photo en "U21"

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$R$3" Then
On Error Resume Next
ActiveSheet.Shapes("monimage").Delete
rep = ActiveWorkbook.Path
'rep = "c:\xyz"
nomimage = rep & "\" & Target & ".jpg"
[R21].Select
ActiveSheet.Pictures.Insert(nomimage).Select
Selection.Name = "monimage"
[R3].Select
On Error GoTo 0
End If
End Sub

cbep2001 · Answer

Personne pour m'aider ? svp

Mike-31 · Answer

Bonjour,

il y a plus simple, commence par créer une liste de validation en R3 
aucune photo;nom de la photo1;nom de la photo2;etc... le nom des photos est sans l'extension

à partir de la barre contrôle dessine la zone qui devra afficher la photo et se nomme Image1

Private Sub Worksheet_Change(ByVal Target As Range)
Dim image, chemin As String
On Error Resume Next
If Not Intersect(Target, [R3]) Is Nothing Then
image = Sheets("Feuil1").[R3].Value
If image <> "aucune photo" Then
    chemin = ThisWorkbook.Path & "\"
    Sheets("Feuil1").Image1.PictureSizeMode = 3
    Sheets("Feuil1").Image1.Picture = LoadPicture(chemin & image & ".jpg")
Else
    Sheets("Feuil1").Image1.Picture = LoadPicture("")
End If
[A1].Select
End If
End Sub

 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

anonymise bien ton fichier, puis clic sur le lien ci dessous, puis sur parcourir pour sélectionner ton fichier, sur créer le lien et copie le lien généré soit dans un post de la discussion ou en message privé, dans ce cas clic sur mon pseudo et lui écrire un message.

ne joint pas de photo, je mettrais des photos windows

https://www.cjoint.com/

SOS Afficher 2 photo externe suivant choix d'une liste déroulant

3 réponses

Discussions similaires