copie colonne / mis en page

[sylsyl]

Salut tout le monde,

je surfais au gres des marees sur le site de Longre quand j'ai decouvert qu'il etait beaucoup plus rapide de copier une colonne dans un "Array" (tableau VB) type Variant puis de copier cet "Array" sur la nouvelle feuille que de faire ca cellule par cellule.
Tout ceci afin, vous l'aurez compris, de copier/coller les valeurs d'une colonne dans une autre (dans des classeurs differents).

Ni une ni deux, j'applique cette methode mais malheureusement je perd la mise en page des lignes qui etait anciennement dans ma boucle.

Y a t'il une methode equivalente pour copier/coller la couleur de la cellule ?

genre tabl=Range("A1😀20").interior.colorindex (evidemment j'ai deja essayer ca)

et tant que j'y suis, n'y a t'il pas un truc pour ameliorer ca (a part mettre = 0 to 48, lol):

For U = 2 To 50
Range(Cells(8 + U, 2), Cells(8 + U, 5)).Merge
Next U

Merci beaucoup.

A++, Sylsyl.

 

[michel]

bonjour sylsyl

ci joint un exemple de tableau qui recupère le code de couleur
j'ai créé deux colonnes dans le tableau :
1 colonne pour les valeurs
1 colonne pour recuperer le code de couleur de chaque cellule


Je ne suis pas spécialiste de ce genre de tableaux . il existe sans doute des méthodes plus judicieuses

Dans le fichier , les dimensions du tableau sont prédéfinies mais il existe de nombreuses possibilités , nottament en redimensionnant le tableau en cours de procédure ( après avoir compter les nombre de lignes et colonnes nécéssaires ...etc...)

bon apres midi
Michel

 

[sylsyl]

Merci Michel,
je vais y jeter un oeil.

Bon WE.

A++, Sylsyl.

 

[sylsyl]

Merci Michel,

c'est deja la methode que j'utilise...

pour ton information, tu n'es pas oblige de faire une boucle pour recuperer les valeur d'une plage (decouvert vendredi dernier chez Longre):
Dim tabl
tabl=Range("A1:A5")
a le meme effet que for i=1 to 5
tabl(i-1)=cells(i, 1)
next i
mais en plus rapide (y parait)

je voulais savoir si il y avait la meme simplicite pour les couleurs des cellules.

A++, sylsyl.