Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

cd92600

XLDnaute Nouveau
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 "
 

Franc58

XLDnaute Occasionnel
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
 

cd92600

XLDnaute Nouveau
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…