Bonjour, Dans mon fichier, j'ai de B3:B17 des pronostics. Le but, colorer par double clic le bon résultat (vert) et les mauvais (rouge).Pour cela, un double clic doit colorer en vert, 2, en rouge. Et ainsi de suite, faire une boucle. Revenir à rien, puis vert, puis rouge.Ensuite, en B19, compter le nombre de cellules colorés de vert.Et ainsi de suite pour C, D, E, F... (colonnes).Merci par avance
Re : Colorer en vert ou rouge après double clic et compter les vert (bons résultats)
Bonjour AnthoYS,
avec ce code:
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B3:F17")) Is Nothing Then
colonne = Target.Column
If Target.Interior.ColorIndex = -4142 Then
Target.Interior.ColorIndex = 4
GoTo calcul
End If
If Target.Interior.ColorIndex = 4 Then
Target.Interior.ColorIndex = 3
GoTo calcul
End If
If Target.Interior.ColorIndex = 3 Then
Target.Interior.ColorIndex = -4142
GoTo calcul
End If
calcul:
Total = 0
For i = 3 To 17
If Cells(i, colonne).Interior.ColorIndex = 4 Then Total = Total + 1
Next i
Cells(19, colonne) = Total
Cells(Target.Row, 1).Select
End If
End Sub
Re : Colorer en vert ou rouge après double clic et compter les vert (bons résultats)
Re, Bonjour Chalet
voir fichier joint qui répond exactement à la demande faite
Pour cela, un double clic doit colorer en vert, 2, en rouge.
Et ainsi de suite, faire une boucle.
Revenir à rien, puis vert, puis rouge.
Ensuite, en B19, compter le nombre de cellules colorés de vert.
Et ainsi de suite pour C, D, E, F... (colonnes).