XL 2019 VBA recopie par resize en gardant la mise en forme.

[rounil09]

Bonjour,

Le code suivant me permet de copier une plage de cellules de la feuille ‘PARAM’ à la dernière ligne de la feuille ‘BD_CE’ (à compter de la colonne B) » mais il ne conserve pas la mise en forme des cellules.

Code : Sheets("BD_DE").Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Resize(1, 12) = Sheets("PARAM").Range("B4:M4").Value

Est-il possible de l’adapter pour conserver la mise en forme ?

Malgré mes essais je n’arrive pas à réaliser la manip. Merci par avance de votre aide

 

[laurent3372]

Sheets("PARAM").Range("B4:M4").Copy Destination:=Sheets("BD_DE").Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Resize(1, 12)

 

[rounil09]

Merci Laurent, mais ça ne fonctionne pas.
En fait ta macro garde la mise en forme mais ne copie pas les bonnes données.
A savoir que ma feuille 'PARAM' récupère des données d'une autre feuille 'FORM' par =, ce qui semble poser problème.
En fait ta macro me donne des données (et les formules que je lis dans la barre des formules : exemple = 'FORM B8!') renvoyant sur cette feuille.
J'essaye de comprendre, mais vu mon piètre niveau....

 

[Jacky67]

Est-il possible de l’adapter pour conserver la mise en forme ?

Malgré mes essais je n’arrive pas à réaliser la manip. Merci par avance de votre aide

Bonjour,
Essaye comme ceci

Sheets("PARAM").Range("B4:M4").Copy
Sheets("BD_DE").Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats

Ou s'il y a couleurs, bordures, etc....

    Sheets("PARAM").Range("B4:M4").Copy
    With Sheets("BD_DE").Range("B" & Rows.Count).End(xlUp).Offset(1)
        .PasteSpecial Paste:=xlPasteValues
        .PasteSpecial Paste:=xlPasteFormats
    End With

 

[rounil09]

Problème réglé
Merci à vous deux et bonne journée

 

[Jacky67]

Problème réglé
Merci à vous deux et bonne journée

Re..
C'est rédhibitoire comme réponse
"réglé" oui, mais comment?