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