Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel photo sur formulaire

photo sur formulaire

11 réponses
Avatar
Lionel
bonjour

J'ai des listes de données pour lesquelles correspondent des photos (1photo
par ligne)
lorsque je double clique sur la ligne un formulaire s'ouvre recapitulant les
données (c'est plus lisible) et j'aimerai inclure la photo en haut à gauche
toujours dimensionnée de la meme maniere (presentation oblige) mais je ne
trouve pas de solution...
Je demande a de bonnes ames de l'aide...

Merci à tous
Lionel
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
JB
Pour changer d'unité:

Private Sub UserForm_Initialize()
unité = Left(ActiveWorkbook.Path, 3)
ChDrive unité
ChDir ActiveWorkbook.Path
nf = Dir("*.jpg")
Do While nf <> ""
Me.ChoixPhoto.AddItem nf
nf = Dir
Loop
End Sub

JB


Merci JB
Cette fois ca fonctionne...
Je me penche sur l'adaptation pour mon fichier
Merci encore de ta patience et de ton aide.
Lionel
"JB" a écrit dans le message de news:

Il faut installer tous les fichiers (.xls et les .jpg ) dans le même
répertoire sur C:

http://cjoint.com/?jwuJDRnAuk

ChDir ActiveWorkbook.Path ' modifie le répertoire courant
nf = Dir("*.jpg") ' premier fichier
Do While nf <> ""
Me.ChoixPhoto.AddItem nf
nf = Dir ' fichier suivant
Loop

JB



SVP j'ai encore besoin d'aide mon pb reste insoluble ...

"Lionel" a écrit dans le message de news:
451181e3$0$21144$
Il y a qqch qui bloque car dans combophoto je n'ai rien dans la liste
deroulante... et dans combophoto2 j'ai trois nom de fichier mais je n 'ai
que

le message inconnu...
Y a qqch que je dois pas faire comme il faut...
Lionel
"JB" a écrit dans le message de news:

Il faut que les photos soit dans le même répertoire que le fichier
formulaire.xls

JB



désolé mais les onglets combophoto et combophoto2 ne fonctionne pas...
Lionel
"JB" a écrit dans le message de news:

Bonsoir,

http://cjoint.com/?jtwFTiEKvL

Private Sub ChoixPhoto_Change()
If Dir(Me.ChoixPhoto) <> "" Then
Me.Image1.Picture = LoadPicture(ChoixPhoto)
Else
MsgBox "Inconnu!"
End If
End Sub

La liste des noms de photos est en A2,A3,..

Private Sub UserForm_Initialize()
Me.ChoixPhoto.RowSource = "A2:" & "A" & [A65000].End(xlUp).Row '
noms de photos dans colonne A
End Sub

ou

La liste est remplie avec la liste des fichiers jpg du répertoire

Private Sub ChoixPhoto_Change()
Me.Image1.Picture = LoadPicture(ChoixPhoto)
End Sub

Private Sub UserForm_Initialize()
ChDir ActiveWorkbook.Path
nf = Dir("*.jpg")
Do While nf <> ""
Me.ChoixPhoto.AddItem nf
nf = Dir
Loop
End Sub

Cordialement JB


bonjour

J'ai des listes de données pour lesquelles correspondent des ph otos
(1photo

par ligne)
lorsque je double clique sur la ligne un formulaire s'ouvre
recapitulant



les
données (c'est plus lisible) et j'aimerai inclure la photo en h aut à
gauche

toujours dimensionnée de la meme maniere (presentation oblige) mais
je




ne
trouve pas de solution...
Je demande a de bonnes ames de l'aide...

Merci à tous
Lionel












1 2