Microsoft 365 Tableau affiché au survol d'une case

[otarc]

Bonjour,

J'aimerai afficher une selection d'un tableau au survol d'une case. Est possible sur excel ?

Je vous remercie,

Bien cordialement

 

[fanch55]

Qu'entendez-vous par Case ? une cellule, un shape, un activex ?

 

[mapomme]

Qu'entendez-vous par Case ? une cellule, un shape, un activex ?

Chez nos amis canadiens français, la case est la cellule. Je trouve le terme plutôt bien choisi. Dessine moi une cellule! D'emblée, on dessine plutôt quelque chose de rond ou ovale (sauf les anciens détenus). Dessine moi une case! D'emblée, on dessine plutôt quelque chose de rectangulaire (sauf les Shadoks)
Mais otarc est-il canadien français ?

 

[fanch55]

Waow, merci ma pomme,
un genre de tooltiptex au survol d'une cellule, donc. cela ne ressemble-t-il pas à un comment ?
Faudrait savoir quoi mettre précisément dans ce comment ... 😛

 

[otarc]

Pardon, voilà le fichier.
Si je passe la souris sur la cellule Survol, je veux voir afficher le tableau qu'il y a à droite.

 

[Gégé-45550]

Bonsoir,
Vous pouvez "tricher" en "posant" une shape transparente sur la cellule et en utilisant son événement MouseOver.
Cdlt

 

[otarc]

Shape, Mouseover ? Je n'ai jamais vu utilisé ces termes.

 

[Gégé-45550]

Un petit exemple.

Survolez le bouton en D5 et regardez ce qui se passe.
Bonne soirée.

 

[job75]

Bonjour otarc, fanch55, Gégé-45550, [Edit] et mapomme que j'oubliais,

Comme l'a suggéré fanch55 on peut insérer l'image de la plage dans un commentaire :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim fichier$, x#, y#, o As Object
fichier = ThisWorkbook.Path & "\ImagePlage.jpg"
'---création du fichier JPEG---
Application.ScreenUpdating = False
With [H8].CurrentRegion 'à adapter
    x = .Width
    y = .Height
    .CopyPicture
End With
Set o = ChartObjects.Add(0, 0, x, y)
Do
    o.Chart.Paste
    DoEvents
Loop While TypeName(Selection) = "Range" 'en attente de création de la Shape
o.Chart.Export fichier, "JPG"
o.Delete
'---création du commentaire---
With [D8] 'à adapter
    .ClearComments 'RAZ
    .AddComment ""
    .Comment.Shape.Fill.UserPicture fichier 'insère l'image
    .Comment.Shape.Width = x
    .Comment.Shape.Height = y
End With
Kill fichier 'supprime le fichier JPEG
End Sub

A+

 

[otarc]

Je ne trouve pas votre code dans les macros. Je ne comprends pas comment vous avez réussi à faire ça ! Du coup, je n'arrive pas à le reproduire sur un autre exemple.
De plus, j'ai l'impression que la validation des cellules concerne toute la feuille et pas une zone précise.

 

[job75]

La macro est dans le code de la feuille (clic droit sur l'onglet et Visualiser le code).

Elle s'exécute automatiquement quand on valide une cellule quelconque ou modifie son contenu.

Seul le commentaire de la cellule D8 est créé ou modifié.

 

[fanch55]

@job75
Merci Job, j'ai appris qu'on pouvait mettre une image dans un Comment . 🙂