J'ai encore une petite question ! Si quelqu'un peut m'aider ??
Dans une colonne (W) de feuille de calcul excel j'ai les chemins
d'acc=E8s de diffr=E9rentes photos. Toutes les photos sont localis=E9es
dans le m=EAme r=E9pertoire.
Je voudrais =E0 partir d'un userform choisir une ligne (ligne 5 par
exemple) et voir s'afficher dans le userform la photo correspondante.
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
JB
Bonjour,
Crée un combo avec la liste des photos du répertoire
http://cjoint.com/?ieqmdZ2icw
Choix d'une photo dans un comboBox 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 encore une petite question ! Si quelqu'un peut m'aider ??
Dans une colonne (W) de feuille de calcul excel j'ai les chemins d'accès de diffrérentes photos. Toutes les photos sont localisées dans le même répertoire.
Je voudrais à partir d'un userform choisir une ligne (ligne 5 par exemple) et voir s'afficher dans le userform la photo correspondante.
Merci pour vos réponses !
Bonjour,
Crée un combo avec la liste des photos du répertoire
http://cjoint.com/?ieqmdZ2icw
Choix d'une photo dans un comboBox
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 encore une petite question ! Si quelqu'un peut m'aider ??
Dans une colonne (W) de feuille de calcul excel j'ai les chemins
d'accès de diffrérentes photos. Toutes les photos sont localisées
dans le même répertoire.
Je voudrais à partir d'un userform choisir une ligne (ligne 5 par
exemple) et voir s'afficher dans le userform la photo correspondante.
Crée un combo avec la liste des photos du répertoire
http://cjoint.com/?ieqmdZ2icw
Choix d'une photo dans un comboBox 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 encore une petite question ! Si quelqu'un peut m'aider ??
Dans une colonne (W) de feuille de calcul excel j'ai les chemins d'accès de diffrérentes photos. Toutes les photos sont localisées dans le même répertoire.
Je voudrais à partir d'un userform choisir une ligne (ligne 5 par exemple) et voir s'afficher dans le userform la photo correspondante.
Merci pour vos réponses !
JB
Les noms des photos sont en colonne A.
Private Sub ChoixPhoto_Change() If Dir(Me.ChoixPhoto) <> "" Then Me.Image1.Picture = LoadPicture(ChoixPhoto) Else MsgBox "Inconnu!" End If End Sub
Private Sub UserForm_Initialize() Me.ChoixPhoto.RowSource = "A2:" & "A" & [A65000].End(xlUp).Row ' noms de photos dans colonne A End Sub
http://cjoint.com/?ieqCztDrvw
JB
Bonjour,
J'ai encore une petite question ! Si quelqu'un peut m'aider ??
Dans une colonne (W) de feuille de calcul excel j'ai les chemins d'accès de diffrérentes photos. Toutes les photos sont localisées dans le même répertoire.
Je voudrais à partir d'un userform choisir une ligne (ligne 5 par exemple) et voir s'afficher dans le userform la photo correspondante.
Merci pour vos réponses !
Les noms des photos sont en colonne A.
Private Sub ChoixPhoto_Change()
If Dir(Me.ChoixPhoto) <> "" Then
Me.Image1.Picture = LoadPicture(ChoixPhoto)
Else
MsgBox "Inconnu!"
End If
End Sub
Private Sub UserForm_Initialize()
Me.ChoixPhoto.RowSource = "A2:" & "A" & [A65000].End(xlUp).Row '
noms de photos dans colonne A
End Sub
http://cjoint.com/?ieqCztDrvw
JB
Bonjour,
J'ai encore une petite question ! Si quelqu'un peut m'aider ??
Dans une colonne (W) de feuille de calcul excel j'ai les chemins
d'accès de diffrérentes photos. Toutes les photos sont localisées
dans le même répertoire.
Je voudrais à partir d'un userform choisir une ligne (ligne 5 par
exemple) et voir s'afficher dans le userform la photo correspondante.
Private Sub ChoixPhoto_Change() If Dir(Me.ChoixPhoto) <> "" Then Me.Image1.Picture = LoadPicture(ChoixPhoto) Else MsgBox "Inconnu!" End If End Sub
Private Sub UserForm_Initialize() Me.ChoixPhoto.RowSource = "A2:" & "A" & [A65000].End(xlUp).Row ' noms de photos dans colonne A End Sub
http://cjoint.com/?ieqCztDrvw
JB
Bonjour,
J'ai encore une petite question ! Si quelqu'un peut m'aider ??
Dans une colonne (W) de feuille de calcul excel j'ai les chemins d'accès de diffrérentes photos. Toutes les photos sont localisées dans le même répertoire.
Je voudrais à partir d'un userform choisir une ligne (ligne 5 par exemple) et voir s'afficher dans le userform la photo correspondante.
Merci pour vos réponses !
knut
Merci JB !
J'ai essayé mais ça ne fonctionne pas. Probablement parce que je fait remonter beaucoup de données en même temps sur la même fiche.
Comme une illustration vaut mieux qu'un discours tu peux visualiser mon classeur ici
http://cjoint.com/data/ifpKqKuYBl.htm
Le code qui me pose problème se situe sur UsfFiche. Je veux utiliser les chemins d'accès aux images qui sont dans la colonne W pour afficher les photos dans le controle image ImgPhoto en même temps que les autres données correspondantes.
Un coup de main ne serait pas de refus !!
Merci JB !
J'ai essayé mais ça ne fonctionne pas. Probablement parce que je fait
remonter beaucoup de données en même temps sur la même fiche.
Comme une illustration vaut mieux qu'un discours tu peux visualiser mon
classeur ici
http://cjoint.com/data/ifpKqKuYBl.htm
Le code qui me pose problème se situe sur UsfFiche. Je veux utiliser
les chemins d'accès aux images qui sont dans la colonne W pour
afficher les photos dans le controle image ImgPhoto en même temps que
les autres données correspondantes.
J'ai essayé mais ça ne fonctionne pas. Probablement parce que je fait remonter beaucoup de données en même temps sur la même fiche.
Comme une illustration vaut mieux qu'un discours tu peux visualiser mon classeur ici
http://cjoint.com/data/ifpKqKuYBl.htm
Le code qui me pose problème se situe sur UsfFiche. Je veux utiliser les chemins d'accès aux images qui sont dans la colonne W pour afficher les photos dans le controle image ImgPhoto en même temps que les autres données correspondantes.
Un coup de main ne serait pas de refus !!
JB
Il manque:
Photo = Feuil2.Cells(ligne, 23) ' chemin UsfFiche.ImgPhoto.Picture = LoadPicture(Photo) ' affichage de la photo
J'ai essayé mais ça ne fonctionne pas. Probablement parce que je fait remonter beaucoup de données en même temps sur la même fiche.
Comme une illustration vaut mieux qu'un discours tu peux visualiser mon classeur ici
http://cjoint.com/data/ifpKqKuYBl.htm
Le code qui me pose problème se situe sur UsfFiche. Je veux utiliser les chemins d'accès aux images qui sont dans la colonne W pour afficher les photos dans le controle image ImgPhoto en même temps que les autres données correspondantes.
Un coup de main ne serait pas de refus !!
Il manque:
Photo = Feuil2.Cells(ligne, 23) ' chemin
UsfFiche.ImgPhoto.Picture = LoadPicture(Photo) ' affichage de la
photo
J'ai essayé mais ça ne fonctionne pas. Probablement parce que je fait
remonter beaucoup de données en même temps sur la même fiche.
Comme une illustration vaut mieux qu'un discours tu peux visualiser mon
classeur ici
http://cjoint.com/data/ifpKqKuYBl.htm
Le code qui me pose problème se situe sur UsfFiche. Je veux utiliser
les chemins d'accès aux images qui sont dans la colonne W pour
afficher les photos dans le controle image ImgPhoto en même temps que
les autres données correspondantes.
J'ai essayé mais ça ne fonctionne pas. Probablement parce que je fait remonter beaucoup de données en même temps sur la même fiche.
Comme une illustration vaut mieux qu'un discours tu peux visualiser mon classeur ici
http://cjoint.com/data/ifpKqKuYBl.htm
Le code qui me pose problème se situe sur UsfFiche. Je veux utiliser les chemins d'accès aux images qui sont dans la colonne W pour afficher les photos dans le controle image ImgPhoto en même temps que les autres données correspondantes.
Un coup de main ne serait pas de refus !!
Sitting Hoax
Bonjour, pour plus de clarté dans ta colonne 23 ; et cela t'évitera de plus un travail fastidieux d'écriture du chemin ; je te propose de mettre uniquement le nom de la photo par exemple photo1 photo2 etc... avec l'extension de fichier (.jpg, .gif etc..) Photo1.jpg et de mettre toutes ces photos dans le répertoire ou est enregistré le fichier excel (ThisWorkBook.path) ou plutôt le fichier excel dans le répertoire des photos ainsi, en reprenant la solution de JB, qui marche très bien juste cette modification dans l'écriture du chemin :
Photo = Feuil2.Cells(ligne, 23) 'colonne 23 PH= ThisWorkBook.path & "" & Photo ' chemin de la photo UsfFiche.ImgPhoto.Picture = LoadPicture(PH) ' affichage de la photo
J'ai essayé mais ça ne fonctionne pas. Probablement parce que je fait remonter beaucoup de données en même temps sur la même fiche.
Comme une illustration vaut mieux qu'un discours tu peux visualiser mon classeur ici
http://cjoint.com/data/ifpKqKuYBl.htm
Le code qui me pose problème se situe sur UsfFiche. Je veux utiliser les chemins d'accès aux images qui sont dans la colonne W pour afficher les photos dans le controle image ImgPhoto en même temps que les autres données correspondantes.
Un coup de main ne serait pas de refus !!
Bonjour,
pour plus de clarté dans ta colonne 23 ;
et cela t'évitera de plus un travail fastidieux d'écriture du chemin ;
je te propose de mettre uniquement le nom de la photo
par exemple photo1
photo2 etc...
avec l'extension de fichier (.jpg, .gif etc..)
Photo1.jpg
et de mettre toutes ces photos dans le répertoire ou est enregistré le
fichier excel (ThisWorkBook.path)
ou plutôt le fichier excel dans le répertoire des photos
ainsi, en reprenant la solution de JB, qui marche très bien
juste cette modification dans l'écriture du chemin :
Photo = Feuil2.Cells(ligne, 23) 'colonne 23
PH= ThisWorkBook.path & "" & Photo ' chemin de la photo
UsfFiche.ImgPhoto.Picture = LoadPicture(PH) ' affichage de la photo
J'ai essayé mais ça ne fonctionne pas. Probablement parce que je fait
remonter beaucoup de données en même temps sur la même fiche.
Comme une illustration vaut mieux qu'un discours tu peux visualiser mon
classeur ici
http://cjoint.com/data/ifpKqKuYBl.htm
Le code qui me pose problème se situe sur UsfFiche. Je veux utiliser
les chemins d'accès aux images qui sont dans la colonne W pour
afficher les photos dans le controle image ImgPhoto en même temps que
les autres données correspondantes.
Bonjour, pour plus de clarté dans ta colonne 23 ; et cela t'évitera de plus un travail fastidieux d'écriture du chemin ; je te propose de mettre uniquement le nom de la photo par exemple photo1 photo2 etc... avec l'extension de fichier (.jpg, .gif etc..) Photo1.jpg et de mettre toutes ces photos dans le répertoire ou est enregistré le fichier excel (ThisWorkBook.path) ou plutôt le fichier excel dans le répertoire des photos ainsi, en reprenant la solution de JB, qui marche très bien juste cette modification dans l'écriture du chemin :
Photo = Feuil2.Cells(ligne, 23) 'colonne 23 PH= ThisWorkBook.path & "" & Photo ' chemin de la photo UsfFiche.ImgPhoto.Picture = LoadPicture(PH) ' affichage de la photo
J'ai essayé mais ça ne fonctionne pas. Probablement parce que je fait remonter beaucoup de données en même temps sur la même fiche.
Comme une illustration vaut mieux qu'un discours tu peux visualiser mon classeur ici
http://cjoint.com/data/ifpKqKuYBl.htm
Le code qui me pose problème se situe sur UsfFiche. Je veux utiliser les chemins d'accès aux images qui sont dans la colonne W pour afficher les photos dans le controle image ImgPhoto en même temps que les autres données correspondantes.
