Discussion :

[colbubu]

bonjour a tous

j ai un probleme a resoudre

j ai un tableau de 64000 lignes et je cherche a sélectionner les données selon leur couleur de police et faire un test simple dessus

j aimerais savoir si il existe une formule, un code, ou un moyen vba de le faire

je commence a déprimer ca fait deux jours que je cherche sur le net sans succés

merci de votre aide

[Tempas]

Si tu veux savoir si la case contient un texte dont la couleur est "rouge" par exemple

Code :

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

1
2
3
4
If Cells(4, 4).Font.Color = _ ' Remplace cells(4,4) par tes cellules (une boucle qui teste toute ta colonne
    RGB(255, 0, 0) Then
    MsgBox "c'est rouge"
End If

[Gorfael]

Salut colbubu et le forum
Avec un peu de données (adresses, feuilles, etc...), on pourrait t'aider. Sauf si c'est par MFC, Dans ce cas, il nous faudrait la/les formules de la MFC.
A+

[colbubu]

via un autre forum j ai réussi a trouver une réponse qui marche également je la poste

il s'agit d'un macro qui regarde toutes les valeurs rouge et si elles sont toutes supérieurs à 0,1 écrit "ok"

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
Sub mettreleokoupas()
 
Dim counter As Integer
Dim cell    As Range
 
 
 
counter = 0
 
    For Each cell In Range("CA3", "CA64000")
        If couleurPolice(cell) = 3 Then
            If cell.Value >= 0.1 Then
            counter = counter
            Else: counter = counter + 1
            End If
        End If
    Next
 
If counter = 0 Then
   Range("CB3").Value = "ok"
   Else: Range("CB3").Value = "faux"
End If
 
End Sub