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

°<°

XLDnaute Nouveau
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:
VB:
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

XLDnaute Barbatruc
bonjour
tu tourne sur 2013 sert toi de .DisplayFormat
VB:
            '<<<<<<<<<<<<'.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
 

°<°

XLDnaute Nouveau
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 :eek: !)
Le Display Format était prometteur mais visiblement il manque quelque chose.
 

patricktoulon

XLDnaute Barbatruc
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 !!!!!
 

Staple1600

XLDnaute Barbatruc
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
VB:
Sub Macro1()
Set Rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllFormatConditions)
MsgBox Rng.Address(0, 0) 'pour test
Rng.Select
End Sub
 

Discussions similaires

Réponses
12
Affichages
159