Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Mise en forme conditionnelle bicolore par macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Adri74
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

Adri74

Guest
Bonjour,

Jusqu'à aujourd'hui, j'ai toujours trouvé des réponses à mes questions dans ce forum, mais là je n'ai rien trouvé...

J'ai un tableau de 10 000 lignes sur 18 colonnes. Dans la colonne A sont renseignés des numéros de projet (2000XXXX). Un projet peut contenir une ou plusieurs lignes. Je souhaiterai mettre en forme les lignes de mon tableau en alternant 2 couleurs pour chaque projet différent.
Pour être plus explicite, voici un fichier exemple de ce que j'ai réussi à faire et de ce que je cherche à obtenir.

Un grand merci d'avance à ceux qui pourront m'aider.
N'hésitez pas à me demander des précisions si mon explication n'est pas claire.

Cordialement
 

Pièces jointes

Trier par date Trier par votes
Re : Mise en forme conditionnelle bicolore par macro

Merci beaucoup, c'est exactement ce que je cherchais... Quelle efficacité et quelle rapidité !

Par contre avec 10 000 lignes, mon fichier est extrêmement lent. Peut être que je vais être obligé de réduire mon nombre de lignes...
Sinon, peut être que la même MFC par macro est moins gourmande en ressources ?

Cordialement
 
Vote positif 0 Vote négatif
Re : Mise en forme conditionnelle bicolore par macro

Voir PJ

Code: 
Sub coloriage()
   Application.ScreenUpdating = False
   [A1].CurrentRegion.Sort Key1:=[A2], Order1:=xlAscending, Header:=xlGuess  'tri
   couleur = 36
   For i = 2 To [A65000].End(xlUp).Row
     If Cells(i, 1) <> Cells(i - 1, 1) Then couleur = IIf(couleur = 36, 34, 36)
     Cells(i, 1).Resize(, 2).Interior.ColorIndex = couleur
   Next i
   Application.ScreenUpdating = True
End Sub

JB
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Q
  • Question Question
XL 2010 Problème avec la mise en forme conditionnelle
Réponses
4
Affichages
230
quickfuture
Q
L
  • Question Question
XL 2021 Mise en forme conditionnelle à partir d'autre colonne
Réponses
7
Affichages
351
CHRIS1945
C
L
  • Question Question
XL 2021 RechercheX et Mise en forme conditionnelle
2
Réponses
17
Affichages
412
Lucie85
L
F
  • Question Question
XL 2016 tableau mise en forme
Réponses
11
Affichages
261
Hecatonchire
H
E
  • Question Question
XL 2016 Mise en forme conditionnelle conservée après actualisation d'un TCD
Réponses
1
Affichages
328
chris
T
  • Résolu(e)
XL 2010 Mise en forme conditionnelle
Réponses
4
Affichages
460
tchi456
T
J
  • Question Question
XL 2013 mise en forme conditionnelle contenant plusieurs mots
2
Réponses
16
Affichages
898
jo657
J
A
  • Question Question
XL 2016 Mise en forme conditionnelle et valeur égale à 0...
Réponses
5
Affichages
469
sylvanu
A
  • Question Question
XL 2019 Mise en forme conditionnelle
Réponses
5
Affichages
665
wDog66
W
C
  • Résolu(e)
XL 2021 Mise en forme conditionnelle si *mot* dans cellule
Réponses
10
Affichages
682
TooFatBoy
F
  • Question Question
XL 2016 Mise en forme conditionnelle d'une forme (cartographie)
Réponses
9
Affichages
583
francois95
F
  • Résolu(e)
XL pour MAC Mise en forme conditionnelle dynamique
2 3
Réponses
36
Affichages
2 K
Philarête
M
  • Question Question
Microsoft 365 Ajout de cas à cocher et mise en forme conditionnelle dans un tableau Excel
Réponses
9
Affichages
634
mimednejma
M
A
  • Question Question
XL 2016 MFC avec plusieurs conditions
2
Réponses
25
Affichages
1 K
ALVE
A
C
  • Résolu(e)
XL 2016 mise en forme conditionnelle dans tableau
Réponses
3
Affichages
288
Colette29
C
F
  • Question Question
XL pour MAC Mise en forme conditionnelle
Réponses
6
Affichages
345
flea
F
M
  • Question Question
Microsoft 365 Mise en forme conditionnelle sur feuille entière
2
Réponses
24
Affichages
833
sylvanu
M
  • Question Question
XL pour MAC Mise en forme conditionnelle sans changer le remplissage des cellules
Réponses
4
Affichages
556
sylvanu
W
  • Question Question
XL 2016 Mise en forme conditionnelle des cellules
Réponses
2
Affichages
430
mapomme
  • Question Question
Microsoft 365 Mise en frome conditionnelle de lignes par dates différentes
2
Réponses
19
Affichages
707
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…