Sorte de box qui s'affiche sans click

[jossbomal]

Bonjour,

je vous interpelle car je suis à la recherche d'un moyen d'afficher sans cliquer une liste qui se trouve sur une feuille.
Je m'explique: sur la feuille 1 se trouve une liste de nom. Pour chaque nom existe une feuille avec des informations sur chaque nom. Lorsque qu'on clique sur un nom en feuille 1, la feuille de ce nom s'affiche. Mais je voudrais en plus, que lorsqu'on passe la souris sur un nom en feuille 1, la liste de la feuille qui contient les infos s'affiche sous forme d'une liste qui disparait quand on enlève la souris de la cellule où il y a le nom....

Merci 🙂

 

[Banzai64]

Re : Sorte de box qui s'affiche sans click

Bonjour et bienvenu jossbomal


Un essai (pour s'amuser)

 

[jossbomal]

Re : Sorte de box qui s'affiche sans click

Salut Banzai64,

merci pour ta reponse, connaitrais-tu la commande vba pour insérer un commentaire?

 

[Banzai64]

Re : Sorte de box qui s'affiche sans click

Bonsoir

Pas dans l'immédiat
faut que je cherche alors avis aux spécialistes des commentaires, s'is connaissent la réponse

 

[jeanpierre]

Re : Sorte de box qui s'affiche sans click

Bonsoir jossbomal, banzai et le forum,

Il y a une commande intéressante, c'est RECHERCHE dans le bandeau en haut....

Cette question a été maintes fois posée, et il y a de nombreux fils sur le sujet.

Bonne soirée.

Jean-Pierre

 

[Lord Nelson]

Re : Sorte de box qui s'affiche sans click

Bonsoir tout le monde,

Voici un exemple d'insertion de commentaires par macro :

Sub Insérer_Commentaires()
Dim CL As Range
For Each CL In Range("B1:B12")
  If CL.Comment Is Nothing Then
    CL.AddComment
    CL.Comment.Visible = False
  End If
  CL.Comment.Text Range("D" & CL.Row).Text
Next
End Sub

Là l'idée est d'insérer en commentaires dans les cellules B1 à B12 les textes contenus dans les cellules D1 à D12.

Puis voici comment effacer les comentaires :

Sub Effacer_Commentaires()
Dim CL As Range
For Each CL In Range("B1:B12")
  If Not CL.Comment Is Nothing Then
    CL.Comment.Delete
  End If
Next
End Sub

A+
Horatio