SOS Afficher 2 photo externe suivant choix d'une liste déroulant
Résolu
cbep2001
-
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
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
3 réponses
-
-
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. -
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/
