couleur cellules

arnaud · 11 Juillet 2005

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 · 11 Juillet 2005

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 · 11 Juillet 2005

car j'ai 5 conditions en tout!

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

arnaud · 11 Juillet 2005

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 · 11 Juillet 2005

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 · 11 Juillet 2005

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 · 11 Juillet 2005

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 · 11 Juillet 2005

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

Robert · 11 Juillet 2005

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

couleur cellules

arnaud

Guest

Robert

XLDnaute Barbatruc

arnaud

Guest

arnaud

Guest

Robert

XLDnaute Barbatruc

arnaud

Guest

Gérard DEZAMIS

XLDnaute Accro

Pièces jointes

arnaud

Guest

Robert

XLDnaute Barbatruc

Discussions similaires

couleur cellules

arnaud

Guest

Robert

XLDnaute Barbatruc

arnaud

Guest

arnaud

Guest

Robert

XLDnaute Barbatruc

arnaud

Guest

Gérard DEZAMIS

XLDnaute Accro

Pièces jointes

arnaud

Guest

Robert

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency