Mise en forme à l'aide d'une Macro

Fermé
ched64 Messages postés 52 Date d'inscription lundi 1 avril 2013 Statut Membre Dernière intervention 9 mai 2016 - 9 janv. 2015 à 21:24
ched64 Messages postés 52 Date d'inscription lundi 1 avril 2013 Statut Membre Dernière intervention 9 mai 2016 - 13 janv. 2015 à 11:01
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.
A voir également:

2 réponses

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
1
ched64 Messages postés 52 Date d'inscription lundi 1 avril 2013 Statut Membre Dernière intervention 9 mai 2016
10 janv. 2015 à 14:21
Bonjour,

Merci d'avoir pris le temps de répondre.
Ce code fonctionne et correspond tout a fait a mes attentes :)
0
ched64 Messages postés 52 Date d'inscription lundi 1 avril 2013 Statut Membre Dernière intervention 9 mai 2016
13 janv. 2015 à 11:01
Bonjour,

Desolé de vous déranger de nouveau.
En utilisant la macro je me suis rendu compte que le code marchait bien mais une fois que j'utilisais des filtres sur mon onglet, la mise en forme n'arrive pas à suivre pour toutes les cases...sais tu a quoi cela peut être du?

Merci d'avance
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
9 janv. 2015 à 21:54
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 ?
0
ched64 Messages postés 52 Date d'inscription lundi 1 avril 2013 Statut Membre Dernière intervention 9 mai 2016
10 janv. 2015 à 14:05
Bonjour,

Merci d'avoir pris le temps de répondre. Je suis désolé mais je ne pouvais pas mettre le fichier que j'utilise car trop volumineux mais surtout car il comporte des données confidentielles sur mon entreprise. C'est pour cette raison que j'ai créé un second fichier "fictif"
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684 > ched64 Messages postés 52 Date d'inscription lundi 1 avril 2013 Statut Membre Dernière intervention 9 mai 2016
10 janv. 2015 à 18:28
Bonjour,

Tout à fait d'accord pour le fichier "fictif" mais il faut qu'il soit compatible avec la demande et comme c'est la macro qui était en cause mais absente ;-)
Tu as trouvé tout de même !
0