Copier un tableau VBA dans une plage sans changer le format de destination

Bonjour à toutes et tous !

Je cherche, en vain, à copier un tableau vba dans une plage sans modifier le format des cellules de destination.

Mon code, pour la partie consacrée au copiage, est :

Application.EnableEvents = False
     With Feuil5 ' ("Test")
        .Range("A3:d50").Clear
        .Range("a3").Resize(UBound(TblS, 1), UBound(TblS, 2)) = TblS
     End With
Application.EnableEvents = True

Comment dois-opérer ?

Je vous remercie par avance !

Bonjour JFL,

Qu'est-ce qui change ? Certains formats numériques (monétaires, %) ?

A3:D50 n'est pas un tableau structuré ? tblS est de dimensions changeantes ?

On peut toujours redéfinir les formats dans le code en tout cas...

Voici un essai quand même :

Application.EnableEvents = False
     With Feuil5 ' ("Test")
        .Range("A3:d50").Clearcontents
        .Range("a3").Resize(UBound(TblS, 1), UBound(TblS, 2)) = TblS
     End With
Application.EnableEvents = True

Cdlt,

Bonjour 3GB,

Et merci de la réponse !

Qu'est-ce qui change ? Certains formats numériques (monétaires, %) ?

Ce sont des valeurs textes qui doivent, selon le cas être centrées et/ou renvoyées automatiquement à la ligne.

Hélas le format de la plage de destination est immanquablement effacé après la copie !

A3:D50 n'est pas un tableau structuré ?

J'ai déjà testé cette idée. Mais que tableau structuré ou pas, le format est impacté par la copie.

tblS est de dimensions changeantes ?

Absolument !

On peut toujours redéfinir les formats dans le code en tout cas...

Certes... mais je pense qu'il doit exister une commande me permettant de copier uniquement les valeurs de mon tableau (tbls). D'où l'objet de ma demande.

Merci pour toutes ces réponses !

As-tu quand même essayé .Range("A3:d50").Clearcontents

.Range("A3:d50").Clearcontents

Bon sang !!!!

Honte à moi et merci à vous !

Au moins, ça t'évitera d'avoir une dizaine de lignes de code pour bien cadrer tous tes formats !

A plus,

Cdlt,