XL 2016 Coller la couleur d'une cellule avec mise en forme conditionnelle

[teosmi]

Bonsoir,
J'aimerai copier et coller un tableau avec des cellules avec une mise en forme conditionnelle et garder le résultat des cellules et leur couleur seulement
Soient :
A1 = 1
B1 = 2
C1 = A1+A2 (soit 3)
C1 à une mise en forme conditionnelle couleur verte si =3
J'aimerai copier C1 et la coller en D1 avec le chiffre 3 et le couleur seulement sans mise en forme conditionnelle.
Soit D1 verte avec le chiffre 3 (pas la formule)
Je ne sais pas comment faire .
Merci pour votre aide

 

[Fred0o]

Bonjour teosmi

Voici une macro qui fonctionne pour ton exemple, a adapter sur ton fichier reel :

Sub Copier()
    [D1] = [C1].Value
    If [C1] = [C1].FormatConditions(1).Operator Then
        [D1].Interior.Color = [C1].FormatConditions(1).Interior.Color
    Else
        [D1].Interior.Pattern = xlNone
    End If
End Sub

 

[patricktoulon]

bonjour

et si la couleur actuelle n'est pas la couleur du formatcondition(1)

tu est en 2016 donc normalement range("xx").DisplayFormat.Interior.Color devrait te donner la couleur

 

[teosmi]

Merci à vous.
La solution de Fred0o fonctionne tant que la condition est appliquée "uniquement aux cellules qui contiennent".
Si dans la condition je passe à "utiliser une formule pour déterminer pour quelle cellule le format sera appliqué" , j'ai l'erreur d'exécution 9
Je m'explique:
E1=10
C1 à une mise en forme conditionnelle couleur verte si E1 =10
Je vais essayer aussi la solution de patricktoulon mais j'ai un souci de synthaxe.

 

[GALOUGALOU]

bonjour teorsmi bonjour le forum bonjour patricktoulon, bonjour fredoo
une solution pour copier coller une cellule à la fois
une formule détermine le code index color de la mfc
dans une colonne (dans le classeur colonne N) identifier le n° color index
se positionner sur la cellule a copier et sur le clavier ctrl+maj+c (appel de la macro copier avec couleur)
se positionner sur la cellule à coller et sur le clavier crtl+maj+v (appel de la macro coller avec couleur)
si patricktoulon peut jeter un coup d'oeil sur la fonction couleur pour l'appliquer à la police ça serait top (je ne sais pas faire)
cordialement
galougalou

 

[teosmi]

Bonjour,
Quand je mets un "MsgBox [C1].FormatConditions(1).Operator" j'ai toujours 3 même si C1 est différent de 3. Je ne comprends pas