Re : 3 onglets, le but une coloration différente après double clic + somme*
Bonjour,
Une solution pour le premier point est possible.
Toutefois, à la lecture des 2 points ce que tu veux faire semble compliqué.
Si tu y tiens, d'anciens fils du forum pourront normalement t'aider à dénombrer les cellules colorées.
La solution pour le premier point est l'utilisation d'une procédure évènementielle dans la feuille de code "ThisWorkbook" de ton classeur.
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
' Sortir de cette procédure évènementielle si la cellule dans la colonne B n'est pas une date.
If IsDate(Cells(Target.Row, 2)) = False Then Exit Sub
If Target.Interior.Pattern = xlNone Then
With Target.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
.PatternTintAndShade = 0
End With
GoTo CheckOut
End If
If Target.Interior.Color = 49407 Then
With Target.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
GoTo CheckOut
End If
With Target.Interior
Select Case .ThemeColor
Case xlThemeColorLight2
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
GoTo CheckOut
Case xlThemeColorDark1
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
GoTo CheckOut
End Select
End With
CheckOut:
Cancel = True
Exit Sub