Texte + image

[guy72]

Bonjour,
Avec la liste de validation en J3, je mets l'image en J4 choisie dans la
liste.
Je souhaiterais avoir également le nom de l'image dans sa cellule, même si le texte est recouvert par l'image, ceci sert à comptabiliser le nombre de texte différent.
La même chose pour K3.
Est-ce possible ?
Merci de votre aide.

 

[Jocelyn]

Re : Texte + image

Bonjour le Forum,
Bonjour guy72,

hum hum si j'ai bien compris il suffit de mettre en J4 (si tu as la liste déroulante en J3) =J3

Jocelyn

 

[guy72]

Re : Texte + image

Bonjour Jocelyn,
Je clic dans la liste déroulante en J3 j'obtiens une image en J4 qui correspond au nom défini dans la liste.
Je clic dans la liste déroulante en K3 j'obtiens une image en K4 qui correspond au nom défini dans la liste.
Mais je souhaiterais avoir dans la cellule le nom de l'image même s’il est caché.
Ou autre chose, ce qu'il faut c'est que je contabilise le nombre d'images ou de texte différents.
Exemple:clic sur J3 = Beau = image Beau = texte Beau dans J4.
Exemple:clic sur K3 = Pluie = image Pluie = texte Pluie dans J4.
J'espère que mon explication est compréhensible ?
Merci de ton aide
Cordialement
Guy

 

[Mytå]

Re : Texte + image

Salut le forum

Guy ici, saturnien la-bas

Modifier une partie de ton code

image = Application.Index([a3:a11], Application.Match(Target, [a3:a11], 0), 1)
If Target.Column = 10 Then
For i = 4 To 37
On Error Resume Next
Set Sh = ActiveSheet.Shapes(Cells(i, 10).Address(0, 0))
If Err.Number <> 0 Then
Err.Clear
ActiveSheet.Shapes.Range(image).Select
Selection.Copy
Cells(i, 10).Select
Selection=Target.Value
ActiveSheet.Paste

Mytå

 

[guy72]

Re : Texte + image

Bonjour Mita,
Merci de ta réponse, il n'y avait pas grand chose à changer,"mais fallait-il le savoir".
Et oui cela fait une semaine que je cherche cette solution, il a fallut que je butine un peu partout.
Et encore merci.

Donc problème résolu.