Image et ComboBox

R

RED45

XLDnaute Nouveau

• 2 Février 2020

• #16

Bonsoir,
Merci pour votre réponse.
Avez-vous le fichier avec cette modification?

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 2 Février 2020

• #17

Bonsoir
JM ... pourquoi tu lui as pas joint l' image de ton appli ? je l'ai encore ..ci joint
bon ensuite

RED45 à dit:

programmer sur vba de façon à avoir un message (photo non disponible)

Cliquez pour agrandir...

faut un message .... mais où ??

 

Pièces jointes

• inexistante.jpg

  24.9 KB · Affichages: 7

Vote positif 0 Vote négatif

R

RED45

XLDnaute Nouveau

• 2 Février 2020

• #18

bonsoir Herve62
merci !

 

Vote positif 0 Vote négatif

R

RED45

XLDnaute Nouveau

• 2 Février 2020

• #19

en fait je souhaite un message photo non disponible avec limage de la photo barrée si je saisie dans combobox voiture par ex je suis débutant en vba

 

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 3 Février 2020

• #20

Bonjour Hervé, Tout simplement parce que je ne suis pas à la maison

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Février 2020

• #21

Bonjour Toubabou, RED45, herve62,

Placez les fichiers joints (3) dans le même dossier, le code de l'UserForm :

VB:

Private Sub ComboBox1_Change()
If ComboBox1 = "" Then Image1.Picture = LoadPicture(""): Exit Sub
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & IIf(ComboBox1.ListIndex = -1, "inexistante", ComboBox1) & ".jpg")
End Sub

Private Sub UserForm_Initialize()
Dim fichier
fichier = Dir(ThisWorkbook.Path & "\*.jpg")
While fichier <> ""
  If fichier <> "inexistante.jpg" Then ComboBox1.AddItem Left(fichier, Len(fichier) - 4)
  fichier = Dir
Wend
End Sub

Avec la propriété 1 - fmPictureSizeModeStretch l'image inexistante.jpg est un peu écrasée.

Pour ne pas la déformer on pourrait utiliser la propriété 3 - fmPictureSizeModeZoom mais bof...

A+

 

Pièces jointes

• Test photo(3).zip

  219.5 KB · Affichages: 15

Vote positif 0 Vote négatif

R

RED45

XLDnaute Nouveau

• 3 Février 2020

• #22

Bonjour
Merci beaucoup pour votre aide.

 

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 3 Février 2020

• #23

Et si les photos sont dans un sous dossier?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Février 2020

• #24

Toubabou à dit:

Et si les photos sont dans un sous dossier?

Cliquez pour agrandir...

Eh bien ajoutez le nom du sous-dossier après ThisWorkbook, depuis le temps vous devriez le savoir.

 

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 3 Février 2020

• #25

job75 à dit:

Eh bien ajoutez le nom du sous-dossier après ThisWorkbook, depuis le temps vous devriez le savoir.

Cliquez pour agrandir...

Bonsoir Job75, bonsoir à tous,
Je suis désolé, j'ai tendance à oublier ces derniers temps .
Je vous prie de m'en excuser.
Jean-Marie

 

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 5 Février 2020

• #26

Bonjour Job75, Salut Hervé, salut à tous

job75 a dit:
Eh bien ajoutez le nom du sous-dossier après ThisWorkbook, depuis le temps vous devriez le savoir.

Cliquez pour agrandir...

Je viens de me remettre d'aplomb et cela fonctionne parfaitement. Alors maintenant pour une vidéo à visionner dans un UserForm (à la place de l'image) la procédure est-elle la même?
Toubabou

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Février 2020

• #27

Bonjour Toubabou,

Cela n'a rien à voir avec le sujet de ce fil.

Si l'URL de la video est stockée dans la cellule A1 il suffit d'exécuter l'instruction :

VB:

ThisWorkbook.FollowHyperlink [A1]

La macro contenant cette instruction peut être n'importe où, UserForm ou autre.

A+

 

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 5 Février 2020

• #28

Job75
Merci beaucoup, je vais ouvrir un nouveau fil

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Février 2020

• #29

Toubabou à dit:

je vais ouvrir un nouveau fil

Cliquez pour agrandir...

Pour faire quoi ? Ne comptez pas mettre une video dans un contrôle image !!!

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 5 Février 2020

• #30

Bonsoir tous , Job !! eh oui dur !!
JM .. stp reste réaliste !! par contre si c'est juste pour substituer ce que je t'ai fait (doc & pdf) , là oui mais bon tu as toutes le billes pour le faire , tu changes d'appli à chaque type de fichier, ex:
mp4 = wmplayer

 

Vote positif 0 Vote négatif