Format selon valeur de cellules

[BerNar]

Bonjour à tous !

Je suis en train de contruire une procédure pour mettre des motifs à chaque cellule d'une sélection selon sa valeur.
Je souhaitais utiliser la mise en forme conditionnelle, mais celle-ci se limite à 3 conditions, or dans mon exemple j'en ai 5 possibles.

J'ai commencé à écrire ma proc mais la mise en forme ne se fait pas ?!

Il y a certainement un truc qui coince !

Voici ma procédure :

Sub AppliquerCouleurs()

'Sélection des zones
Range("F5:F30,F33:F36").Select

For Each cell In Selection
If ActiveCell().Value >= 10 Then
ColorIndex = 4
Pattern = xlSolid
PatternColorIndex = xlAutomatic
ElseIf ActiveCell().Value < 5 Then
ColorIndex = 0
Pattern = xlSolid
PatternColorIndex = xlAutomatic
Else
ColorIndex = 35
Pattern = xlSolid
PatternColorIndex = xlAutomatic
End If
Next

End Sub


Merci pour votre aide.

BerNar.

 

[Arnaud]

salut.
essaye plutot un truc du style :

If ActiveCell.Value > 10 Then
Selection.Interior.ColorIndex = 6
Selection.Interior.Pattern = xlSolid
End If

 

[BerNar]

La couleur du motif ne se met toujours pas ?!

BerNar

 

[Arnaud]

essaye de passé en mode pas à pas pour voir ou est ce qu'il passe. ( si tu ne sais pas comment faire, tu doit mettre un point d'arrêt en cliquant sur la bande grise a gauche de ton code et quand tu relancer ton appli, le traitement s'arrêtera la ou tu a mis un point d'arrêt. la tu appui sur F8 pour avancer dans le code. regarde si il pase bien la ou il doit passé.

 

[BerNar]

En fait la procédure fonctionnes en partie bien. Ainsi quand je dis qu'il ne mets pas les motifs selon la valeur, ce n'est pas vrai.
En fait il applique le motif 'sans motif' parce que la valeur de la première cellule est <0.05.
Donc le problème n'est plus le même.
Même si je sélectionnes une plage, il met à cette plage le motif qui doit être appliqué pour la première cellule. Il ne fait donc pas un contrôle cellule par cellule.

Apparemment donc le 'for each...' ne fonctionne pas ?
Dois-je donc faire e contrôle cellule par cellule ?

BerNar

 

[florent]

bonjour,

regarde ce fil, peut être cela te fera une autre base de depart


http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=74348&t=74121

florent

 

[BerNar]

Impeccable !

Merci pour votre aide.

BerNar