Codage VBA (copier format)?

Nonno48 Messages postés 66 Date d'inscription   Statut Membre Dernière intervention   -  
Nonno48 Messages postés 66 Date d'inscription   Statut Membre Dernière intervention   -
 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

A voir également:

2 réponses

yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 

bonjour,

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

0
Nonno48 Messages postés 66 Date d'inscription   Statut Membre Dernière intervention  
 

Merci yg_be

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

Merci encore et bonne journée

Nonno48

0