Affiché les images dynamiquement en fontion de la colonne nom

**IVIedia** · 04/05/2016, 13h14

Bonjour,

j'ai un fichier excel avec 3 colonnes

IMG - NOM - QUANTITE

j'aimerais dans la colonne IMG afficher les images de la colonne NOM (pas manuellement mais dynamiquement parlant)

j'ai un dossier avec tout les images avec leur nom

exemple: /Users/monmac/Desktop/couleurList/images/rouge.jpg

et donc je cherche une formule ou un code qui me permettra d'afficher les images dynamiquement pour tout les noms.

Je me rappelle que j'avais utilisé il y a longtemps un code VBA qui permettais cela, mais je ne le trouve plus
j'ai aussi googlé mais je n'ai rien trouvé apart des codes vba qui font d'autre tâches ...

Pouvez vous me donner une piste?

j'attache mon fichier zip

couleurList.zip

Merci

**IVIedia** · 05/05/2016, 11h02

Bonjour à tous,

j'ai avancé dans mes recherches et sur pc j'arrive à faire la procédure sans soucis,
sous mac j'essaye d’adapter le chemin mais j'ai une jolie croix en disans impossible d'afficher l'image lier ...

voici le code vba que j'ai introduit, trouvrer sur le net et fonctionne correctement sur windows

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Dim i As Integer
Dim sFilename As String
Dim bcontinue As Boolean
Dim spath As String
 
Sub Attempt1()
On Error Resume Next
 
spath = "/Users/monmac/Desktop/couleurList/images/"
 
i = 2
bcontinue = True
While bcontinue
sFilename = Worksheets(1).Cells(i, 2).Value
If sFilename = "" Then
bcontinue = False
Else
 
Cells(i, 1).Select
ActiveSheet.Pictures.Insert(spath + sFilename + ".jpg").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 125
Selection.ShapeRange.Width = 201
Selection.Left = ActiveSheet.Range("A" & i).Left
Selection.Top = ActiveSheet.Range("A" & i).Top
i = i + 1
End If
Wend
End Sub

Merci

**IVIedia** · 06/05/2016, 07h06

re,

apparemment sous mac les / sont à remplacé par :
mais sans succés

**Menhir** · 06/05/2016, 18h29

Envoyé par IVIedia

apparemment sous mac...

Si tu ne le précise pas, il est logique de supposer que tu fais partie des 96% d'utilisateurs d'Excel qui l'utilisent avec Windows.

mais sans succés

Copie le code que tu as utilisé.

**RyuAutodidacte** · 06/05/2016, 20h13

Bonjour,
Je suis aussi sur Mac XL 2011
C'est vrai que pour trouver les informations (concernant le code Mac) relève parfois de la recherche de l'arche perdu

Mais même si 96% des utilisateurs sont sur PC il y a presque toujours moyen de créer un code multi-plateforme

du coup étant déjà passé par là, on a :
Application.PathSeparator => permet d'avoir soit ":" ou "/" selon si on est sur PC ou Mac

Dans le cas où (information importante à connaître au début pour éviter de tourner en rond surtout quand on est sur Mac) : où se trouve ton fichier XL? où se trouve ton dossier images?
Dans le cas où ton dossier images se trouve dans un sous dossier par rapport à ton fichier XL tu utiliseras :
ThisWorkbook.Path => te donneras le chemin du dossier où se trouve ton fichier XL

on pourras faire alors :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Chemin()
Dim ChR_Sep As String, MyPath As String, MyPath_F As String, MyPath_I As String, sD As String, spath As String 'ChR_Sep = le / ou :    -    MyPath_F = Chemin du dossier ou se trouve le fichier   -   sD_Img = sous-dossier images
    ChR_Sep = Application.PathSeparator
    sD_Img = "NomDuDossierImages"
    MyPath_F = ThisWorkbook.Path
    MyPath_I = MyPath_F & ChR_Sep & sD_Img & ChR_Sep 'Chemin du dossier images
    MsgBox MyPath_I
End Sub

Et là tu as un code qui marche aussi bien sur PC que sur Mac

Edit : il me semble en fait que la séparation dans un répertoire PC c'est plutôt \ - si quelqu'un à la gentillesse de me confirmer svp + correction de la variable sD en sD_Img as String (cf déclaration de variable - à remplacer)

**IVIedia** · 06/05/2016, 21h33

Bonsoir à tous, merci pour votre aide

@RyuAutodidacte j'ai essayé d'adapter votre code avec le mien mais on dirais que ça ne va pas, ou bien le code pour windows est pas bon du tout pour mac ...

voici ce que j'ai essayé

ça me donne un pop up avec la racine complet du dossier images et j'ai dans les cellules le même message que en haut

"une jolie croix en disans impossible d'afficher l'image lier ..."

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Dim i As Integer
Dim sFilename As String
Dim bcontinue As Boolean
Dim MyPath_I As String
 
 
Sub Chemin()
Dim ChR_Sep As String, MyPath As String, MyPath_F As String, MyPath_I As String, sD As String, spath As String 'ChR_Sep = le / ou :    -    MyPath_F = Chemin du dossier ou se trouve le fichier   -   sD_Img = sous-dossier images
    ChR_Sep = Application.PathSeparator
    '/Users/monmac/Desktop/couleurList/images/
    sD_Img = "images"
    MyPath_F = ThisWorkbook.Path
    MyPath_I = MyPath_F & ChR_Sep & sD_Img & ChR_Sep 'Chemin du dossier images
    MsgBox MyPath_I
 
 
 
i = 2
bcontinue = True
While bcontinue
sFilename = Worksheets(1).Cells(i, 2).Value
If sFilename = "" Then
bcontinue = False
Else
 
Cells(i, 1).Select
ActiveSheet.Pictures.Insert(MyPath_I + sFilename + ".jpg").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 125
Selection.ShapeRange.Width = 201
Selection.Left = ActiveSheet.Range("A" & i).Left
Selection.Top = ActiveSheet.Range("A" & i).Top
i = i + 1
End If
Wend
End Sub

Merci

**RyuAutodidacte** · 06/05/2016, 21h45

Re,
le tout est de savoir à quel endroit l'erreur 400 se fait - mettre le code en pas à pas pour repérer l'emplacement de l'erreur

Cette ligne me paraît bizarre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Pictures.Insert(sD_Img + sFilename + ".jpg").Select

je pense que c'est plutôt (pas testé):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Pictures.Insert(sD_Img & sFilename & ".jpg").Select

petit conseil : c'est d'éviter un maximum d'utliser Select et Selection

**IVIedia** · 06/05/2016, 21h48

Oups je venez d’éditer mon message

en effet c'est bien sD_Img

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Dim i As Integer
Dim sFilename As String
Dim bcontinue As Boolean
Dim MyPath_I As String
 
 
Sub Chemin()
Dim ChR_Sep As String, MyPath As String, MyPath_F As String, MyPath_I As String, sD As String, spath As String 'ChR_Sep = le / ou :    -    MyPath_F = Chemin du dossier ou se trouve le fichier   -   sD_Img = sous-dossier images
    ChR_Sep = Application.PathSeparator
    '/Users/monmac/Desktop/couleurList/images/
    sD_Img = "images"
    MyPath_F = ThisWorkbook.Path
    MyPath_I = MyPath_F & ChR_Sep & sD_Img & ChR_Sep 'Chemin du dossier images
    MsgBox MyPath_I
 
 
 
i = 2
bcontinue = True
While bcontinue
sFilename = Worksheets(1).Cells(i, 2).Value
If sFilename = "" Then
bcontinue = False
Else
 
Cells(i, 1).Select
ActiveSheet.Pictures.Insert(MyPath_I + sFilename + ".jpg").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 125
Selection.ShapeRange.Width = 201
Selection.Left = ActiveSheet.Range("A" & i).Left
Selection.Top = ActiveSheet.Range("A" & i).Top
i = i + 1
End If
Wend
End Sub

mais j'ai un message avec une croix rouge
-> "une croix en disans impossible d'afficher l'image lier ..."

merci

**RyuAutodidacte** · 06/05/2016, 21h56

je viens de voir le soucis j'ai mal renommé la déclaration de la variable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim ChR_Sep As String, MyPath As String, MyPath_F As String, MyPath_I As String, sD_Img As String, spath As String

comme cela c'est mieux
j'avais marqué au début :
sD As String
mais j'ai tout renommé et j'ai oublié de le sD donc :
sD_Img As String

Edit : je me rappelle d'une problématique lors d'un post => j'ai eu un souci avec des noms de dossier qui comportaient des accents, donc si on peut éviter les noms avec des accents dans les images
ça serait pas mal. Sait on jamais

**IVIedia** · 06/05/2016, 22h07

re j'ai essayé au final mais toujours le message avec l'image non lier ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Dim i As Integer
Dim sFilename As String
Dim bcontinue As Boolean
Dim MyPath_I As String
 
Sub Chemin()
Dim ChR_Sep As String, MyPath As String, MyPath_F As String, MyPath_I As String, sD_Img As String, spath As String
 
    ChR_Sep = Application.PathSeparator
    sD_Img = "images"
    MyPath_F = ThisWorkbook.Path
    MyPath_I = MyPath_F & ChR_Sep & sD_Img & ChR_Sep 'Chemin du dossier images
    MsgBox MyPath_I
 
 
i = 2
bcontinue = True
While bcontinue
sFilename = Worksheets(1).Cells(i, 2).Value
If sFilename = "" Then
bcontinue = False
Else
 
Cells(i, 1).Select
ActiveSheet.Pictures.Insert(MyPath_I + sFilename + ".jpg").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 125
Selection.ShapeRange.Width = 201
Selection.Left = ActiveSheet.Range("A" & i).Left
Selection.Top = ActiveSheet.Range("A" & i).Top
i = i + 1
End If
Wend
End Sub

aucun accent

**RyuAutodidacte** · 06/05/2016, 22h23

Re,
j'ai jamais utilisé l'insertion d'image mais on va procéder par ordre :
l'enregistreur de macro pour voir le bon code d'importation d'image

**IVIedia** · 06/05/2016, 22h27

Envoyé par RyuAutodidacte

Re,
j'ai jamais utilisé l'insertion d'image mais on va procéder par ordre :
l'enregistreur de macro pour voir le bon code d'importation d'image

euhhh oui?

**RyuAutodidacte** · 06/05/2016, 22h34

Pour le chemin du dossier image j'ai aucun doute
j'ai testé en dur directement sur une image j'ai bien ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Pictures.Insert (MyPath & ChR_Sep & sD_Img & ChR_Sep & "32K 10LV Demo4C3.png")

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Pictures.Insert (MyPath_I & "32K 10LV Demo4C3.png")

et c'est ok
Je ne sais pas pourquoi tu mets des + là où je mets des &

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ActiveSheet.Pictures.Insert(MyPath_I + sFilename + ".jpg").Select

il en va de même que le résultat est ok que ça soit jpg ou png

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Pictures.Insert (MyPath_I & "32K 10LV Demo4C3" & ".png")

**RyuAutodidacte** · 06/05/2016, 22h57

re, voilà,

Toute cette partie de code est ok chez moi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    ActiveSheet.Pictures.Insert(MyPath_I & "32K 10LV Demo4C3" & ".png").Select
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Height = 70
    Selection.ShapeRange.Width = 201
    Selection.Left = ActiveSheet.Range("F2").Left
    Selection.Top = ActiveSheet.Range("F2").Top

S'il te plait remplace les + par des &

et si il y a encore un problème faudra regarder la boucle de plus près mais le code ci-dessus marche parfaitement
j'ai remplacé sFilename par une image en dur "32K 10LV Demo4C3", mais si t'as boucle est ok il n'y a aucune raison que ça ne marche pas mais pour l'instant je n'ai pas regardé cette boucle

**IVIedia** · 06/05/2016, 23h20

Re,

j'ai modifier les + par &
et j'ai toujours le même soucis

le code s’exécute mais affiche pas l'image,
la boucle fonctionne on dirais que ça duplique bien tout cela
sauf que j'ai aucun image ...

en vidéo mon test -> https://youtu.be/uimO_oKcGK4

merci

**kiki29** · 06/05/2016, 23h36

Salut, à tenter : Load picture in image control on userform

**RyuAutodidacte** · 06/05/2016, 23h43

Bonsoir @kiki29,
merci pour le lien mais chez moi son code marche (par contre je ne suis pas rentré dans la boucle)
mais sur la vidéo j'ai vu quelque chose de bizarre
le chemin affiché par le msgbox était avec des / au lieu de :

@IVIedia peux tu tester stp dans ton code et nous donner le résutat:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox ChR_Sep

Chez moi j'ai :

et toi??

Edit : son message à disparu

je remets le lien :http://www.rondebruin.nl/mac/mac024.htm

**IVIedia** · 06/05/2016, 23h47

re moi j'ai / et pas :
ça doit être ça le bug peux être?

**RyuAutodidacte** · 06/05/2016, 23h58

surement, mais c'est bizarre que le comportement de Application.PathSeparator est changé
pour en avoir le cœur net testons avec ça => remplace dans ton code cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Pictures.Insert(Replace(MyPath_I & sFilename & ".jpg", "/", ":")).Select

Edit : dans un forum en anglais il parle bien du problème avec Application.PathSeparator
http://www.vbaexpress.com/forum/show...MS-Office-2016

**IVIedia** · 07/05/2016, 00h05

re il y a aucune action qui ce passe, juste une alert avec 400

Affiché les images dynamiquement en fontion de la colonne nom [XL-2016]

Macros et VBA Excel

Discussions similaires

Partager

Partager