[VBA-E] Mise en forme conditionnelle

Bonjour

Voilà, j'aimerais créer une macro, ou autre moyen , de maniere a avoir le même résultat que la mise en forme conditionnelle, mais en ayant plus de conditions que trois, il m'en faudrait 7 exactement.

Exemple :
Je tape J dans ma cellule elle le fond passe en jaune
Je tape O dans ma cellule elle le fond passe en Orange

ainsi de suite jusqu'a sept couleur, et que cela se fasse automatiquement, que je ne soit pas obligé de lancer la macro manuelemnt a chaque fois, je ne travaille pas avec USF, mais directement sur le tableur.

Merci

exemple de code appliqué sur la colonne A et sur 500 lignes (à modifier dans la constante "endofcolumn")

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub MEF() Dim endofcolumn As Long endofcolumn = 500 For i = 1 To endofcolumn Select Case Cells(i, 1).Value Case Is = "" Cells(i, 1).Interior.ColorIndex = 0 Case Is = "A" Cells(i, 1).Interior.ColorIndex = 10 Case Is = "B" Cells(i, 1).Interior.ColorIndex = 20 Case Is = "C" Cells(i, 1).Interior.ColorIndex = 28 Case Is = "M" Cells(i, 1).Interior.ColorIndex = 60 Case Is = "H" Cells(i, 1).Interior.ColorIndex = 45 '...et ainsi de suite End Select Next i End Sub

---

EDIT: et dans la feuille concernée, ajouter:

Code:

---

1 2 3 4

Private Sub Worksheet_Change(ByVal Target As Range) Target = Range("A1:A500") Call MEF End Sub

---

RE-EDIT: cela m´apprendra à meiux lire le:aie: s questions...

Doringne, tu réponds pas à sa problématique de ne paslancer la macro manuellement mais cependant en reprenant ont code, il y a juste à mettre al macroMEF comme ci-dessous

Code:

---

1 2 3 4

Private Sub Worksheet_Change(ByVal Target As Range) Call MEF() End Sub

---

A chaque fois que ta feuille sera modifié, ta macro s'éxécutera
Cette amcro devra évidemment boucler sur les cellules sur lesquelle tu veux fair tamise en forme..Tu l'écris unefois et l'appelle comme je t 'ai montré et tu verras çà fait le mêem effet que la mise en forme conditonnelle

Pour reprendre le code de doringen placé dans la procédure indiquée par Helios, tu peux aussi faire ça

Code:

---

1 2 3 4 5 6 7 8

Select Case Cells(Target.row, 1).Value Case "" Cells(Target.row, 1).Interior.ColorIndex = 0 Case "A", "N", "S" Cells(Target.row, 1).Interior.ColorIndex = 20 Case "C", "F","L" Cells(Target.row, 1).Interior.ColorIndex = 28 'etc.

---

T'évite d'appeler une procédure avec passage de Target.row ;)
A+

Pourquoi passer par le .row???

Target est une cellule.
Il suffit de lui appliquer ce qu'on veut:

Code:

---

Target.Interior.ColorIndex = 0

---

Chuis bête ! T'as raison :oops: (... bien sûr !...)

Bonjour a tous
je reprend une question que je n'ai pas eu le temps de finir.
Comment appliquer la macro a toue la feuille et pas seulemment à une colonne

est-ce que comme écrit plus haut tout mettre dans le Worksheet_change ne te suffit pas ...?
pour le principe :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range For Each c In Target Select Case c.Value Case "J" c.Interior.Color = vbYellow Case "R" c.Interior.Color = vbRed Case Else c.Interior.ColorIndex = xlNone End Select   Next End Sub

---

Sur le Principe cela a l'aire de fonctionner, mais pour le code des couleurs je connais qu'en valeur numérique, et la cela n'as plus l'air de fonctionner si je remplace vbred par ça valeur 3.
as tu une de t'es astuce .....:D

3 c'est un index dans "la palette" de couleur ... remplace color par colorIndex