Mise en forme à l'aide d'une Macro
ched64
Messages postés
52
Date d'inscription
Statut
Membre
Dernière intervention
-
ched64 Messages postés 52 Date d'inscription Statut Membre Dernière intervention -
ched64 Messages postés 52 Date d'inscription Statut Membre Dernière intervention -
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.
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:
- Mise en forme à l'aide d'une Macro
- Mise en forme conditionnelle excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise a jour windows 10 - Accueil - Mise à jour
- Mise en forme tableau croisé dynamique - Guide
2 réponses
Bonjour
Voila une macro
A+
Maurice
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
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 ?
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 ?
Merci d'avoir pris le temps de répondre.
Ce code fonctionne et correspond tout a fait a mes attentes :)
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