Après double clic : délimiter zone de commentaire de (*) ainsi que... (Sujet OK!!!)

[anthoYS]

Bonjour,


* plage de A2:XX25

Ensuite, dire si double clic de B29:XX40 alors coloré le fond de la cellule en vert uniquement... pas de commentaire à rajouter présaisi... je ne sais pas si vous voyez...

je fait un essai, mais je ne le sens pas vraiment....

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2:XX25")) Is Nothing Then
colonne = Target.Column
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.Width = 104.5
            .Comment.Shape.Height = 22.6
            .Comment.Shape.TextFrame.Characters.Font.Bold = True
        End If
        SendKeys "%im"
    End If
    If Not Intersect(Target, Range("B29:XX40")) Is Nothing Then
colonne = Target.Column
Target.Interior.ColorIndex = 4
End If
End With
Cancel = True
End Sub

Dites-moi s'il y a une erreur ou elle se situe svp.
Erreur de compilation, je m'en doutais....


Merci

 

[Dranreb]

Bonsoir
Après 1911 messages, vous n'avez encore pas compris que lorsqu'on fait précéder un nom de propriété ou de méthode d'un point sans rien devant cela signifie qu'on veut l'appliquer à un objet préalablement spécifié dans une instruction With ?

 

[anthoYS]

Bon écoutez @Dranreb si c'est pour me juger (vous sous-entendez que je suis un imbécile), passez votre tour.. c'est toujours désagréable.... je me connaît donc vous n'allez pas m'affecter... La vérité c'est que je fait vite faisant d'autres choses à côtés hyperactif intellectuellement, et je ne prends pas le temps de tout analyser...

je cherche à augmenter mon estime en ce moment.... bref vous ne pouvez pas savoir tout ça et manquer de tact probablement...

ceci dit, merci je n'avais pas vu la méprise...

soit, sur ce. Sujet clos
excellente fin de soirée et nuit à venir...
(à un prochain jour j'espère dans un meilleur état d'esprit)