Comment trier les cellules par couleur dans 1 colonne?

[fredalva]

Bonjour,
j'ai une colonne d' adresses A que je compare à une colonne d'adresses B (afin d'éliminer les doublons).Les données de la colonne A qui sont également présentes dans la colonne B ont un fond de cellule rouge et les autres vert.
Question:comment regrouper toutes les cellules rouges pour pouvoir les éliminer plus facilement?

D'avance merci

 

[pierrejean]

Re : Comment trier les cellules par couleur dans 1 colonne?

bonjour fredalva

Bienvenue sur XLD

cette macro ne regroupera pas les cellules mais elle les supprimera

Sub efface_rouge()
For n = 1 To Range("A65536").End(xlUp).Row
   If Range("A" & n).Interior.ColorIndex = 3 Then
    Range("A" & n).Delete Shift:=xlUp
   End If
Next n
 
End Sub

edit:

comme le fait judicieusement remarquer Wilfried 🙂 ci dessous , si la couleur est obtenue par MFC ce code ne fonctionnera pas

 

[wilfried_42]

Re : Comment trier les cellules par couleur dans 1 colonne?

Bonjour fredalva, pierrejean 🙂

Je pense mais à confirmer, que les couleurs sont issues d'une MFC

 

[Tibo]

Re : Comment trier les cellules par couleur dans 1 colonne?

Bonsoir à tous,

Avec utilisation d'une macro fonction d'excel 4 : LIRE.CELLULE

Insertion - Nom - Définir :

Nom : couleur

Fait référence à : =LIRE.CELLULE(63;Feuil1!$A1)

ensuite en B1 : = couleur

à recopier vers le bas et on peut ensuite faire un tri.

Voir fichier exemple joint

@+

 

[fredalva]

Re : Comment trier les cellules par couleur dans 1 colonne?

Bonjour et merci pour vos réponses rapides.
Voici les formules utilisées pour comparer les valeurs des 2 colonnes et mettre le fond en couleur:
=RECHERCHEV(A1;$B:$B;1;0)=A1 couleur ROUGE

et

=ET(A1<>"";ESTNA(RECHERCHEV(A1;$B:$B;1;0))) couleur VERT

Dans ce cas la macro pour éliminer les rouges va t'elle fonctionner?

Fred

 

[Tibo]

Re : Comment trier les cellules par couleur dans 1 colonne?

Bonsoir,

Une première analyse de tes formules :

il est possible de les simplifier :

La 1ère recherche dans la colonne B la présence de A1. On peut la remplacer par :

=NB.SI($B:$B;A1)>0

Pour la 2ème formule, A1 ne doit pas être vide et n'est pas présent dans la colonne B. On peut alors remplacer par :

=ET(A1<>"";NB.SI($B:$B;A1)=0)

En colonne C, on pourrait faire l'addition des 2 tests :

=(NB.SI($B:$B;A1)>0)+(ET(A1<>"";NB.SI($B:$B;A1)=0))

Ca va retourner 1 ou 0 et donc possibilité de faire le tri.

Je te laisse essayer

Bonne soirée

@+

Edit : Je suis moins sûr de ma formule tout d'un coup (pas testée du fait de pas de fichier). Plus simple : =SI(NB.SI($B:$B;A1)>0);1;SI(ET(A1<>"";NB.SI($B:$B;A1)=0);2;0))

@+

 

[wilfried_42]

Re : Comment trier les cellules par couleur dans 1 colonne?

re:

Ce sont bien des mises en forme conditionnelles, la particularité des MFC c'est que les couleurs n'affectent pas reellement les cellules, donc on ne peut tester des cette facon les couleurs

Il y a un post sur le forum au sujet de compter sur de MFC mais il faut le retrouver, il y a une procedure qui permet de travailler sur les couleurs definie dans des MFC

Bon courrage

 

[fredalva]

Re : Comment trier les cellules par couleur dans 1 colonne?

Bonjour Tibo

ta méthode ne fonctionne pas j'ai des 1 partout et ta dernière formule contient une erreur d'après excel.
J'ai essayé de retrouver le post sur les MFC.
@+

 

[wilfried_42]

Re : Comment trier les cellules par couleur dans 1 colonne?

re:

=nb.si(b:b;A1) tu glisses la formule vers le bas

 

[pierrejean]

Re : Comment trier les cellules par couleur dans 1 colonne?

re a tous

a tester (basée sur la formule utilisée pour colorer en rouge

Sub efface_rouge()
 For n = Range("A65536").End(xlUp).Row To 1 Step -1
    Set c = Range("B1:B" & Range("B65536").End(xlUp).Row).Find(Range("A" & n), LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
       Range("A" & n).Delete Shift:=xlUp
    End If
Next n
End Sub

 

[fredalva]

Re : Comment trier les cellules par couleur dans 1 colonne?

Non wilfried ca marche pas je vais tester la macro de jean et je vous tiens au courant.
@+

 

[pierrejean]

Re : Comment trier les cellules par couleur dans 1 colonne?

re

Attention , je viens de la modifier

 

[Cousinhub]

Re : Comment trier les cellules par couleur dans 1 colonne?

Bonsoir le fil

un autre code pour supprimer les doublons de la colonne A :

Sub efface_doublons()
Dim i As Long
For i = [A65000].End(xlUp).Row To 2 Step -1
If Application.CountIf(Range("B:B"), Cells(i, 1)) >= 1 Then Cells(i, 1).Delete Shift:=xlUp
Next i
End Sub

 

[fredalva]

Re : Comment trier les cellules par couleur dans 1 colonne?

C'est bon pierrejean ca fonctionne 😀

Merci à tous pour votre aide