XL 2010 Affiche le texte d'une cellule en cliquant sur une image

[Orson83]

Bonjour la communauté,
Je cherche à afficher une information sous forme de texte qui se trouve dans des cellules fusionnées.
Pour cela, j'aimerai que l'utilisateur puisse l'afficher en cliquant sur l'image "Information".
Dès lors que l'on sortira de ces cellules fusionnées, le texte disparaîtra.
Merci pour votre aide. Je dépose mon fichier exemple dans ce post.
Tchotchodu31

 

[sylvanu]

Bonjour Tchotchodu,
En PJ un essai par survol de l'image.
La solution est simple. A voir si elle vous plait.

 

[Orson83]

Bonjour Tchotchodu,
En PJ un essai par survol de l'image.
La solution est simple. A voir si elle vous plait.

Bonjour,
Le survol de l'image avec infobulle ne me convient pas.
Je pensais plutôt à une action avec code VBA selon mon premier post.
François

 

[fanch55]

Bonjour à tous,
Comme la demande semble stricte, voici la réponse stricte.
Code à mettre dans le code de la feuille :

Sub Show_Cell()
    [E4] = "Texte à afficher si je clique sur l'image. Ce texte disparait quand je clique dans une cellule autre que E4:I6." & vbLf & _
            "PS : les cellules E4:I6 sont fusionnées par obligation."
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [E4]) Is Nothing Then [E4] = vbNullString
End Sub

Affecter la Macro Show_cell à l'image "Image 1" .

 

[mapomme]

Bonjour @Tchotchodu31, @sylvanu

Et ceci vous convient-il ?

Code dans le module de Feuil1:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Target.Address = Range("e4").MergeArea.Address Then Range("e4").NumberFormat = ";;;"
End Sub

Sub affiche()
   ' macro Affiche à affecter à l'image via le clique-droit sur l'image
   Range("e4").NumberFormat = "General"
End Sub

edit : bonjour @fanch55

 

[Orson83]

Bonjour à tous,
Comme la demande semble stricte, voici la réponse stricte.
Code à mettre dans le code de la feuille :

Sub Show_Cell()
    [E4] = "Texte à afficher si je clique sur l'image. Ce texte disparait quand je clique dans une cellule autre que E4:I6." & vbLf & _
            "PS : les cellules E4:I6 sont fusionnées par obligation."
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [E4]) Is Nothing Then [E4] = vbNullString
End Sub

Affecter la Macro Show_cell à l'image "Image 1" .

Bonjour fanch55,
Merci pour cette proposition.
Cette solution est bonne mais elle m'oblige à insérer mon texte dans le code VBA.
J'aurai préféré que le texte soit intégré dans les cellules fusionnées pour plus de facilité.
François

 

[Usine à gaz]

Bonjour Tchotchodu31,sylvanu, mapomme , fanch55, le forum,

Ou comme fichier joint mais les solutions de Mapomme et sylvanu sont meilleures
lionel,

 

[Orson83]

Nonjour @Tchotchodu31, @sylvanu

Et ceci vous convient-il ?

Code dans le module de Feuil1:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Target.Address = Range("e4").MergeArea.Address Then Range("e4").NumberFormat = ";;;"
End Sub

Sub affiche()
   ' macro Affiche à affecter à l'image via le clique-droit sur l'image
   Range("e4").NumberFormat = "General"
End Sub

edit : bonjour @fanch55

Bonsoir mapomme,
Merci de t'être penché sur ma demande.
Je suis ennuyé car cela fonctionne correctement avec ton fichier mais pas dans le mien.
J'ai pourtant tout essayé, renommer le fichier et l'onglet, changer les ("e4") par des ("E4"), ("$E$4"), modifier et changer d'image, inséré le code dans la feuil ou dans un module, ect.
Peut-être que le problème viendrait de la cible du style : sheets("Feuil1").Range("E4") ??
François

 

[Orson83]

Bonjour Tchotchodu31, mapomme, fanch55, le forum,

Ou comme fichier joint mais la solution de Mapomme est meilleure
lionel,

Merci arthour973.
Oui, mais chez moi il ne fonctionne pas. J'ai peut-être mal fait quelque chose.
Bonne soirée.

 

[Usine à gaz]

Re-bonjour,
@Tchotchodu31: je suppose que tu as activé le contenu (les macros) en l'ouvrant la 1ère fois ?
Je suis sur office365 et toi ?
lionel,

 

[Orson83]

Re-bonjour,
@Tchotchodu31: je suppose que tu as activé le contenu (les macros) en l'ouvrant la 1ère fois ?
Je suis sur office365 et toi ?
lionel,

Oui, j'ai déjà pal mal de macro qui sont installées. Je maîtrise mieux les procédures d'insertion que le code VBA.
Je suis en version Excel 2010.

 

[Usine à gaz]

Curieux, ça fonctionne pourtant chez moi sans souci

Tu as pu voir les codes :
1 - dans le code de la feuille pour clic sur la cellule,
2 - dans un module standard lié à l'image,

 

[Orson83]

Curieux, ça fonctionne pourtant chez moi sans souci

Tu as pu voir les codes :
1 - dans le code de la feuille pour clic sur la cellule,
2 - dans un module standard lié à l'image,

Bizarre.
Comment tu répartis les 2 morceaux de code ?
Code Feuil1 : ??
Code Module : ??

 

[Usine à gaz]

Si tu peux ouvrir le fichier, tu verras les codes forcément alt11

 

[mapomme]

Re @Tchotchodu31, @arthour973 ,

Le fichier de @arthour973 fonctionne chez moi aussi (Excel 2010). C'est curieux qu’aucun des codes ne fonctionne dans ton classeur. il faudrait le fichier qui bogue (sans les données que nous ne devons pas voir )