anthoYS
XLDnaute Barbatruc
Bonjour,
la ligne mis en surbrillance (fond jaune) lors du débogage, ça ne colore que la cellule de la colonne 9 après double clic en vert en ajoutant le symbole "þ"
Merci
à+
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 10 Then
Cells(Target.Row, 1).Interior.ColorIndex = 4
Cells(Target.Row, 2).Interior.ColorIndex = 4
Cells(Target.Row, 3).Interior.ColorIndex = 4
Cells(Target.Row, 4).Interior.ColorIndex = 4
Cells(Target.Row, 5).Interior.ColorIndex = 4
Cells(Target.Row, 6).Interior.ColorIndex = 4
Cells(Target.Row, 7).Interior.ColorIndex = 4
Cells(Target.Row, 8).Interior.ColorIndex = 4
Cells(Target.Row, 9).Interior.ColorIndex = 4
End If
If Target.Column = 5 Then
Cells(Target.Row, 5) = Date
End If
Cancel = True
If Not Application.Intersect(Target, [J:J]) Is Nothing Then
Target.Value = IIf(Not Target.Value = "þ", "þ", "o")
If Target.Value = "þ" Then
Range(Target.Offset(0, -1), Target.Offset(0, -9)).Interior.ColorIndex = 15
Else
Range(Target.Offset(0, -1), Target.Offset(0, -9)).Interior.ColorIndex = xlNone
End If
End If
If Not Application.Intersect(Target, [I:I]) Is Nothing Then
Target.Value = IIf(Not Target.Value = "þ", "þ", "o")
If Target.Value = "þ" Then
Range(Target.Offset(0, -1), Target.Offset(0, -9)).Interior.ColorIndex = 4
Else
Range(Target.Offset(0, -1), Target.Offset(0, -9)).Interior.ColorIndex = xlNone
End If
End If
End Sub
la ligne mis en surbrillance (fond jaune) lors du débogage, ça ne colore que la cellule de la colonne 9 après double clic en vert en ajoutant le symbole "þ"
VB:
Range(Target.Offset(0, -1), Target.Offset(0, -9)).Interior.ColorIndex = 4
Merci
à+