Discussion :

[patricktoulon]

bonjour a tous


pour faire une recherche de couleur dans une celule
on utilise :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
for i = 1 to sheets(1).range("a65000").end.(xlup).row
if range("a" & i).interior.colorindex=5 then 
compteur=compteur+1
end if
next
 
msgbox "il y  a  " & compteur & "celulles de cette couleur dans la plage"
 
end sub

y a t il un moyen de faire ca avec find et findnext???

merci d'avance


au plaisir

[pgz]

Bonsoir.

A mon avis, non car les valeurs possibles pour LookIn sont : XLValues, XLFormulas et XLComments.

Il faudrait un XLInteriorColorIndex, qui n'existe pas...

Cordialement,

PGZ

[patricktoulon]

bonjour pgz

oui c'etait exactementla reflextion que je me suis faite

je te remercie

au plaisir

[mercatog]

Un essai sur une colonne avec cellules coloriées en rouge

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim Plage As Range, c As Range
Dim Cpt As Double
Dim Lig As Long
 
Application.FindFormat.Interior.Color = 255
With Worksheets(1)
    Set Plage = .Range("A2:A4")
    Do
        Set c = Plage.Find("", SearchDirection:=xlPrevious, SearchFormat:=True)
        If Not c Is Nothing Then
            Cpt = Cpt + 1
            Lig = c.Row
            If Lig > Plage.Row Then Set Plage = .Range(Plage.Cells(1, 1).Address & ":" & c.Offset(-1, 0).Address)
        End If
    Loop Until c Is Nothing Or Lig = Plage.Row
End With
Set Plage = Nothing
Application.FindFormat.Clear
MsgBox Cpt

[patricktoulon]

bonjour et merci mercatog

j'avais trouver une piste avec "SearchFormat:=True"mais je n'avais pas trouver un exemple concret

nikel merci

au plaisir

[mercatog]

Ci-joint une fonction qui fonctionne sur une plage de plusieurs colonnes (contigus ou non)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function CountColoredRange(PlageRech As Range, Couleur As Single) As Double
Dim Colonne As Range, Plage As Range, c As Range
Dim Cpt As Double
Dim Lig As Long
 
Application.FindFormat.Interior.Color = Couleur
For Each Colonne In PlageRech.Columns
    Set Plage = Colonne
    Do
        Set c = Plage.Find("", SearchDirection:=xlPrevious, SearchFormat:=True)
        If Not c Is Nothing Then
            Cpt = Cpt + 1
            Lig = c.Row
            If Lig > Plage.Row Then Set Plage = Sheets(PlageRech.Parent.Name).Range(Plage.Cells(1, 1).Address & ":" & c.Offset(-1, 0).Address)
         End If
    Loop Until c Is Nothing Or Lig = Plage.Row
Next Colonne
Set Plage = Nothing
Application.FindFormat.Clear
CountColoredRange = Cpt
End Function