Quel est le code pour ajouter un commentaire actif sans nom d'user + colorer de vert

[anthoYS]

... la cellule double cliqué ? la plage est n'importe ou dans cette feuille...

Bonjour et merci d'avance.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim Lig As Long, Col As Long
 Col = Target.Column
 Lig = Target.Row
With Target
    If .Column = 2 Then
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.Width = 160.5
            .Comment.Shape.Height = 60.5
            .Comment.Shape.TextFrame.Characters.Font.Bold = True
        End If
        SendKeys "%im"
    End If
End With
Target.Offset(0, -7).Interior.ColorIndex = 4
End Sub

ce code n'est pas bon. mais j'ai les éléments principaux...


à+

 

[Lone-wolf]

Re : Quel est le code pour ajouter un commentaire actif sans nom d'user + colorer de

Bonsoir Anthony

Tu as déjà tout ce qu'il te faut en bas de page 5 Liens en ton Pseudo

 

[anthoYS]

Re : Quel est le code pour ajouter un commentaire actif sans nom d'user + colorer de

Oui mais pour que le code s'applique dans n'importe qu'elle cellule de la feuille ça non, je ne sais pas faire...

c'est là que je bloque. En plus j'ai du mal à m'y faire... Je vais essayer, si vous avez la partie qui me manque, merci !!

 

[DoubleZero]

Re : Quel est le code pour ajouter un commentaire actif sans nom d'user + colorer de

Bonjour, anthoYS, Lone-wolf , le Forum,

Comme ceci ?

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target
        Cancel = True
        If .Comment Is Nothing Then
            .Interior.ColorIndex = 4    ' cellule fond vert
            .AddComment
            .Comment.Shape.Width = 160.5
            .Comment.Shape.Height = 60.5
            .Comment.Shape.TextFrame.Characters.Font.Bold = True
            .Comment.Shape.Fill.ForeColor.SchemeColor = 3    ' commentaire fond vert
        End If
        SendKeys "%im"
    End With
End Sub

A bientôt

 

[Lone-wolf]

Re : Quel est le code pour ajouter un commentaire actif sans nom d'user + colorer de

Bonsoir ma Chère et Douce DoubleZero

Et oui! Un Double compliment pour Un Double 00

 

[anthoYS]

Re : Quel est le code pour ajouter un commentaire actif sans nom d'user + colorer de

Merci DoubleZero.

 

[DoubleZero]

Re : Quel est le code pour ajouter un commentaire actif sans nom d'user + colorer de

Re-bonjour,

@ Lone-wolf,

...Chère et Douce DoubleZero...

Tu ne m'as donc jamais vue en clère...

​

@ anthoYS,

Avant :

End Sub

Ajouter :

Application.SendKeys "{NUMLOCK}", True

Afin que le clavier numérique continue de réponde "présent"...

A bientôt

 

[Lone-wolf]

Re : Quel est le code pour ajouter un commentaire actif sans nom d'user + colorer de

@ DoubleZero MDR!!

Et attention! Je suis en signe chinois un