VBA Copier/Coller couleur mise en forme conditionnelle

Hasco

XLDnaute Barbatruc
Repose en paix
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.

Code:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG