Mise en forme conditionnelle avec + de 3 criteres

Bonjour à tous,

J'ai un petit probleme avec une macro que j'ai trouvé sur le net et
qui me permet de faire du remplissage de couleur de cellules avec + de
3 conditions (la mise en forme conditionnelle d'excel s'arrete a 3
conditions)
La macro que j'ai trouvé me convient bien, le seul probleme c'est que
je cherche à colorier les cellules en fonction du chiffre apres la
virgule des cellules scannées. j'ai essayé de mettre ' * ' ou ' ?'
avant la virgule (Cf macro ci dessous) et excel ne comprend pas.

je connais les formules excel type : droite(xxx,1)="1" pour chercher
les valeurs type *,1 mais je ne sais pas comment l'ecrire en VBA

Voila je suis un peu bloqué , merci à tous pour votre aide






----------------------------------------------------------------------------------------------------
Sub definirremplissage()
'
' definirremplissage Macro
' Macro enregistrée le 04/05/2003 par tigroo
Range("a1:a10").Select
Range("a1").Activate
Dim lacellule As Range
For Each lacellule In Selection
couleurderemplissage = lacellule
Next lacellule
Range("a1:a1").Select
Range("a1").Activate
'
End Sub

Property Let couleurderemplissage(lacellule As Range)
Dim indexcouleur As Integer
Select Case lacellule.Value

Case "*,1"
indexcouleur = 4
Case "*,2"
indexcouleur = 8
Case "*,3"
indexcouleur = 6
Case "*,4"
indexcouleur = 5
Case "*,5"
indexcouleur = 9
Case Else
indexcouleur = xlColorIndexNone

End Select
lacellule.Interior.ColorIndex = indexcouleur
End Property
----------------------------------------------------------------------------------------------------

Bonjour,
^
Peut-être :
Select Case Right(lacellule.Value,2)

Camille

Bonjour à tous,

J'ai un petit probleme avec une macro que j'ai trouvé sur le net et
qui me permet de faire du remplissage de couleur de cellules avec + de
3 conditions (la mise en forme conditionnelle d'excel s'arrete a 3
conditions)
La macro que j'ai trouvé me convient bien, le seul probleme c'est que
je cherche à colorier les cellules en fonction du chiffre apres la
virgule des cellules scannées. j'ai essayé de mettre ' * ' ou ' ?'
avant la virgule (Cf macro ci dessous) et excel ne comprend pas.

je connais les formules excel type : droite(xxx,1)="1" pour chercher
les valeurs type *,1 mais je ne sais pas comment l'ecrire en VBA

Voila je suis un peu bloqué , merci à tous pour votre aide

------------------------------------------------------------------------ -----------------------------
Sub definirremplissage()
'
' definirremplissage Macro
' Macro enregistrée le 04/05/2003 par tigroo
Range("a1:a10").Select
Range("a1").Activate
Dim lacellule As Range
For Each lacellule In Selection
couleurderemplissage = lacellule
Next lacellule
Range("a1:a1").Select
Range("a1").Activate
'
End Sub

Property Let couleurderemplissage(lacellule As Range)
Dim indexcouleur As Integer
Select Case lacellule.Value

Case "*,1"
indexcouleur = 4
Case "*,2"
indexcouleur = 8
Case "*,3"
indexcouleur = 6
Case "*,4"
indexcouleur = 5
Case "*,5"
indexcouleur = 9
Case Else
indexcouleur = xlColorIndexNone

End Select
lacellule.Interior.ColorIndex = indexcouleur
End Property
------------------------------------------------------------------------ ------------------------------ Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Bonsour(R) candre1...@gmail.com avec ferveur ;o))) vous nous disiez :

Bonjour à tous,

J'ai un petit probleme avec une macro que j'ai trouvé sur le net et
qui me permet de faire du remplissage de couleur de cellules avec + de
3 conditions (la mise en forme conditionnelle d'excel s'arrete a 3
conditions)
La macro que j'ai trouvé me convient bien, le seul probleme c'est que
je cherche à colorier les cellules en fonction du chiffre apres la
virgule des cellules scannées. j'ai essayé de mettre ' * ' ou ' ?'
avant la virgule (Cf macro ci dessous) et excel ne comprend pas.

Property Let couleurderemplissage(lacellule As Range)
Dim indexcouleur As Integer
'**************************************
' pour tenir compte des dixiémes
' on prend le modulo 10 de la partie entière de la valeur multipliée p ar 10
' pour les centièmes
' on prend le modulo 10 de la partie entière de la valeur multipliée p ar 100
'**************************************
Select Case Int(10*lacellule.Value) MOD 10
Case 1
indexcouleur = 4
Case 2
indexcouleur = 8
Case 3
indexcouleur = 6
Case 4
indexcouleur = 5
Case 5
indexcouleur = 9
Case Else
indexcouleur = xlColorIndexNone

End Select
lacellule.Interior.ColorIndex = indexcouleur
End Property

mais pourquoi passer par property ???
))
Sub GD_definirremplissage()
Dim lacellule As Range
Range("a1:a10").Select
For Each lacellule In Selection
lacellule.Interior.ColorIndex = Choose(1 + Int(lacellule * 10) Mod
10,xlNone, 4, 8, 6, 5, 9, xlNone, xlNone, xlNone, xlNone)
Next lacellule
Range("a1").Select
End Sub
--
@+
))

--
--
@+
;o)))

begin 666 clown.gif
M1TE&.#EA#P`/`/?_`/_____^_O[_/[[_/[Z^_SS]?ON?OM/OL[_KK[OGY
M^?GX^/CW]_CGZO?;X/'#S/"_R>_O[^Z]QNOFY^G0U>C#RN?FYN2+G.'&R^&2
MHN#@X.#:V^"FL=^&E]]TB=ZSN]Z8I=W=W=W;W-VAK=V/GMIA>=IA>-C8V-C "
MQMBYO]A?=M?0TM;&R=6[P-33T]2YOM-"7M+2TM) 7="[OXL2W"Q,TK2S,
MS,L@0<C(R,?%QL<-,<7$Q,6PM,3$Q,0"*,/#P'!P;^^OKRO+R[N[N[N[NZ
MNK&QL;&EIZ^OKZNKJZ6EI:6DI**1E:&AH9R7F)J:FIB8F):6EI"0D(Z.CHV)
MBHN+BXF)B8:#A(2$A(*"@H& @7]R=7Y^?GU]?6YK;&P`%61D9&)B8EQ<7%55
M55-34T]/3TY.3DU*2DE'2$4`#4 `##TZ.S<O,3,O,"N+B`"2P`""LD)2@C
M)"@`!R<D)2 @(!X>'AP<'!P`!AL:&A0.#Q0,#A,`! P``@D``@<``08``00`
M`0(``````,# P ``````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M`````````````````````"'Y! $``(4`+ `````/```0 C5``L)/,*%S1U
M=])P.2*PT)T57[A4Z "#A@H.*)[<$7*'RQ@`@/SD@2.!3A] @"*0X5*("ALL
M-W0(F3FS"QLJ`ETN`0F@)R `4FXZ# $`004P.'; 4$,A1 @==[J0"8%E3Y,6
M+UX@:9-&QJ&! TB9+.P84XV883T+)!DC-!"1]CL!(D@@H&?0-G$30*@@ ,U
M'DI<@-/ @@4H; `5H,)"0HD=/VADP+#B30A ;*#HV-/C`P@2(U+4J!/&99*7
:*Y:8D=.FSDL=-AFV9&.&2A(=2;"8>1L0`#L`
`
end

Bonjour à tous,

J'ai un petit probleme avec une macro que j'ai trouvé sur le net et
qui me permet de faire du remplissage de couleur de cellules avec + de
3 conditions (la mise en forme conditionnelle d'excel s'arrete a 3
conditions)
La macro que j'ai trouvé me convient bien, le seul probleme c'est que
je cherche à colorier les cellules en fonction du chiffre apres la
virgule des cellules scannées. j'ai essayé de mettre ' * ' ou ' ?'
avant la virgule (Cf macro ci dessous) et excel ne comprend pas.

je connais les formules excel type : droite(xxx,1)="1" pour chercher
les valeurs type *,1 mais je ne sais pas comment l'ecrire en VBA

Voila je suis un peu bloqué , merci à tous pour votre aide






----------------------------------------------------------------------- -----------------------------
Sub definirremplissage()
'
' definirremplissage Macro
' Macro enregistrée le 04/05/2003 par tigroo
Range("a1:a10").Select
Range("a1").Activate
Dim lacellule As Range
For Each lacellule In Selection
couleurderemplissage = lacellule
Next lacellule
Range("a1:a1").Select
Range("a1").Activate
'
End Sub

Property Let couleurderemplissage(lacellule As Range)
Dim indexcouleur As Integer
Select Case lacellule.Value

Case "*,1"
indexcouleur = 4
Case "*,2"
indexcouleur = 8
Case "*,3"
indexcouleur = 6
Case "*,4"
indexcouleur = 5
Case "*,5"
indexcouleur = 9
Case Else
indexcouleur = xlColorIndexNone

End Select
lacellule.Interior.ColorIndex = indexcouleur
End Property
----------------------------------------------------------------------- -----------------------------