Remplissage de Cellule par clic sur une image

[Valentin_Loupe]

Bonjour à tous,

Je souhaiterais savoir si il est possible d'insérer une valeur qui serait accrochée à une image dans la cellule sélectionnée à ce moment là.

Je m'explique : Soit 6 images différentes affichées quelque part dans la feuille Excel. A chaque image, correspond un nombre. Il faudrait en fait sélectionner la cellule dans laquelle on souhaiterait que la valeur s'inscrive et juste aussitôt cliquer sur l'image qui correspond au cas cherché.

Ainsi si on clique en H3 et que tout de suite après on clique sur une des 6 images, la valeur de l'image sera intégrée dans la cellule sélectionnée au départ.

Aussi, est-il possible de limiter cette action à une plage de cellule de façon à ce que les nombres accrochés aux images ne soit pas inscrivables dans n'importe quelle cellule mais seulement celles que l'on veut ?

Je vous remercie par avance,

Valentin

 

[nouv]

Re : Remplissage de Cellule par clic sur une image

bonjour,

clic droit sur l'image 1 + Affecter une macro + Nouvelle
puis marquer le code suivant :

Sub Image1_QuandClic()
If Application.Intersect(ActiveCell, Range("[COLOR="Red"]a1:a6[/COLOR]")) Is Nothing Then
MsgBox "Sélectionner une cellule dans la zone [COLOR="Red"]A1:A6[/COLOR]."
Else
ActiveCell.Value = [COLOR="Red"]1[/COLOR]
End If
End Sub

la plage autorisée est A1:A6, si la cellule active n'est pas dans cette zone, un message box apparaît indiquant la zone autorisée.
Les zones à adaptées sont en rouge

dis si ça te va

><>

 

[Valentin_Loupe]

Re : Remplissage de Cellule par clic sur une image

Hello nouv, hello le forum,

Merci pour ta réponse rapide, écoute c'est nickel-chrome impeccable !
Quoi d'autre ? C'est ce qu'il me fallait ! Encore merci !

Valentin