XL 2013 Sélection automatique des couleurs similaires d'une mise en forme conditionnelle

[°<°]

Bonjour,

Je travaille sur un projet dans lequel j'ai besoin de sélectionner toutes les couleurs similaire d'une feuille.

J'ai réussis à me fabriquer une macro qui était satisfaisante pour mon niveau en la matière (je viens tout juste de débuter ce genre de manipulation).
Mais j'ai transformé la mise en page de mon fichier avec une mise en forme conditionnelle pour que les couleurs s'applique automatiquement en fonction de la valeur des cellules.

Depuis cette modification nécessaire à mon projet, ma macro ne fonctionne plus (J'ai lu que c'était à cause de la couleur de fond "papier peint" de la mise en forme, voir https://www.excel-downloads.com/threads/detection-couleur-mfc.99000/).

Mon niveau ne me permet pas de modifier ma macro pour la faire fonctionner avec la MFC, j'espère que vous pourrez m'aider pour que j'arrive à m'en sortir.

Voilà mon code:

Sub Selection_par_couleur_3()
'
' Selection_par_couleur_3 Macro
'
Dim couleur As Long
    couleur = ActiveCell.Interior.Color

    Dim plage As Range
    Set plage = ActiveCell

    For Each c In ActiveSheet.UsedRange
        If c.Interior.Color = couleur Then
            Set plage = Application.Union(plage, c)
                        
        End If
    Next

    plage.Select
    
End Sub

Merci d'avance.

 

[patricktoulon]

bonjour
tu tourne sur 2013 sert toi de .DisplayFormat

            '<<<<<<<<<<<<'.DisplayFormat!!!!>>>>>>>
Sub Selection_par_couleur_3()
'
' Selection_par_couleur_3 Macro
'
Dim couleur As Long
    couleur = ActiveCell.Interior.Color

    Dim plage As Range
    Set plage = ActiveCell
    For Each c In ActiveSheet.UsedRange
        If c.DisplayFormat.Interior.Color = couleur Then
            Set plage = Application.Union(plage, c)
        End If
    Next
  plage.Select
  End Sub

 

[°<°]

Merci pour ta réponse rapide Patrick,

Mais malheureseument mon problème n'est pas résolu.
Excel ne semble que "voir" le "mur' et non pas le "papier peint" pour reprendre la métaphore de la discussion précédente sur le sujet.
Je me retrouve avec toute les cellules blanches sélectionnées de la feuille (c'est à dire beaucoup ! mon pc a eu un coup de chaud !)
Le Display Format était prometteur mais visiblement il manque quelque chose.

 

[patricktoulon]

re
dans ce cas la il va te falloir évaluer(evaluate) la formule de la mfc
dans une boucle
ne connaissant pas la formule ou le fichier difficile de t'en dire plus

mais ca m’étonne que ca te sélectionne tout car on boucle uniquement sur le usedrange

bizarre !!!!!

 

[°<°]

C'est Bon !

Grâce au pouvoir de la bidouille et de la chance du débutant j'ai réussi !
Merci Patrick pour m'avoir mis sur la bonne voie !

 

[patricktoulon]

re
d'accords c'est quoi ton code ca peut servir a d'autre

 

[Staple1600]

Bonsoir le fil

Pourquoi une macro?
Alors que la succession de touches ci-dessous suffit
CTRL+A
F5
ALT+C
ALT+F
ENTER

Et si vraiment, on veut le faire en VBA

Sub Macro1()
Set Rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllFormatConditions)
MsgBox Rng.Address(0, 0) 'pour test
Rng.Select
End Sub

 

[patricktoulon]

re
bonsoir Staple1600

Set Rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllFormatConditions)

et si il y a plusieur mfc ??? et qu'il en cherche qu'une??

 

[Staple1600]

Bonsoir patricktoulon

Mais j'ai transformé la mise en page de mon fichier avec une mise en forme conditionnelle pour que les couleurs s'applique automatiquement en fonction de la valeur des cellules.

 

[patricktoulon]

re
je te reprenais pas ,c'est ce dont j'ai besoins donc pour moi en en fait

 

[°<°]

re
d'accords c'est quoi ton code ca peut servir a d'autre

J'ai essayé la technique de staple a posteriori, elle fonctionne bien mieux que la mienne, je la recommande.

Merci à tous pour votre aide.

 

[patricktoulon]

re
ok
mais ca me dis pas comment faire pour UNE !! MFC parmi d'autres
tant pis je continuerais avec ma méthode evaluate