Assigné une image a une cellule avec liste déroulante

[Jul74ien74]

Bonjour,

je souhaite assigné une image correspondant à un choix dans une cellule a liste déroulante.
voici mon fichier exemple.
le but est qu'en cellule F25 je choisi l'action dans la liste déroulante, cela m'affiche l'action et je souhaite que cela m'affiche dans la cellule J25 limage correspondant a l'action.

merci

 

[CHALET53]

Re : Assigné une image a une cellule avec liste déroulante

Bonjour,

Un essai

a+

 

[Jul74ien74]

Re : Assigné une image a une cellule avec liste déroulante

C'est ce qui me faut merci
, tu as mis ou le code pour que je comprenne

 

[CHALET53]

Re : Assigné une image a une cellule avec liste déroulante

click droit sur le nom de l'onglet (Feuil1)
choix : visualiser le code

 

[Jul74ien74]

Re : Assigné une image a une cellule avec liste déroulante

cool merci,
moi j'ai reussi a faire quelque chose en macro mais pas aussi bien que toi

 

[Jul74ien74]

Re : Assigné une image a une cellule avec liste déroulante

alors juste pour savoir,

voici mon code

Sub Bouton5_Cliquer()


Dim objFeuille As Worksheet, objPict As Picture
For Lig = 24 To 100
If Cells(Lig, 11).Value = "Créer" Then
Set objFeuille = ActiveSheet
Set objPict = objFeuille.Pictures.Insert("\\file.media.int\Users_RTS\DurandJu\Desktop\creer.jpg")
With objPict
.Left = Cells(Lig, 6).Left
.Top = Cells(Lig, 6).Top
.Height = Cells(Lig, 6).Height
.Width = Cells(Lig, 6).Width
End With


Else
If Cells(Lig, 11).Value = "Supprimer" Then
Set objFeuille = ActiveSheet
Set objPict = objFeuille.Pictures.Insert("\\file.media.int\Users_RTS\DurandJu\Desktop\supprimer.jpg")
With objPict
.Left = Cells(Lig, 6).Left
.Top = Cells(Lig, 6).Top
.Height = Cells(Lig, 6).Height
.Width = Cells(Lig, 6).Width
End With
Else
If Cells(Lig, 11).Value = "Ne pas toucher" Then
Set objFeuille = ActiveSheet
Set objPict = objFeuille.Pictures.Insert("\\file.media.int\Users_RTS\DurandJu\Desktop\rien faire.jpg")
With objPict
.Left = Cells(Lig, 6).Left
.Top = Cells(Lig, 6).Top
.Height = Cells(Lig, 6).Height
.Width = Cells(Lig, 6).Width
End With

End If
End If
End If
Next Lig
End Sub

la ou veux améliorer une chose c'est que je veux que si la cellule Lig,11 contient déjà quelque choses, qu'il ne me remette pas l'image par dessus... car a chaque appuie sur mon bouton il rajoute des images par dessus les autres...

 

[CHALET53]

Re : Assigné une image a une cellule avec liste déroulante

la ou veux améliorer une chose c'est que je veux que si la cellule Lig,11 contient déjà quelque choses, qu'il ne me remette pas l'image par dessus... car a chaque appuie sur mon bouton il rajoute des images par dessus les autres...

Il faut commencer par faire un Delete de l'image précédente dans la cellule concernée avant d'insérer la nouvelle image

 

[Jul74ien74]

Re : Assigné une image a une cellule avec liste déroulante

oui mais je bloque

 

[Jul74ien74]

Re : Assigné une image a une cellule avec liste déroulante

Je bloque car vu qu'il y a 3 images différente je n`y arrive pas

 

[CHALET53]

Re : Assigné une image a une cellule avec liste déroulante

Pour ton problème, je me suis inspiré de ce fichier que j'avais fait suite à une demande sur ce forum
Il s'agissait bien d'insertion d'image
Ce que je t'ai fait : c'est une simple copie du contenu d'une cellule (celle où se trouve la flèche à insérer : Cxx). Avant insertion dans la colonne J, je commence par un Delete du contenu de cette cellule (même s'il n'y a rien)

Dans le fichier que je te joins, il s'agit d'image à insérer en face d'un jour donné d'un mois donné. Je commence la procédure par un Delete de l'image qui peut être présente dans la cellule traitée (en fait un Delete des 3 images possibles dans la cellule, ce qui fait que 2 Delete ne servent à rien mais n'empêche pas la procédure de fonctionner)

 

[Jul74ien74]

Re : Assigné une image a une cellule avec liste déroulante

Bonjour,

voici mon bout de code

Sub Bouton5_Cliquer()

Dim objFeuille As Worksheet, objPict As Picture


If Not (Intersect(Target, Range("F24:F100")) Is Nothing) Then
Application.ScreenUpdating = False
feuil = ActiveSheet.Name
opt = Target.Value
adr = Target.Row
Range("F" & adr).Select
jour = Val(Format(Range("K" & adr), "dd"))

ActiveSheet.Shapes("Créer" & jour).Delete
ActiveSheet.Shapes("Supprimer" & jour).Delete
ActiveSheet.Shapes("Ne pas toucher" & jour).Delete


If Cells(Lig, 11).Value = "Créer" Then
Set objFeuille = ActiveSheet
Set objPict = objFeuille.Pictures.Insert("\\file.media.int\Users_RTS\DurandJu\Desktop\creer.jpg")
With objPict
.Left = Cells(Lig, 6).Left
.Top = Cells(Lig, 6).Top
.Height = Cells(Lig, 6).Height
.Width = Cells(Lig, 6).Width
End With



Else

If Cells(Lig, 11).Value = "Supprimer" Then
Set objFeuille = ActiveSheet
Set objPict = objFeuille.Pictures.Insert("\\file.media.int\Users_RTS\DurandJu\Desktop\supprimer.jpg")
With objPict
.Left = Cells(Lig, 6).Left
.Top = Cells(Lig, 6).Top
.Height = Cells(Lig, 6).Height
.Width = Cells(Lig, 6).Width
End With


Else

If Cells(Lig, 11).Value = "Ne pas toucher" Then
Set objFeuille = ActiveSheet
Set objPict = objFeuille.Pictures.Insert("\\file.media.int\Users_RTS\DurandJu\Desktop\rien faire.jpg")
With objPict
.Left = Cells(Lig, 6).Left
.Top = Cells(Lig, 6).Top
.Height = Cells(Lig, 6).Height
.Width = Cells(Lig, 6).Width
End With
End If
End If
End If


End If




End Sub

mais ca marche pas...

 

[CHALET53]

Re : Assigné une image a une cellule avec liste déroulante

Je suppose que tu as créer les 3 objets "créer" , "supprimer" et "rien faire" au format JPEG (extension : .jpg
Peux-tu joindre ces trois fichiers ?

a+

 

[Jul74ien74]

Re : Assigné une image a une cellule avec liste déroulante

Regarde ds le fil de discussion, ils y sont plus haut

 

[CHALET53]

Re : Assigné une image a une cellule avec liste déroulante

Je ne vois pas bien ce que tu veux faire et pourquoi la version précédente basée sur la gestion événementielle ne te convient pas

j'ai inséré tes 3 images dans le fichier : elles portent les noms "créer" , "supprimer" et "rienfaire"

Dans la mesure où il faut les différencier, la notion de ligne concernée (et non le jour) est nécessaire pour supprimer l'image précédente en cas de modification dans la colonne F et réinsérer la nouvelle image

Il faut cliquer sur le bouton pour la mise en oeuvre de l'option choisie

 

[Jul74ien74]

Re : Assigné une image a une cellule avec liste déroulante

Alors dans un premier temps il y a un bug de fonctionnement dans ta version que tu viens de me donner:

en effet si tu te place sur une cellule vide, peu importe dans quelle colonne, et que tu appuis sur le bouton, alors il te colle une image dans la ligne ou tu es et si tu reclic 4 fois de suite il te fais un escalier..., ce qui n'est pas ce que je veux.


ensuite dans la version qui fonctionne a 95 % comme je le veux, il faut juste que j'arrive a supprimer les doublons que la macro me créer.