Mise en forme à l'aide d'une Macro

Question

Bonjour, 

J'ai besoin de faire une manipulation à l'aide d'une macro pour un fichier du travail mais malheureusement je n'arrive pas a faire cette dernière.

Je précise que je dois obligatoirement passer par une macro, je ne peux pas utiliser de mise en forme conditionnelle car ma macro déjà en place l'écrase.

Voici ce que je veux faire (aussi expliqué dans le fichier ci-joint: 
Si dans la colonne "F", a partir de la ligne 5 il y a écrit "Refusée" : 
- Colorer la case ou il a écrit "Refusée" en Rouge avec l'écriture en blanc
- Mettre l'écriture de la case de la colonne "D" de la ligne en question en rouge.

https://www.cjoint.com/c/EAjvFo7EwBI

En vous remerciant d'avance.

gbinforme · Answer

Bonjour,

ma macro déjà en place l'écrase 
- il n'y a pas de macro dans ton exemple qui est en .xlsx : il aurait fallu être cohérent avec la demande et mettre ta macro.

Comment veux-tu que l'on te donne une solution si ton exemple n'est pas conforme ?

Maurice · Answer

Bonjour
Voila une macro

Sub Color()
   For L = 5 To Range("F" & Rows.Count).End(xlUp).Row
      If Cells(L, 6).Value = "Refusée" Then
         Cells(L, 6).Interior.ColorIndex = 3
         Cells(L, 6).Font.ColorIndex = 2
         Cells(L, 4).Font.ColorIndex = 3
       Else
         Cells(L, 6).Interior.ColorIndex = xlNone
         Cells(L, 6).Font.ColorIndex = xlAutomatic
         Cells(L, 4).Font.ColorIndex = xlAutomatic
      End If
   Next
End Sub

A+
Maurice

Mise en forme à l'aide d'une Macro

2 réponses

Discussions similaires

Newsletters