S
sylsyl
Guest
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("A120").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.
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("A120").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.