Codage VBA (copier format)?

Nonno48 Messages postés 67 Statut Membre -  
Nonno48 Messages postés 67 Statut Membre - 
 With Range("Tableau8").ListObject  'ce tableau
               .ListRows.Add(1).Range.Resize(, 17).Value = Application.Transpose(Sheets("Formulaire").Range("B4:B20").Value)
               
          End With

Bonjour le Forum

Ce codage fonctionne très bien, sauf l qu'il recopie les valeurs je souhaiterais qu'il copie aussi les formats.

Quelle modif à apporter à ce code?

Merci d'avance

Nonno48

2 réponses

  1.
    yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     

    bonjour,

    Une des façons de faire, c'est de passer par le presse-papier, et d'utiliser PasteSpecial.

    0
  2. Nonno48 Messages postés 67 Statut Membre
     

    Merci yg_be

    Ho! là, un peu compliqué pour Moi.

    Merci encore et bonne journée

    Nonno48

    0