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
Bonjour à tous,
Comme la demande semble stricte, voici la réponse stricte.
Code à mettre dans le code de la feuille :
VB:
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
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
Bonjour à tous,
Comme la demande semble stricte, voici la réponse stricte.
Code à mettre dans le code de la feuille :
VB:
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
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
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
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
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 )