Selectionner des cellules colorées par mfc

[patatra]

Bonjour,

voila mon problème:

Sur une plage de cellules (B3;R41) je souhaite copier coller les lignes colorées en jaune par mfc, nombre variable selon les saisies et les collées dans une autre feuille pour avoir une stat annuelle.
Mon code ne colle que la 1er cellule

For Each C In Range("B3:R41")
If C.Interior.ColorIndex = 36 Then
C.Value = 36
End If
Next C
Selection.Copy
Sheets("RECAP").Select
Range("B5").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
Sheets("SAISIE").Select
Range("A1").Select
End Sub

Merci pour votre cooperation

A bientot patatra

 

[Fred0o]

Re : Selectionner des cellules colorées par mfc

Bonjour patatra,

Voilà le code qu'il te faut mettre dans ThisWorkbook :

Sub test()
    Sheets("RECAP").Range("B2:B65536").ClearContents
    For Each C In Range("B3:R41")
        If C.Interior.ColorIndex = 36 Then
            Sheets("RECAP").Range("B" & Sheets("RECAP").Range("B65536").End(xlUp).Row + 1).Value = C.Value
        End If
    Next C
End Sub

A+

 

[Gorfael]

Re : Selectionner des cellules colorées par mfc

Salut patatra et le forum
Une MFC ne colorie pas la cellule, mais un "calque". À ma connaissance, il n'existe aucune méthode permettant de savoir si une MFC est appliquée ou non. Le seul moyen c'est de refaire le test dans la macro. Et pour t'aider, il faut avoir une idée de la formule de la MFC.
A+

 

[Staple1600]

Re : Selectionner des cellules colorées par mfc

Bonsoir à tous


Ici de quoi lire et de quoi faire avec les mises en forme conditionnelle et VBA.

Conditional Formatting Colors

 

[BOISGONTIER]

Re : Selectionner des cellules colorées par mfc

Bonsoir,

Voir PJ

JB

 

[patatra]

Re : Selectionner des cellules colorées par mfc

Merci pour toutes ces info

A+