Mise en forme conditionnelle si cellule se trouve dans une plage
Résolu/Fermé
A voir également:
- Mise en forme conditionnelle si cellule se trouve dans une plage
- Mise en forme conditionnelle excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Mise en forme conditionnelle si cellule contient un mot ✓ - Forum Excel
- Excel si cellule contient texte alors 1 ✓ - Forum Excel
- Dans cette présentation, sarah avait encadré directement le titre de certaines diapositives avant d'automatiser cette mise en forme pour tout le document. sur quelles diapositives avait-elle encadré directement le titre ? ✓ - Forum Bureautique
3 réponses
Raymond PENTIER
Messages postés
58392
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
22 avril 2024
17 094
1 sept. 2017 à 18:55
1 sept. 2017 à 18:55
Bonjour.
Si les couleurs ne sont pas saisies au clavier, mais appliquées selon un code, il sera peut-être inutile de passer par VBA.
Si les couleurs ne sont pas saisies au clavier, mais appliquées selon un code, il sera peut-être inutile de passer par VBA.
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
1 sept. 2017 à 19:06
1 sept. 2017 à 19:06
Bonsoir
En supposant les codes en colonne A dans chacune des 2 feuilles, macro à copier et coller dans un module de l'éditeur VBA :
Cdlmnt
Via
En supposant les codes en colonne A dans chacune des 2 feuilles, macro à copier et coller dans un module de l'éditeur VBA :
Sub couleurs() Dim Ligne1 As Long, Ligne2 As Long ' derniere ligne remplie col A feuille 1 Ligne1 = Sheets("Feuil1").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row ' derniere ligne remplie col A feuille 2 Ligne2 = Sheets("Feuil2").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row ' boucle sur les lignes des 2 feuilels pour comparer les cellules For n = 1 To Ligne1 For m = 1 To Ligne2 ' si cellules identiques cellule feuille 1 coloriée comme cellule feuille 2 If Sheets("Feuil1").Range("A" & n) = Sheets("Feuil2").Range("A" & m) Then Sheets("Feuil1").Range("A" & n).Interior.Color = Sheets("Feuil2").Range("A" & m).Interior.Color Exit For End If Next Next End Sub
Cdlmnt
Via