Menu

Mise en forme d'un tableau en vba [Résolu/Fermé]

- - Dernière réponse : eriiic
Messages postés
22729
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
18 mai 2019
- 1 févr. 2010 à 23:43
Bonjour,

mon problème est le suivant :

Dans un classeur excel, je compile sur la feuil5, 4 tableaux sur les feuil1, 2, 3, 4. Ces tableaux peuvent variés en terme de ligne. Pour cela, j'utilise le code suivant :

Dim nbre As Byte, cptr As Byte, derligx As Long, derlig4 As Long
Dim tablo, coul As Byte

nbre = ThisWorkbook.Sheets.Count
Application.ScreenUpdating = False

For cptr = 1 To nbre - 1
With Sheets(cptr)
derligx = .Range("E65536").End(xlUp).Row + 1
tablo = .Range("A1:L" & derligx)
End With

With Sheets(5)
derlig4 = .Range("E65536").End(xlUp).Row
.Cells(derlig4 + 1, 1).Resize(derligx, 12) = tablo

End With

Cela marche, cependant ce code ne garde pas la mise en forme de mes tableaux (contour, couleur de remplissage). Un copier/coller le fait, mais je n'arrive pas avec ce même algorithme à utiliser un copier/coller. Quelles solutions auriez vous?

Merci
Afficher la suite 

1 réponse

Messages postés
22729
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
18 mai 2019
7373
0
Merci
Bonjour,

Dans un forum il est contre-productif de multiplier les posts sans y faire référence...
Voir ici
Je met celui là en résolu...
eric