Colorer en vert ou rouge après double clic et compter les cel. vertes [résolu]

[anthoYS]

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 😉

 

[phlaurent55]

Re : Colorer en vert ou rouge après double clic et compter les vert (bons résultats)

Bonjour AnthoYS,

avec ce 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

à+
Philippe

 

[CHALET53]

Re : Colorer en vert ou rouge après double clic et compter les vert (bons résultats)

Bonjour,

ce que je sais faire
doubleclick : vert
click droit : rouge

Après, je ne comprends pas ce que tu demandes

a+

 

[phlaurent55]

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).

à+
Philippe

 

[anthoYS]

Re : Colorer en vert ou rouge après double clic et compter les vert (bons résultats)

Re,

Merci aux intervenants.
@phlaurent55 : c'est exactement ce que je voulais, parfait !

à+