gestion affichage image sous vba

Version imprimable

08/07/2012, 21h10
Ricoeva84

gestion affichage image sous vba

Bonjour, je voulais savoir s'il y avait une possiblité d'afficher plusieurs images en fonction du code vba sous un évènement.

j'ai utilisé la méthode de monsieur excel qui marche très bien pour une image, mais je voudrais faire la même chose en utilisant l'évènement change mais pour plisieurs image en fonction de plusieurs nom. je connais la méthode sans vba mais cela alourdit le fichier lorsque nous avons 70 images. le fait d'insérer des images par une macro est aussi une solution plus lourde, l'évènement sous vba est parfait mais je ne sais pas faire la boucle...

http://youtu.be/MzF_5DXhqbs

merci infiniment pour votre aide.

rico

Bonsoir,

Ci-dessous un exemple de code permettant de changer une image du type Picture dans une feuille.
- L'image est nommée "MonImage" (même méthode que celle exposé dans la vidéo pour nommer l'image).
- Le chemin et le nom du fichier image se trouve en A1.

Ce code peut être adapté pour charger plusieurs images sur l'évènement Worksheet_Change.

exemple de sujet similaire : ici

Code:

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
37
38
39
40
41
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Intersect(Target, Range("A1")) Is Nothing) Then
        Call LoadPict(ActiveSheet, "MonImage", Target.Value)
    End If
End Sub
 
Private Function DoesPictExist(ws As Worksheet, PictName As String) As Boolean
    DoesPictExist = False
 
    Dim p As Object
    For Each p In ws.Pictures
        If p.Name = PictName Then
            DoesPictExist = True
            Exit For
        End If
    Next p
End Function
 
Private Sub LoadPict(ws As Worksheet, PictName As String, filename As String)
    Dim l As Integer, t As Integer, w As Integer, h As Integer
 
    If DoesPictExist(ws, PictName) Then
        With ws.Pictures(PictName)
            l = .Left
            t = .Top
            w = .Width
            h = .Height
            .Delete
        End With
 
       With ws.Pictures.Insert(filename)
           .Name = PictName
           .Left = l
           .Top = t
           .Width = w
           .Height = h
       End With
 
    End If
 
End Sub

1 pièce(s) jointe(s)

Merci mais pas trop compri

Bonjour Merci beaucoup pour cette réponse aussi rapide.
Par contre j'ai l'impression d'être perdu, je ne comprend pas trop le début (et je pense que c'est l'essentiel pour saisir votre code)
En effet l'image est normé et elle présente en cellule A1 ?s'agit-il de la place du produit

Voici le fichier excel et les images à l'intérieur.
Comment inclure votre code suite à mon code, faut-il tout changer ?

Sur le fichier ci-joint, je mets le code ci-desous, mais cela fonctionne que pour une cellule...:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Worksheet_Change(ByVal Target As Range) Dim NewPic As String If Target.Address = "$C$18" Then NewPic = "D:\....\Bureau\bbb\" & Range("$C$19").Value & ".png" Target.Comment.Shape.Fill.UserPicture NewPic End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub
Encore merci pour votre aide.

09/07/2012, 15h34
BlueMonkey

Bonjour,

J'étais partis sur une autre solution. (autre type de composant), car sous XLS2003, bien que la solution fonctionne, elle n'est pas très intuitive.

Mais la méthode Comment.Shape.Fill.UserPicture fonctionne également.
Elle permet d'éviter le code que j'avais ajouté autour de la fonction LoadPict.

Du coup je ne vois pas ce que tu n'arrives pas à faire?
09/07/2012, 20h38
Ricoeva84

Merci.
En fait ce que je n'arrive pas à faire (si tu regardes dans le fichier joint) c'est de le faire pour plusieurs images et plusieurs libéllés.
Imagine que j'ai 300 images et que lorsque je change de catégories, les libéllés change et donc je veux que les images changent aussi.
Dans le fichier joint, cela fonctionne que pour une image, mais ça ne fonctionne pas pour les 2 autres images, car je le dis que pour une cellule. J'ai essayer de copier le même code et de le faire pour plusieurs cellule, mais cela ne fonctionne pas.

Concernant ta méthode, le problème c'est que je ne la comprends pas. De quoi je dois partir que veux-tu dire par ?
- L'image est nommée "MonImage" (même méthode que celle exposé dans la vidéo pour nommer l'image). Si il y a plusieurs image à afficher comment je fonctionne ?
- Le chemin et le nom du fichier image se trouve en A1. (ta méthode fonctionne en allant chercher sur une addresse (du genre D:/Mes Documents/...)
Merci encore pour ton aide

RicoEva

Pour que les images du fichier changent lorsque le contenu de la ligne 18 change,
remplace la fonction Worksheet_Change par celle-ci :
Code:

1 2 3 4 5 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 18 Then Call Target.Comment.Shape.Fill.UserPicture(ActiveWorkbook.Path & "\" & Target.Offset(1).Value & ".png") End If End Sub
P.S : Je considère que les images sont stockées dans le même dossier que le fichier excel. (sinon il faut remplacer ActiveWorkbook.Path, par le dossier contenant les images)

Citation:

Concernant ta méthode, le problème c'est que je ne la comprends pas. De quoi je dois partir que veux-tu dire par ?

"Ma" méthode est basée sur l'insertion d'élément du type image directement dans les cellules.
(donc je n'utilise passe pas par des commentaires).
Mais si j'ai bien compris ton besoin, le code présenté ci-dessus devrait suffire.
Et toute autre méthode ne ferait que compliquer les choses.

C'est énormissime, ça fonctionne à merveille!!!! Merci beaucoup, j'ai juste rajouter sur le code la ligne 18 et 24, si je veux être sur plusieurs ligne et ça marche c'est top!
Code:

1 2 3 4 5 6 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 18 Or 24 Then Call Target.Comment.Shape.Fill.UserPicture(ActiveWorkbook.Path & "\" & Target.Offset(1).Value & ".png") End If End Sub
Merci beaucoup!!!!!! Je like!

Ricoeva

10/07/2012, 19h23
Ricoeva84

Bonjour de nouveau,

Je viens de me rendre compte que j'ai la fenêtre de débogage qui s'affiche pour n'importe quelle action que je fais sur le fichier soit écrire sur une autre ligne que la ligne 18 ou ligne 24 concerné par le changement. Ce qui peut être embetant si je lis mes formules à la ligne 18 ou 24, puisque tout saute. est-il possible de vérouillé les lignes qui sont concernés par le changement svp? Merci beaucoup, je pensais que c'était résolu mais voilà je suis confronté à une nouvelle petite problématique...

Merci encore

Ricoeva

Salut,

Je crois qu'il y a une erreur sur le test de ligne.
Essaye :

Code:

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
 
If (Target.Row = 18) Or (Target.Row =  24) Then
   Call Target.Comment.Shape.Fill.UserPicture(ActiveWorkbook.Path & "\" & Target.Offset(1).Value & ".png")
End If
End Sub

10/07/2012, 19h31
Ricoeva84

Je viens de retirer l'aspet "or"

Code:

Target.Row = 18 Or 24 Then ->Target.Row = 18 Then

et je n'ai plus le bug donc le fait de rajouter or une ligne supplémentaire de changement fait que le fichier bug mais comment faire si l'on veut travailller sur plusieurs lignes en même temps...

Soit une ligne avec 15 images
Une deuxième ligne avec une autre 15 d'images et ainsi dessuite...je pensais que OR était approprié mais toute modification du fichier fait sauter la fenêtre de débugage...

Merci encore pour le coup de main

Ricoeva

Merci Mille Fois BlueMonkey! You are a king!!! Et vous êtes plus rapide que la lumière!!!!

C'était en effet cela.

Merci beaucoup.
10/07/2012, 19h32
BlueMonkey

Content pour toi que ça fonctionne maintenant. :ccool:

A+
11/07/2012, 21h08
Ricoeva84

Bonsoir,

Encore un petit problème que je viens de rencontrer de nouveau...
L'image change seulement s'il y a une action manuelle, c'est à dire:
Cela fonctionne uniquement lorsque je sélectionne la cellule concernée (avec liste déroulante)

Je voudrais savoir s'il était possible sans sélectionner la cellule que la méthode évènementielle peut fonctionner. Je m'explique, imaginons que les codes des images ne change pas manuellement mais plutot qu'elle soit lié à des formules et que ainsi ces codes images change en fonction d'autres paramètres...

J'espère que oui c'est possible...sinon, je suis preneur d'une autre solution.

Merci beaucoup pour votre aide.

Ricoeva

Peut être qu'avec une macro ou lieu de passer par un évènement sous les commentaire, en affichant directement les photos dans la celule à droite ou en dessous du GENCODE serait une meilleure solution mais comment faire...?

Merci pour le coup de main ?
12/07/2012, 22h18
BlueMonkey

Bonsoir,

Le point délicat est le fait qu'il y ait beaucoup d'images à charger (potentiellement 70 images).
Du coup on ne peut pas se permettre de recharger toutes les images à chaque changement d'un nom.

La solution serait de stocker dans un tableau le nom des fichiers actuellement chargé, puis de tester à chaque changement d'une cellule pouvant
modifier le nom de l'image, tous les noms de fichier.

D'autre solutions sont possibles s'il est possible d'établir un lien logique entre la cellule qui vient de changer et les cellules de nom d'image qui seront impactés.

Pour savoir dans quelle direction aller, il faudrait plus de précision sur :
- la position (ligne/colonne) des cellules pouvant entrainer une modification sur les noms d'image.
(ex : toute la ligne 18, ou de cellule A18 à Z18 ...)
- la position des cellules contenant les noms des fichiers images
(ex : toute la ligne 18, ou cellule de A20 à Z20)
- s'il y a une relation logique entre les positions des cellules qui changent, et les cellules contenant les noms d'image.
(ex : les cellules qui changent sont dans la même colonne en ligne 16 et les noms des images en ligne 22, )
13/07/2012, 14h04
Ricoeva84

Bonjour Blue Monkey, merci pour ton retour!

Donc on ne pas utiliser la fonction Change (fonction évènementiel) sans avoir à cliquer sur les cellules...mince alors!:cry:

Bon A date j'utilise un fichier excel où toutes les images sont stockés sur un onglet en colonne. Donc à droite de chaque photo se situe le code produit.

Ensuite j'utilise la fonction caméra (copier coller image lien) pour avoir le la photo qui change en fonction d'une formule excel (je couple index équiv) dans la partie Formule > Gestion des noms. Pour le moment ça marche, le problème c'est que c'est hyper lourd comme fichier, car je me retrouve avec un 65 Photos qui s'affiche, donc 65 formule pour chaque cadre photo...donc le fichier est imbitable...Et ce n'est pas le poids des photos, puisque le fichier avec toutes les photos fait 2mo mais avec les formules passe à10mo...enfin bon...
Si tu as une idée de comment faire ? je suis preneur, sinon je continue à chercher...

Merci encore Blue Monkey!

Citation:

Envoyé par BlueMonkey

Bonsoir,

Pour savoir dans quelle direction aller, il faudrait plus de précision sur :
- la position (ligne/colonne) des cellules pouvant entrainer une modification sur les noms d'image.
(ex : toute la ligne 18, ou de cellule A18 à Z18 ...)
- la position des cellules contenant les noms des fichiers images
(ex : toute la ligne 18, ou cellule de A20 à Z20)
- s'il y a une relation logique entre les positions des cellules qui changent, et les cellules contenant les noms d'image.
(ex : les cellules qui changent sont dans la même colonne en ligne 16 et les noms des images en ligne 22, )

Pour répondre à tes remarques:
- ce n'est pas toute la ligne 18 mais de la ligne A18 à Q18 où le nom des images changent
- la position des celules ne changent pas. C'est à dire que le cadre photo contenant l'image change en fonction du nom

Par conséquent l'idée c'est soit d'aller chercher l'image dans le dossier où les images sont stockés. Je prépare le format de remplissage, c'est à dire que pour chaque cellule, un comment avec remplissage image est affecté en ligne à la cellule qui contient le nom. Et par conséquen lorsque le nom change car on change de catégorie, le remplissage de l'image change aussi.

Je ne sais pas si c'est très claire...

Merci
13/07/2012, 15h27
BlueMonkey

Bonjour,

Citation:

Donc on ne pas utiliser la fonction Change (fonction évènementiel) sans avoir à cliquer sur les cellules...mince alors!

Effectivement on aura pas d'évènement sur les cellules contenant les noms de fichiers, car la valeur des cellules changera du fait d'une formule,
et pas d'une édition.

Par contre, on pourra utiliser un évènement de changement sur la cellule qui provoque le changement de nom d'image.
Pour ça il faudrait :
- la liste des cellules dont le changement de valeur par l'utilisateur (donc qui provoque un évènement) provoque une changement de nom d'image.
- la formule qui contruit le nom d'image :
(ex : En A18 : "=concatener("image";i";".xls"); en B18 ....)
13/07/2012, 19h36
Ricoeva84

j'ai contourné le problème avec une macro
Bonsoir Blue Monkey,

Je pense avoir contourné le problème avec une macro qui va cliquer sur les celule concerné par l'évènement target row...ça fonctionne au perfect, je vais essayer ce soir ta méthode, car un évènement qui change un autre évènement c'est intéressant.
ma macro est un peu longue car elle va cliquer chaque cellule une à une...mais bon ça marche, s'il y a un moyen de cliquer chaque cellule une à une plus rapidement, je suis aussi preneur.
Merci Blue Monkey encore!
Code:

1 2 3 4 5 Application.ScreenUpdating = False Range("b14").Select ActiveCell.FormulaR1C1 = "" Range("C14").Select .....
Ainsi de suite
13/07/2012, 20h11
BlueMonkey
Bonsoir,

Citation:

S'il y a un moyen de cliquer chaque cellule une à une plus rapidement, je suis aussi preneur.

La fonction qui traite l'évènement de changement de valeur peu être appelé directement:
Code:

1 2 3 4 5 6 Application.EnableEvents = False .. Call Worksheet_Change(Range("B14")) Call Worksheet_Change(Range("C14")) ... Application.EnableEvents = True
13/07/2012, 22h33
Ricoeva84

Top !!! et est-ce possible de ne pas taper

chaque cellule, mais fonctionné par ligne par exemple

Code:

Call Worksheet_Change (Range(B14:P18))

? c'est plus simple non ?

C'est possible définir une plage de cellule plutôt qu'une seule cellule, mais il faut adapter le traitement de la fonction Worksheet_Change.
Code:

1 2 3 4 5 6 Private Sub Worksheet_Change(ByVal Target As Range) Dim r as Range For each r in Target ' faire le traitement sur chaque cellule "r" dans cette boucle. Next r End Sub