utilisation de la methode find

Version imprimable

bonjour a tous

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

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

29/11/2010, 18h13
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
29/11/2010, 18h25
patricktoulon

re

bonjour pgz

oui c'etait exactementla reflextion que je me suis faite

je te remercie

au plaisir

Edit

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

Code:

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

01/12/2010, 14h55
patricktoulon

re

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

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

Code:

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