Clic and Comment

[Will]

Bonjour,

Question simple, pour réponse compliquée (?) :

Je double-clique sur une cellule et (pouf) le commentaire associé apparaît dans une petite fenêtre. En fait, quelque chose de plus sympa que la fonction standard "commentaire" d'excel.

Merci à vous.

Will

 

[Goodparts]

Hello Wil et le le forum,

je te propose :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MsgBox ("Bonjour") ' ici tu mets le commentaire que tu as envie
End Sub

Bonn fin de journée à tous

Goodparts

 

[@+Thierry]

Bonsoir Will, GoodPart

Comment les "Comments" sont pas sympa ?

Test ce code Will, tu tape un truc dans l'InputBox et tu verras :

Sub comment()
Dim LeText As String
LeText = InputBox("Tape un Text")

With ActiveCell
.ClearComments
.AddComment
.comment.Visible = False
.comment.Text Text:=LeText
With .comment.Shape
.TextFrame.AutoSize = True
.Fill.ForeColor.RGB = RGB(255, 0, 0)
.Fill.Transparency = 0.5
With .OLEFormat.Object
With .Font
.Name = "Arial"
.Size = 40
.ColorIndex = 6
.Bold = True
End With
End With
End With
End With
End Sub


Bon Week End à tous et toutes
@+Thierry

 

[Goodparts]

Re hello,

Comme toujours la petite touche de @Thierry est impeccable...(lol)

Goodparts

 

[Will]

Merci à toi thierry, c'est effectivement plus fun...par contre mes comments vont de la cellule E5 à V5 et sont naturellement différents pour chacune d'elle, comment modifies-tu le script en fonction ?


@+ et BON WEEK A TOUT LE FORUM !
LES CLAVIERS VONT CHAUFFER !

 

[Will]

Merci à toi Goodparts !

C'est effectivement simple mais il fallait y penser !

@+ et BON WE !

Will

 

[@+Thierry]

Bonsoir Will, GoodParts, le Forum

Heuf ....; Oui Will "comment modifies-tu le script en fonction ?"

Héhéhé et comment modifies-tu la Msgbox de GoodPart alors ?

Regardes cette démo Will pour les Comments :

Lien supprimé (post du 28-01-03 21:52)

Si tu appliques cette macro il te suffit de masquer la colonne "B".....

Bonne Soirée et Week End à Vous Deux et à tous ceux/celles qui lisent
@+Thierry

PS pour GoodParts Merci pour la "Petite Touche" !! ;-)