L
LeJacky
Guest
Bonjour,
je cherche a realiser une mise en forme conditionnel prenant en charge entre 5 et 10 conditions du type: si la valeur d'une cellule est comprise en X et Y alors la couleur de la cellule est COULEUR (N°1). Pour compliquer un peu la chose, je voudrai aller chercher les formats COULEUR dans un autre classeur... (sinonc'est pas drole et c'est le N°2).
1)
La methode
---
[B7:AK170].FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="10", Formula2:="20"
[B7:AK170].FormatConditions(3).Interior.ColorIndex = 3
---
ne permet la prise en charge de trois condition uniquement (du moins il me jette si j'en rajoute une...)
j'ai essayer par des boucles:
---
' Mise en forme conditionelle
Range("B6").Select
For x% = 1 To 36
For y% = 1 To 170
ActiveCell.Offset(1, 0).Activate
ActiveCell.Select
If ActiveCell.FormulaR1C1 < "100" Then
Selection.Interior.ColorIndex = 2
End If
If (ActiveCell.FormulaR1C1 < "10") Then
Selection.Interior.ColorIndex = 5
End If
If (ActiveCell.FormulaR1C1 < "2") Then
Selection.Interior.ColorIndex = 7
End If
Next y%
ActiveCell(-169, 2).Activate
Next x%
---
mais il n'affiche qu'une couleur... et puis c'est fin lonnnngg!
2)
j'ai entrer le code suivant issu d'un auto aprentissage modifier...(oui, je suis debutant!):
---
' copie des formats
Windows("test.xls").Activate
Range("D2").Select
Selection.Copy
Windows(2).Activate
Range("D1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
---
Le classeur "test.xls" contient bien des cellules coloriées et ce sont les bonnes... mais ya pas de couleur!
Si vous aviez des idees, je vous serai reconnaissant...
Merci par avance
je cherche a realiser une mise en forme conditionnel prenant en charge entre 5 et 10 conditions du type: si la valeur d'une cellule est comprise en X et Y alors la couleur de la cellule est COULEUR (N°1). Pour compliquer un peu la chose, je voudrai aller chercher les formats COULEUR dans un autre classeur... (sinonc'est pas drole et c'est le N°2).
1)
La methode
---
[B7:AK170].FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="10", Formula2:="20"
[B7:AK170].FormatConditions(3).Interior.ColorIndex = 3
---
ne permet la prise en charge de trois condition uniquement (du moins il me jette si j'en rajoute une...)
j'ai essayer par des boucles:
---
' Mise en forme conditionelle
Range("B6").Select
For x% = 1 To 36
For y% = 1 To 170
ActiveCell.Offset(1, 0).Activate
ActiveCell.Select
If ActiveCell.FormulaR1C1 < "100" Then
Selection.Interior.ColorIndex = 2
End If
If (ActiveCell.FormulaR1C1 < "10") Then
Selection.Interior.ColorIndex = 5
End If
If (ActiveCell.FormulaR1C1 < "2") Then
Selection.Interior.ColorIndex = 7
End If
Next y%
ActiveCell(-169, 2).Activate
Next x%
---
mais il n'affiche qu'une couleur... et puis c'est fin lonnnngg!
2)
j'ai entrer le code suivant issu d'un auto aprentissage modifier...(oui, je suis debutant!):
---
' copie des formats
Windows("test.xls").Activate
Range("D2").Select
Selection.Copy
Windows(2).Activate
Range("D1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
---
Le classeur "test.xls" contient bien des cellules coloriées et ce sont les bonnes... mais ya pas de couleur!
Si vous aviez des idees, je vous serai reconnaissant...
Merci par avance