anthoYS
XLDnaute Barbatruc
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....
Dites-moi s'il y a une erreur ou elle se situe svp.
Erreur de compilation, je m'en doutais....
Merci
* 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....
VB:
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