Code commentaire (modifié mise en forme)

[anthoYS]

Bonjour,

Voici le code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target
    If .Column = 1 Then
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.Width = 400.5
            .Comment.Shape.Height = 299.75
        End If
        SendKeys "%im"
    End If
End With
End Sub

Comment le modifier afin qu'à chaque double clic dans la cellule voulu, il affichera le fond en bleu (comme dans l'image ci-dessous)?



Merci par avance.

 

[job75]

Re : Code commentaire (modifié mise en forme)

Bonjour anthoYS,

En adaptant simplement le code trouvé par l'enregistreur de macro :

.Comment.Shape.Fill.ForeColor.SchemeColor = 44 'un type de bleu, à adapter

A+

 

[BOISGONTIER]

Re : Code commentaire (modifié mise en forme)

Bonjour,

.Comment.Shape.Fill.UserPicture "xxx.jpg"

JB

 

[anthoYS]

Re : Code commentaire (modifié mise en forme)

Bonjour,

mercis à job75, BOISGONTIER.

D'accord. Bien que le motif choisi n'est pas une couleur spécifique ni une image, mais bien un fond que l'on peut choisir dans modifier commentaire/format de commentaire/couleurs et traits/couleurs/Motif et texture/Texture.

Sous Excel 2007 biensur.

@+

 

[BOISGONTIER]

Re : Code commentaire (modifié mise en forme)

Bonjour,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Cancel = True
 With Target
    If .Column = 1 Then
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.Width = 100
            .Comment.Shape.Height = 100
            .Comment.Shape.Fill.PresetTextured msoTextureBlueTissuePaper
        End If
        SendKeys "%im"
    End If
 End With
End Sub

JB

 

[anthoYS]

Re : Code commentaire (modifié mise en forme)

Re,

Voilà et merci BOISGONTIER qui est mieux.
C'est ce que je souhaitais, et c'est oK maintenant.

@+