Codage VBA (copier format)?

Fermé
Nonno48 Messages postés 66 Date d'inscription samedi 28 décembre 2019 Statut Membre Dernière intervention 21 décembre 2023 - Modifié le 22 août 2023 à 20:29
Nonno48 Messages postés 66 Date d'inscription samedi 28 décembre 2019 Statut Membre Dernière intervention 21 décembre 2023 - 23 août 2023 à 11:09
 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 23471 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 février 2025 Ambassadeur 1 568
Modifié le 23 août 2023 à 10:26

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 samedi 28 décembre 2019 Statut Membre Dernière intervention 21 décembre 2023
23 août 2023 à 11:09

Merci yg_be

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

Merci encore et bonne journée

Nonno48

0