anthoYS
XLDnaute Barbatruc
bonjour,
que ça colore en vert, jaune et rouge ok mais si on double clique ça doit annuler la couleur (aucune mef) ou alors mettre le couleur voulu.
ou alors ajouter une colonne ou ça ne donne pas de coloration F
merci
à+
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) li = Target.Row
If Not Intersect(Target, [C:C]) Is Nothing Then
With Range("B" & li)
.Interior.Pattern = 0
.Interior.ColorIndex = 4
End With
End If
If Not Intersect(Target, [D: D]) Is Nothing Then
With Range("B" & li)
.Interior.Pattern = 0
.Interior.ColorIndex = 6
End With
End If
If Not Intersect(Target, [E:E]) Is Nothing Then
With Range("B" & li)
.Interior.Pattern = 0
.Interior.ColorIndex = 3
End With
End If
Cancel = True
End Sub
que ça colore en vert, jaune et rouge ok mais si on double clique ça doit annuler la couleur (aucune mef) ou alors mettre le couleur voulu.
ou alors ajouter une colonne ou ça ne donne pas de coloration F
merci
à+