colorier la case souhaité

[Fab]

voila j'ai ça

For Each cellule In Worksheets(2).Range('A3:A23')
'on affiche les valeur superieur à 150000
'dans la premiere cellule on affiche la premiere valeur superieur a 150000
'avec l'utilisation du tableau
If cellule.Value = '' Then
If q = True Then
cellule.Value = 'sup 150000'
q = False
Else
If j <> p Then
cellule.Value = h(j)
'on increment la variable permettant de parcourir le tableau
j = j + 1
End If
End If
End If
Next cellule
q = True

et je voudrait colorier la cellule qui va recevoir comme valeur sup 150000

 

[PascalXLD]

Bonjour

Voilà déjà ce qu'il y a à lire

Bonne journée

 

[Dan]

Bonjour,

Déjà une réponse ici

 

[PascalXLD]

Salut Dan

Je vois que nous avons les mêmes références

Bonne journée B)