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

Résolu
cbep2001 -  
 cbep2001 -
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
A voir également:

3 réponses

Réponse 1 / 3
cbep2001
 
Personne pour m'aider ? svp
0
Réponse 2 / 3
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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.
0
cbep2001
 
Bonjour,
Merci de la réponse, mais ma liste déroulante ne sert pas que pour afficher une photo mais aussi pour afficher des données des pilotes, je peux te donner une partie de mon fichier Excel mais je ne sais pas comment on fait pour joindre un fichier ici
0
Réponse 3 / 3
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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/
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
juste deux mots pour faire remonter la discussion ou savoir si tu abandonnes
0
cbep2001
 
Merci j'ai trouver la solution sur un autre site
0