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

10 réponses

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
Michel Rotteleur [MS]
Bonjour,

Est-ce qu'un contrôle de type Image avec une propriété PictureAlignment à
2 - Center et un PictureSizeMode à 3 - Zoom répond à votre besoin?

Cordialement,


Michel Rotteleur [MS]

"Lionel" a écrit dans le message de news:
450fb627$0$21143$
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




Avatar
Lionel
Non , ca ne fonctionne pas, je n'arrive pas à faire s'aficher l'image....
Pitié pour un QI inférieur à 90...
Merci encore de m'aider
Lionel
"Michel Rotteleur [MS]" a écrit dans le message de
news: ##mTo##
Bonjour,

Est-ce qu'un contrôle de type Image avec une propriété PictureAlignment à
2 - Center et un PictureSizeMode à 3 - Zoom répond à votre besoin?

Cordialement,


Michel Rotteleur [MS]

"Lionel" a écrit dans le message de news:
450fb627$0$21143$
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








Avatar
isabelle
bonjour Lionel,

Private Sub UserForm_Initialize()
Photo1="NomDuFichieImage"
'ou bien
Photo1 = Sheets("Feuil1").Range("A1")
Image1.Picture = LoadPicture("C:Mes DocumentsMes images" & Photo1 & ".JPG")
End Sub

isabelle


Non , ca ne fonctionne pas, je n'arrive pas à faire s'aficher l'image....
Pitié pour un QI inférieur à 90...
Merci encore de m'aider
Lionel
"Michel Rotteleur [MS]" a écrit dans le message de
news: ##mTo##

Bonjour,

Est-ce qu'un contrôle de type Image avec une propriété PictureAlignment à
2 - Center et un PictureSizeMode à 3 - Zoom répond à votre besoin?

Cordialement,


Michel Rotteleur [MS]

"Lionel" a écrit dans le message de news:
450fb627$0$21143$

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












Avatar
JB
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 photos (1p hoto
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


Avatar
Lionel
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 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


Avatar
JB
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 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 j e ne
trouve pas de solution...
Je demande a de bonnes ames de l'aide...

Merci à tous
Lionel




Avatar
Lionel
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 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




Avatar
Lionel
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 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








Avatar
JB
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 p as...
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 phot os
(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 hau t à
gauche

toujours dimensionnée de la meme maniere (presentation oblige) ma is je
ne


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

Merci à tous
Lionel










Avatar
Lionel
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 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










1 2