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

°<° · 7 Novembre 2019

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 · 7 Novembre 2019

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

°<° · 7 Novembre 2019

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 · 7 Novembre 2019

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

°<° · 7 Novembre 2019

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 · 7 Novembre 2019

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

Staple1600 · 7 Novembre 2019

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

patricktoulon · 7 Novembre 2019

re
bonsoir Staple1600

Set Rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllFormatConditions)

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

Staple1600 · 7 Novembre 2019

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 · 7 Novembre 2019

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

°<° · 8 Novembre 2019

patricktoulon à dit:
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 · 8 Novembre 2019

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

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

°<°

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

°<°

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

°<°

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

°<°

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Discussions similaires