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

anthoYS · 3 Mai 2016

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

Bonjour et merci d'avance.

VB:

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 · 3 Mai 2016

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 · 3 Mai 2016

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 · 3 Mai 2016

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

Bonjour, anthoYS, Lone-wolf , le Forum,

Comme ceci ?

Code:

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 · 3 Mai 2016

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 · 3 Mai 2016

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

Merci DoubleZero.

DoubleZero · 3 Mai 2016

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

Re-bonjour,

@ Lone-wolf,

Lone-wolf à dit:
...Chère et Douce DoubleZero...

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

@ anthoYS,

Avant :

Code:

End Sub

Ajouter :

Code:

Application.SendKeys "{NUMLOCK}", True

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

A bientôt

Lone-wolf · 3 Mai 2016

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

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

anthoYS

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Discussions similaires