SOS Afficher 2 photo externe suivant choix d'une liste déroulant
Résolu/Fermé
A voir également:
- SOS Afficher 2 photo externe suivant choix d'une liste déroulant
- Liste déroulante excel - Guide
- Traduction photo gratuit - Guide
- Liste déroulante en cascade - Guide
- Photo de profil - Guide
- Partage photo - Guide
3 réponses
Mike-31
Messages postés
18317
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
Modifié par Mike-31 le 4/11/2014 à 21:50
Modifié par Mike-31 le 4/11/2014 à 21:50
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.
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
Messages postés
18317
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
5 nov. 2014 à 08:08
5 nov. 2014 à 08:08
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/
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/
Mike-31
Messages postés
18317
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
Modifié par Mike-31 le 6/11/2014 à 09:58
Modifié par Mike-31 le 6/11/2014 à 09:58
juste deux mots pour faire remonter la discussion ou savoir si tu abandonnes