affichage de petits dessins jpg

[utilisateur_médiocre]

bonjour le forum

est-il possible de faire apparaître dans une cellule un petit dessin jpg choisi dans un répertoire en fonction de la valeur d'une autre cellule.

merci

 

[Cousinhub]

Re : affichage de petits dessins jpg

Euh,
vite fait, à la mi-temps...

synonymes de :

réitère

itératif, recommencé, redit, redoublé, réédité, refait, renouvelé, répété.

Quand je disais qu'il redoublait d'effort.....

 

[Staple1600]

Re : affichage de petits dessins jpg

Bonsoir à tous



Alors de l'aide est requise, et comme je ne commente pas le match
(je laisse cela à Thierry G. de TF1)

je peux par contre commencer à commenter du code VBA

( Allez les petits !!!)


OK ---> CTRL C+CTRL V

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range) 'd'après JBoisgontier sur XLD
Dim Image, MonImage As Object
[COLOR="SeaGreen"]'Verifie si la cellule active appartient à la plage A2B2[/COLOR]
  If Not Intersect(Target, Range("A2:B2")) Is Nothing Then
[COLOR="SeaGreen"]'Change de répertoire[/COLOR]
    ChDir ActiveWorkbook.Path
    If [A2] = "Calecon" And [B2] <> "Ne pas Voir" Then Image = "Calecon.jpg"
    If [A2] = "Ecole" And [B2] <> "Ne pas Voir" Then Image = "Ecole.jpg"
    If [A2] = "Muguet" And [B2] <> "Ne pas Voir" Then Image = "Muguet.gif"
    If [A2] = "XLD" And [B2] <> "Ne pas Voir" Then Image = "XLD.bmp"
    On Error Resume Next
[COLOR="SeaGreen"]'efface l'image nommée MonImage[/COLOR]
    ActiveSheet.Shapes("MonImage").Delete
    Range("D2").Select
[COLOR="SeaGreen"]'Insère et sélectionne l'image[/COLOR]
    MonImage = ActiveSheet.Pictures.Insert(Image).Select
'[COLOR="SeaGreen"]nomme l'image[/COLOR]
    Selection.Name = "MonImage"
    Target.Select
  End If
End Sub

 

[JCGL]

Re : affichage de petits dessins jpg

Re,
Salut Staple ,

Option Explicit ' T'oblige à déclarer tes variables : excellente habitude à prendre
Private Sub Worksheet_Change(ByVal Target As Range) 'd'après JBoisgontier sur XLD : Toujours cité la source...
'et à chaque changement sur la feuille appliction du code
Dim Image, MonImage As Object 'Déclaration des variables, ici Image et MonImage sont des Objets

  If Not Intersect(Target, Range("A2:B2")) Is Nothing Then 'S'il y a quelque chose en A2 et B2
    ChDir ActiveWorkbook.Path 'Donne le chemin,  ici pour les images donc dans le même répertoire
    If [A2] = "Calecon" And [B2] <> "Ne pas Voir" Then Image = "Calecon.jpg" 'si A2 égale "Calecon" et B2 différent de "Ne pas voir" alors afficher "Calecon.jpg"
    If [A2] = "Ecole" And [B2] <> "Ne pas Voir" Then Image = "Ecole.jpg"
    If [A2] = "Muguet" And [B2] <> "Ne pas Voir" Then Image = "Muguet.gif"
    If [A2] = "XLD" And [B2] <> "Ne pas Voir" Then Image = "XLD.bmp"
    On Error Resume Next 'si VBA trouve une erreur on passe à la ligne suivante
    ActiveSheet.Shapes("MonImage").Delete ' Effacement de l'image
    Range("D2").Select 'Se positionner sur D2
    MonImage = ActiveSheet.Pictures.Insert(Image).Select 'Détermination de l'image à insérer grâce à ligne If[xx]=...
    Selection.Name = "MonImage" 'Donne le nom "MonImage" à la sélection et permet l'insertion
    Target.Select 'Sélectionne la cellule D2 et place l'image
  End If 'Fin de la condition
End Sub 'Fin de la macro

Heureux de voir que je ne suis pas seul à vouloir aider utilisateur_médiocre (qui va croire qu'il à affaire à une bande de fous... fous d'XL s'entend...)

A+

 

[Staple1600]

Re : affichage de petits dessins jpg

Re bonsoir JCGL

mais il "faudrait" que je puisse appliquer sur plusieurs lignes !!!

Reste donc à savoir combien de lignes et combien de jpg dans le repertoire
(pour taille du fichier)

pour continuer

 

[JCGL]

Re : affichage de petits dessins jpg

Re,

Staple : C'est pourquoi je préconisais une autre méthode... dans un précédent message

Je pensais à un code de notre ami Tatiak

A+

 

[utilisateur_médiocre]

Re : affichage de petits dessins jpg

bonjour à tous

environ 40 lignes (peut-être plus) et 4 petits dessins .jpg.
plusieurs lignes peuvent avoir le même dessin car elles répondent aux mêmes critères.
merci

 

[JCGL]

Re : affichage de petits dessins jpg

Bonjour à tous,

Donne les informations demandées...

A savoir les conditions et l'image à insérer

Dans un fichier une colonne A avec la condition (e.g. 1 ou Toto ou >10...) et en C le nom de l'image à insérer (Image01.jpg)

Si tu peux joindre les images, c'est encore mieux.

A+

 

[Staple1600]

Re : affichage de petits dessins jpg

Bonjour


Une question:

4 petits dessins .jpg.

Donc il n'y a que 4 images ?

Dans ce cas on peut les stocker dans le classeur non?

 

[Staple1600]

Re : affichage de petits dessins jpg

Re



edition
Voir exemple mis à jour plus haut dans le fil

 

[utilisateur_médiocre]

Re : affichage de petits dessins jpg

il manque un .jpg
dans le message suivant

 

[utilisateur_médiocre]

Re : affichage de petits dessins jpg

merci à vous pour votre aide

 

[Staple1600]

Re : affichage de petits dessins jpg

Re




Voir fichier joint (il reste un problème à régler )

edit: nouvelle version plus haut dans le fil.

 

[utilisateur_médiocre]

Re : affichage de petits dessins jpg

oh!! c'est bien, mis à part que le dessin ne correspond pas au choix mais ce ne dois pas être grave.
par contre, il serait bien que le dessin reste affiché.
merci pour ce boulot !!!!!

 

[Staple1600]

Re : affichage de petits dessins jpg

Re

il serait bien que le dessin reste affiché.

C'est ce que je voulais dire par:

(il reste un problème à régler )

 

[utilisateur_médiocre]

Re : affichage de petits dessins jpg

excuse moi.
pour les petites retouches, j'ai fait les modifs dans la macro.
merci