Mise en forme

Bonjour

Voilà, j'aimerais mettre en forme(qu'elle change de couleur) certaine cellule d'une feuille en fonction de ce qu'il y a de noter dedans.
avant cela fonctionné très bien si je tapais la valeur directement dans la cellule. Mais maintenant cesvaleur s'inscrive grace a des formule, et ma mise en forme ne ce fait plus, et je ne vois pas pourquoi, si quequ'un sait pourquoi cela m'arrangerais.

Voilà ce que j'ai :

Code:

---

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

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 = "JV" Cells(i, 1).Interior.ColorIndex = 35 Case Is = "R" Cells(i, 1).Interior.ColorIndex = 3 Cells(i, 1).Font.ColorIndex = 2 Case Is = "B" Cells(i, 1).Interior.ColorIndex = 37 Case Is = "N" Cells(i, 1).Interior.ColorIndex = 1 Cells(i, 1).Font.ColorIndex = 2 Case Is = "O" Cells(i, 1).Interior.ColorIndex = 46 Case Is = "V" Cells(i, 1).Interior.ColorIndex = 7 End Select Next i End Sub

---

Bonjour.

Tu n'as qu'une feuille dans ton classeur?
Le procédure que tu donnes s'exécute-t-elle effectivement?

PGZ

Non j'ai plusieurs feuilles, mais j'ai besoin que cela ne s'applique que sur une seule, donc ce code ce trouve sur la feuille concernée,
si je tape la valeur, cela change bien, mais si la valeur arrive grace a des formules le code ne fonctionne pas.

Bonjour,
Je ne connais pas bien la fonction "CASE" mais elle prend peut-être en compte la formule, i faut peut-etre remplacer par "range("a1") <= suivant la cellule concernée.
remplacer :

Code:

---

1 2 3 4

For i = 1 To endofcolumn Select Case Cells(i, 1).Value Case Is = "" Cells(i, 1).Interior.ColorIndex = 0

---

par

Code:

---

1 2 3

for i = 1 to endofcolumn if range("a" & i) = "" then :range("a" & i)Interior.ColorIndex = 0 '.........

---

alors là j'ai changé un peu, cela fonctionne un peu mieux, quand je le tape cela fonctionne a chaque fois, mais toujour pas quand les valeurs sont calculée, voilà ou j'en suis rendu

Code:

---

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

Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range For Each c In Target Select Case c.Value Case "JV" c.Interior.ColorIndex = 35 Case "R" c.Interior.ColorIndex = 3 c.Font.ColorIndex = 2 Case "B" c.Interior.ColorIndex = 37 Case "N" c.Interior.ColorIndex = 1 c.Font.ColorIndex = 2 Case "O" c.Interior.ColorIndex = 46 Case "V" c.Interior.ColorIndex = 7 Case Else c.Interior.ColorIndex = xlNone End Select   Next End Sub

---

Je ne sais toujours pas si le code s'exécute (et ne donne pas le résultat attendu) ou s'il ne s'exécute pas.
Au hasard je te propose, dans le module associé à la feuille en question

Code:

---

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

Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range Const endofcolumn As Long = 500   For Each c In Me.Range("A1:A" & endofcolumn) Select Case c.Value Case "JV" c.Interior.ColorIndex = 35 Case "R" c.Interior.ColorIndex = 3 c.Font.ColorIndex = 2 Case "B" c.Interior.ColorIndex = 37 Case "N" c.Interior.ColorIndex = 1 c.Font.ColorIndex = 2 Case "O" c.Interior.ColorIndex = 46 Case "V" c.Interior.ColorIndex = 7 Case Else c.Interior.ColorIndex = xlNone End Select Next c   End Sub

---

Bon dimanche,

PGZ

Salut Didpa et le forum

Citation:

---

mais si la valeur arrive grace a des formules le code ne fonctionne pas

---

Éternel problème de Worksheet_Change : ça n'agit que sur les cellules dont le contenu change, et pas l'affichage :mrgreen:.
- Soit tu retestes toutes les cellules dont la valeur peut évoluer (si elles ne constitues pas un range trop important). (t'as déjà essayé entretemps)

- Soit tu ne testes que la/les cellule(s) modifiée(s), qui et/ou leur(s) dépendant(s) font partie des cellules à contrôler. Un exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Err_Chgt 'Déclarations ===================================== Dim Plg As Range Dim Cel As Range Dim Plg_Ref As Range 'MEI ============================================== Set Plg = Target Set Plg_Ref = Range("A1:A20") 'Traitement ======================================= 'Recherche de toutes les cellules concernées par 'modification directe ou induite ------------------ For Each Cel In Target Set Plg = Union(Plg, Cel.Dependents) Next Cel 'Définition des cellules à modifier -------------- If Intersect(Plg, Plg_Ref) Is Nothing Then Sortie_Chgt Set Plg = Intersect(Plg, Plg_Ref) 'Traitement des cellules mdifiées de la zone ----- For Each Cel In Plg Select Case Cel   End Select Next Cel 'Sortie obligatoire ============================== Sortie_Chgt: Exit Sub 'Traitement des erreurs ========================== Err_Chgt: If Err.Number = 1004 Then 'Err.Clear Resume Next Else MsgBox Err.Description, vbCritical + vbOKOnly, "ERREUR EXCEL n°" & Err.Number Resume Sortie_Chgt End If End Sub

---

Là, on contrôle les cellules de la plage A1:A20 qui ont eu leurs valeurs modifiées, ou un élément de la formule qu'elles contiennent.
A+
PS si des questions, ne pas hésiter

EDIT

Code:

---

1 2 3

Const endofcolumn As Long = 500 For Each c In Me.Range("A1:A" & endofcolumn)

---

bien que ce soit "juste", je préfère

Code:

---

For Each c In Me.Range("A1:A" & range("A" & rows.count).end(xlup))

---

merci a vous
cela fonctionne avec cette formule

Code:

---

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

Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range Const endofcolumn As Long = 500   For Each c In Me.Range("A1:A" & endofcolumn) Select Case c.Value Case "JV" c.Interior.ColorIndex = 35 Case "R" c.Interior.ColorIndex = 3 c.Font.ColorIndex = 2 Case "B" c.Interior.ColorIndex = 37 Case "N" c.Interior.ColorIndex = 1 c.Font.ColorIndex = 2 Case "O" c.Interior.ColorIndex = 46 Case "V" c.Interior.ColorIndex = 7 Case Else c.Interior.ColorIndex = xlNone End Select Next c   End Sub

---

Mais, si je protège mes cellules (Protéger la feuille) cela ne fonctionne plus, une idée ??

Ce qu'on ne sait pas c'est à quel moment il faut exécuter la procédure de mise en forme.
- soit c'est sur une saisie manuelle et il faut trouver un évènement associé,
- soit c'est après une modification par code et alors c'est à ce code d'appeler la procédure.

COrdialement,

PGZ

Salut Didpa et le forum

Citation:

---

Mais, si je protège mes cellules (Protéger la feuille) cela ne fonctionne plus, une idée ??

---

Tu déprotèges en début de macro et tu reprotèges juste avant de sortir : ta macro travaille sur une feuille sans protection, mais vu le temps de traitement, elle te semblera être toujours sous protection.
A+