Coloriage grace a VB

serval

XLDnaute Occasionnel
bonjour

Je me demandais si c'etait possible de colorier une cellule en fonction de sa valeure en passant par VB ???

merci de votre aide,
FAb
 

_Thierry

XLDnaute Barbatruc
Repose en paix
BOnjour Anuky, SErval, le Forum

Si tu tiens à le faire en VBA, en occultant les MDF (qui sont pourtant pratiques aussi, mais limitées sur les quantités de critères pour chaque cellule) voici une approche VBA :

Option Compare Text

Sub TestColoring()
Dim Cell As Range

For Each Cell In ActiveSheet.UsedRange
   
With Cell
       
Select Case .Value
           
Case 'Toto', 'Zaza', 'Lulu'
                .Interior.ColorIndex = 3
           
Case 'Titi', 'Lolo'
                .Interior.ColorIndex = 8
           
Case 'Tagada'
                .Interior.ColorIndex = 7
           
Case 'TsoinTsoin'
                .Interior.ColorIndex = 6
           
Case 'Etc Etc'
                .Interior.ColorIndex = 4
           
Case Else
                .Interior.ColorIndex = xlNone
       
End Select
   
End With
   
Next
End Sub


On peut mettre autant de Case que l'on veut... (Voir l'aide à 'Select Case, instruction) qui peut gérer aussi des valeurs numériques of course (Case 1 To 4, 7 To 9, 11, 13) etc etc

Bonne Journée
[ol]@+Thierry[/ol]
 

serval

XLDnaute Occasionnel
bonsoir,

je viens de voir vos messages et merci de vos réponses.

Néamoins, je me permets de fournir un petiot exemple :=)

merci de votre aide,
FAb

PS: c koa les MDF??? [file name=coloration.zip size=2188]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/coloration.zip[/file]
 

Pièces jointes

  • coloration.zip
    2.1 KB · Affichages: 32
  • coloration.zip
    2.1 KB · Affichages: 31
  • coloration.zip
    2.1 KB · Affichages: 35

Discussions similaires

Réponses
16
Affichages
448
  • Résolu(e)
Microsoft 365 SIERREUR
Réponses
7
Affichages
215