Commentaire

Le
Brat'ac
Bonjour,
Sur une cellule j'ai une liste déroulante avec différentes valeurs à
choisir.

Est-il possible d'afficher un commentaire sur les valeurs au survol de
la souris
c'est à dire avant de cliquer sur une valeur quelconque.

Merci de l'aide.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Brat'ac
Le #26417909
Le 21/11/2016, Brat'ac a supposé :
Bonjour,
Sur une cellule j'ai une liste déroulante avec différentes valeurs à choisir.
Est-il possible d'afficher un commentaire sur les valeurs au survol de la
souris
c'est à dire avant de cliquer sur une valeur quelconque.
Merci de l'aide.

J'ai trouvé sur la toile et adapté
Dim Message As String
Dim Rg As Range, C As Range
Message = "Mon texte"
With Worksheets("Ma feuille")
Set Rg = .Range("D9:D100")
End With
For Each C In Rg
AjoutCommentaire C, Message
Next
HB
Le #26417918
euh ...et ...
c'est quoi "AjoutCommentaire" ;o)
HB
Le 21/11/2016 à 20:46, Brat'ac a écrit :
(...) afficher un commentaire sur les valeurs au survol de
la souris
c'est à dire avant de cliquer sur une valeur quelconque.


(...)
J'ai trouvé sur la toile et adapté
Dim Message As String
Dim Rg As Range, C As Range
Message = "Mon texte"
With Worksheets("Ma feuille")
Set Rg = .Range("D9:D100")
End With
For Each C In Rg
AjoutCommentaire C, Message
Next
Brat'ac
Le #26417917
HB a formulé la demande :
euh ...et ...
c'est quoi "AjoutCommentaire" ;o)
HB

Et oui j'ai oublié un morceau :-(
Sub AjoutCommentaire(C As Range, Message As String)
Dim Commentaire As Comment
With C
.ClearComments
Set Commentaire = .AddComment
End With
With Commentaire
.Visible = False
.Text Message
With .Shape.OLEFormat.Object
.Font.Name = "Arial"
.Font.Size = 12
.Font.Bold = True
.Font.ColorIndex = 3
.Height = 50.5
.Width = 150.5
'.AutoSize = True
End With
End With
End Sub
Publicité
Poster une réponse
Anonyme