VBA Copier/Coller couleur mise en forme conditionnelle

[jl456]

.

 

[Hasco]

Bonjour,

C'est normal car dans votre procédure 'RangetoHTML'
Vous créez un fichier temporaire qui ne possède pas la feuille Notice et que les formules de mises en forme conditionnelle deviennent :
=A1=RECHERCHEV(A1;[Exemple.xlsm]Notice!#REF!;1;FAUX)

Avant de faire la copie sur le classeur temp, copier le tableau dans une feuille du même classeur et fusionner les formats et displayFormats par la macro suivante.

ou appliquer cette fusion directement sur la feuille avant d'en copier le tableau si vous n'avez plus besoin des MFC.

Sub CopierFormatConditionnel()
    Dim plg As Range, a As Range, c As Range
    On Error Resume Next
    Set plg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllFormatConditions)
    On Error GoTo 0
    If Not plg Is Nothing Then
        For Each a In plg.Areas
            For Each c In a.Cells
                c.Interior.Color = c.DisplayFormat.Interior.Color
                c.Font.Color = c.DisplayFormat.Font.Color
                c.Font.Bold = c.DisplayFormat.Font.Bold
            Next
        Next a
        'Suppression des MFC
        plg.FormatConditions.Delete
    End If
End Sub

Cordialement

 

[jl456]

Merci beaucoup pour votre aide.

 

[job75]

C'est vraiment se moquer du monde ! Le post #1 a été effacé et le fil est donc incompréhensible.

Si l'auteur a un minimum de savoir-vivre il doit rétablir le post #1 avec la question posée.