Commentaires : se retrouver dedans tout de suite

[herve80]

Bonjour, pourriez-vous m'aider svp ?

Comment ajouter un commentaire et se retrouver directement dedans, sans devoir passer par "Modifier le commentaire" ?

Ma macro :

Sub points()
Dim cell As Range
For Each cell In Selection
Selection.Font.Bold = True
Selection.Font.ColorIndex = 3
cell.AddComment
cell.Comment.Visible = False
Cell.Comment.Text Text:=""VIDE CHARGE"
End Sub

 

[BOISGONTIER]

Re : Commentaires : se retrouver dedans tout de suite

Bonjour,

Ajout commentaire sur double-clic

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Comment Is Nothing Then
Target.AddComment ' Création commentaire
Target.Comment.Shape.OLEFormat.Object.Font.Name = "Tverdana"
Target.Comment.Shape.OLEFormat.Object.Font.Size = 7
Target.Comment.Shape.OLEFormat.Object.Font.FontStyle = "Normal"
Target.Comment.Text Text:="VIDE CHARGE"
SendKeys "+{F2}"
Cancel = True
End If
End Sub

JB
Formation Excel VBA JB

 

[herve80]

Re : Commentaires : se retrouver dedans tout de suite

Merci Boisgontier,

mais ce n'est pas encore vraiment ça.
Enfin c'est sympa d'essayer.

Bonne journée