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

[cd92600]

Bonjour à tous, est ce que quelqu'un saurait faire une formule sous Excel 2013 qui permettrait de copier la mise en forme d'une cellule ?
l'idée serait d'avoir une formule qui reprendrait le contenu des cellules A2: F20 + la mise en forme (couleur, trait etc)
En gros quelle formule puis je faire pour avoir => " = A2:F20 & copie mise en forme cellule A2:F20 "

 

[mapomme]

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.

 

[Franc58]

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

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

 

[cd92600]

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.

Ok je comprends, merci pour votre réponse

 

[cd92600]

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

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

Bonjour Franc58,

je vous remercie beaucoup pour votre aide et pour le temps que vous m'avez consacré. je vais tester votre code.
bonne journée