Coloriage grace a VB

[serval]

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

 

[anuky]

Bonjour serval,

Oui c'est possible mais donne plus de précision, tu a une seule cellule a clorier où tu en a plusieurs, est-ce toujours la même cellule où est-ce une cellule variable...

A +

 

[_Thierry]

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]

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]

 

[ballmaster]

Utilise la mise en forme conditionnelle
Sauf si tu veux vraiment faire de du VBA

Pour la mise en forme conditionnelle, tu ne peux mettre que 3 conditions.

A +

 

[serval]

alut,

ben justement, c car je souhaiterai ensuite ajouter plus de 3 conditions, voila pourquoi je pensai au VBA 😉