Pb sur macro de comptage

Version imprimable

J'ai maintenant ma macro qui fonctionne bien (elle compte le nombre de cellule ayant la couleur de fond que je demande sur la plage que je demande) dont voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub comptagesurcouleur()
 
Dim a As Byte, j As Integer, i As Integer, compteur As Integer, colonnedebut As Integer, colonnefin As Integer, lignedebut As Integer, lignefin As Integer
MsgBox "Macro qui va compter le nombre de cellules de la couleur de votre choix dans les plages que vous allez déterminer!", vbOKOnly, "Macro par Nicolas MANIN le 19/01/11"
colonnedebut = InputBox("Entrez le numéro de la première colonne à sonder, exemple :" & Chr(13) & "A=1" & Chr(13) & "B=2" & Chr(13) & "...", "Choix de la colonne de début")
colonnefin = InputBox("Entrez le numéro de la dernière colonne à sonder, exemple :" & Chr(13) & "A=1" & Chr(13) & "B=2" & Chr(13) & "...", "Choix de la colonne de fin")
lignedebut = InputBox("Entrez le numéro de la première ligne à sonder", "Choix de la ligne de début")
lignefin = InputBox("Entrez le numéro de la dernière ligne à sonder", "Choix de la ligne de fin")
a = InputBox("1=Noir" & Chr(13) & "2=Blanc" & Chr(13) & "3=Rouge" & Chr(13) & "4=Vert brillant" & Chr(13) & "5= Bleu" & Chr(13) & "6=Jaune" & Chr(13) & "7=Rose" & Chr(13) & "8=Turquoise", "Choix de la couleur")
compteur = 0
 
For j = lignedebut To lignefin
    For i = colonnedebut To colonnefin
        If Cells(j, i).Interior.ColorIndex = a Then
            compteur = compteur + 1
        End If
    Next
Next
MsgBox compteur, vbOKOnly, "Résultat"
End Sub

Le problème est que je me suis aperçu que ma macro compte les fond de couleur quand on les a mis manuellement, mais quand le fond de la cellule est colorié en résultat d'une mise en forme conditionnelle par exemple, il ne reconnait pas ce fond et ne le compte pas...

Quelqu'un à une idée de comment je peux corriger ça? Moi je ne vois pas d'où viens le problème :? ?

28/01/2011, 08h58
Philippe Tulliez

Bonjour,
Le problème vient du fait que la mise en forme d'une cellule est celle que l'on fixe manuellement ou par programmation alors que la mise en forme conditionnelle est le résultat d'un test fait par Excel.
Pour savoir quel est la mise en forme faite par la MEFC il faut refaire le test par programmation.
Il y a déjà eu une discussion à ce sujet il y a plusieurs jours
31/01/2011, 10h01
vapordinateur

En effet il s'agit bien du même problème, j'ai lu votre conversation mais là comme ça je n'ai rien compris :s va falloir que je me re penche dessus!

Mon idéal serait de tester la couleur du fond de cellule "OU" la couleur du fond de cellule renvoyé par la MEFC s'il y en a une...

Code:

If Cells(j, i).Interior.ColorIndex = a Then

en gros compléter cette ligne avec un "or"... (je ne sais pas si c'est possible, je n'ai pas un bon niveau en VBA)
C'est une macro qui doit pouvoir être implantée sur n'importe quel document Excel ;)

Merci, je repasserais sur votre discussion voir si des choses que vous avez énoncées peuvent m'aider!
01/02/2011, 12h24
vapordinateur

Ok en refaisant le test par programmation ça fonctionne bien mais ça ne me convient pas vraiment car c'est une macro qui doit pouvoir être implanté sur n'importe quel document excel par n'importe qui (même un non connaisseur de VBA) ==> J'ai fait un petit tutoriel pour leur apprendre à implanter cette macro :)

et donc du coup je suis bloqué...
01/02/2011, 12h52
pgz

Bonjour.

Citation:

Envoyé par vapordinateur

Mon idéal serait de tester la couleur du fond de cellule "OU" la couleur du fond de cellule renvoyé par la MEFC s'il y en a une...

Code:

If Cells(j, i).Interior.ColorIndex = a Then

en gros compléter cette ligne avec un "or"...

Tu cherches les cellules qui ont le fond avec colorindex = a. Dans ta MFC, tu as une condition pour que cette valeur soit attribuée à la cellule. Par exemple la valeur est > 5.

Tu peux reprendre cette condition

Code:

If (Cells(j, i).Interior.ColorIndex = a) or (Cells(i,j).Value > 5) Then

COrdialement,

PGZ
01/02/2011, 13h51
vapordinateur

Oui ça j'ai bien compris mais dans mon cas ça ne fonctionnera pas car ça doit être une macro disponible pour l'implanter dans n'importe quel document Excel, et ce n'est pas forcément moi qui vais m'en servir, et les gens qui vont s'en servir ne sont pas caler en VBA... En gros ça sera un outil disponible à tous 8O

Merci quand même :P

Vapo