XL 2013 faire une formule sous Excel 2013 pour copier les mises en forme d'une autre cellule

mapomme à dit:

Bonjour @cd92600🙂,

Une formule agit sur le contenu d'une cellule pas sur son format.

A mon humble avis, seul du VBA pourrait le faire.

Cliquez pour agrandir...

Franc58 à dit:

Salut, en vba ça pourrait se faire comme ceci:

VB:

Sub CopierMiseEnForme()
    Dim wsSource As Worksheet
    Dim wsDestination As Worksheet
    Dim rngSource As Range
    Dim rngDestination As Range

    ' Définir la feuille source et la feuille de destination
    Set wsSource = ThisWorkbook.Sheets("Feuil1")
    Set wsDestination = ThisWorkbook.Sheets("Feuil2")

    ' Définir la plage source et la plage de destination
    Set rngSource = wsSource.Range("A2:F20")
    Set rngDestination = wsDestination.Range("A2:F20")

    ' Copier la mise en forme
    rngSource.Copy
    rngDestination.PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
End Sub

Cliquez pour agrandir...