couleur cellules

[arnaud]

Bonjour à tous,

Je voudrais modifier la couleur des cellules des colonnes B et C en fonction des valeurs de la colonne D

Ex:
_ si les cellules de la colonne D = 1 -> les cellules correspondantes des colonne B et C = bleu
_ si les cellules de la colonne D = 2 -> les cellules correspondantes des colonne B et C = violet
_ si les cellules de la colonne D = 3 -> les cellules correspondantes des colonne B et C = jaune


Pouvez vous me préciser le code VBA à appliquer?

Moultes merci

A+

Arnaud.

 

[Robert]

Bonjour Arnaud, bonjour le forum,

Cette macro devrait faire l'affaire :

Sub Macro2()
Dim Cel As Range 'déclare la variable Cel
'boucle sur toute les cellules de la plage D1... (dernière éditée)
For Each Cel In Range('D1' & Range('D65536').End(xlUp).Row)
'en fonction du cas 'Valeur de la cellule Cel'
Select Case Cel.Value
Case 1
Range(Cel.Offset(0, -2), Cel.Offset(0, -1)).Interior.ColorIndex = 5 'bleu
Case 2
Range(Cel.Offset(0, -2), Cel.Offset(0, -1)).Interior.ColorIndex = 7 'violet
Case 3
Range(Cel.Offset(0, -2), Cel.Offset(0, -1)).Interior.ColorIndex = 6 'jaune
End Select
Next Cel
End Sub

Mais pourquoi pas une Mise en forme conditionnelle ?

 

[arnaud]

car j'ai 5 conditions en tout!

Ca ne marche pas : 'incompatibilté de type'???
Niveau de sécurité moyen!

 

[arnaud]

est -il possible de avec une fonction de colorier une case?

Ex : si D3 = 1 alors B3 et C3 = bleu

merci de votre aide

 

[Robert]

Bonjour Arnaud, bonjour le forum,

Je suis très étonné car j'ai testé avant de t'envoyer et chez moi ça marche impec ???

 

[arnaud]

En effet Robert ca fonctionne très bien sur une nouvelle feuille.

Mon problème c'est que mes données (1,2 et 3) sont des données recherchés (recherv)!

EX : =SI(RECHERCHEV(B9;statut!A:Y;25;FAUX)='NOUVEL ARTICLE';'1')

En fait je souhaite récupérer des infos, attribuer un numéro et en fonction de numéro colorier les cellules précédentes!

:silly:

A+

Arnaud.

 

[Gérard DEZAMIS]

Aleez Robert ! Allez Robert ! Allez !


Bonjour Arnaud

Je viens manifester !

Oui Robert a raison .... surtout pour la MFC qui fonctionne très bien

Pourquoi faire compliqué ?

@+ GD [file name=Arnaud.zip size=1782]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Arnaud.zip[/file]

 

[arnaud]

car je possède + de 3 couleurs -> 6 au total !

 

[Robert]

Bonsoir Arnaud, Gérard, bonsoir le forum,

Dans ce cas Arnaud, essaye en mettant des guillements au Case :

Sub Macro2()
Dim Cel As Range 'déclare la variable Cel
'boucle sur toute les cellules de la plage D1... (dernière éditée)
For Each Cel In Range('D1' & Range('D65536').End(xlUp).Row)
'en fonction du cas 'Valeur de la cellule Cel'
Select Case Cel.Value
Case '1'
Range(Cel.Offset(0, -2), Cel.Offset(0, -1)).Interior.ColorIndex = 5 'bleu
Case '2'
Range(Cel.Offset(0, -2), Cel.Offset(0, -1)).Interior.ColorIndex = 7 'violet
Case '3'
Range(Cel.Offset(0, -2), Cel.Offset(0, -1)).Interior.ColorIndex = 6 'jaune
End Select
Next Cel
End Sub