Discussion :

[ronron1978]

Bonjour à tous,

Je suis débutant en VB et je voudrais sous excel pouvoir compter le nombre de cellule dont la couleur est rouge par exemple. Je voudrais que ce compteur se mette à jour automatiquement dès qu'on change la couleur de fond d'une cellule.

Merci de votre aide et à bientot

Ronron.

[Megaxel]

Tiens, voici un petit bout de procédure qui devrait te donner des idées.
Et pour qu'elle se mette automatiquement à jour... A toi de trouver le bon événement !!

[AlainTech]

Tiens, voici un petit bout de procédure qui devrait te donner des idées.
Et pour qu'elle se mette automatiquement à jour... A toi de trouver le bon événement !!

Avec le code, ce serait nettement plus parlant...

[leroissejp]

Bonsoir,
Ce code compte le nombre de cellules en rouge dans la plage A1:H500.
Celà ne répond pas tout à fait à ta question, mais il est tard, je regarderai demain s'il y à moyen de placer celà dans WorkSheet_SelectionChange.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub CompterCellulesEnRouge()
Dim CompterCellules As Integer, iCell, PlageTest
Set PlageTest = Range("A1:H500")
    Application.ScreenUpdating = False
        For Each iCell In PlageTest
        If iCell.Interior.ColorIndex = 3 Then
            CompterCellules = CompterCellules + 1
            End If
        Next iCell
    MsgBox CompterCellules
End Sub

jpleroisse

[ronron1978]

Merci bcp tout le monde !
Je vais jeter un oeil la dessus tt de suite et je vous tiens au courant !
Par contre j'ai testé hier et le changement de la couleur d'une cellule n'appelle pas Worksheet_SelectionChange...

Merci encore,

A+

[ronron1978]

Merci bcp !

Tout est ok, c'est exactement ce que je cherchais et j'ai réussi, grâce à vous, à faire ce que je voulais.

A bientôt.

Ronron.

[ThierryAIM]

le code final, peut-être, ca peut servir à d'autre

et un petit resolu (en bas de la page à gauche), ca ne mange pas de pain