Discussion :

[capi81]

Salut le forum

J'ai une base de donnée contenant plusieurs informations.
Certaines de mes cellules sont au format(couleur) orange, accentuation6 plus claire 40%.
Je cherche à sélectionner ces cellules pour faire un traitement.
J'ai déjà essayé plusieurs méthodes (par la commande rechercher et sélectionner) mais sans suite favorable.
Comment faire pour sélectionner uniquement les cellules contenant le format déjà signalé?

Merci

[Klin89]

Bonjour capi81,

FindFormat, propriété de l'objet Application

klin89

[capi81]

Salut klin89
Merci pour la piste.
comment utilise-t-on cette propriété?
Je suis en train de tâtonner mais solution pas encore trouvé.
Merci

[Klin89]

Re capi81,

Exemple de sélection de cellules dont la couleur de police est le bleu.

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
22
23
24
25
26
27
Sub Selection()
Dim r As Range, ff As String, x As Range
'le format recherché
    With Application.FindFormat
        .Clear
        .Font.ColorIndex = 5
    End With
    With Sheets("Feuil1")
        Set r = .Cells.Find("*", SearchFormat:=True)
        If Not r Is Nothing Then
            ff = r.Address
            Do
                If x Is Nothing Then
                    Set x = r
                Else
                    Set x = Union(x, r)
                End If
                Set r = .Cells.Find("*", r, SearchFormat:=True)
            Loop Until ff = r.Address
        End If
    End With
    If Not x Is Nothing Then
        x.Select
    Else
        MsgBox "Pas de cellules au format recherché"
    End If
End Sub

klin89