Copier/coller fonction array

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 26 Novembre 2015

• #2

Re : Copier/coller fonction array

Bonjour,

Code:

Sub transf()
 Sheets(1).Range("_FilterDataBase").SpecialCells(xlCellTypeVisible).Copy Sheets(2).[a1]
 Set Rng = Sheets(2).[a1].CurrentRegion
 Sheets(2).[a1].Resize(Rng.Rows.Count, 4) = Application.Index(Rng, Evaluate("Row(1:" & Rng.Rows.Count & ")"), Array(2, 4, 3, 1))
End Sub

JB

 

Pièces jointes

• CopierColler.xls

  37 KB · Affichages: 43
• CopierColler.xls

  37 KB · Affichages: 42

Dernière édition: 26 Novembre 2015

Vote positif 0 Vote négatif

M

Mutafukaz

Guest

• 26 Novembre 2015

• #3

Re : Copier/coller fonction array

Merci JB c'est exactement ce que je voulais. Je suis impressionné par la rapidité de la réponse. J'étais en train de mouliner de mon côté pour taper un bout de code.

Le tien est super clean.

Encore merci c'est cool.

Julien.

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 26 Novembre 2015

• #4

Re : Copier/coller fonction array

Bonjour,

grace à un code de JOB75 (que je salue s'il passe ici) 🙂

P.

 

Pièces jointes

• CopierColler.xlsm

  19.1 KB · Affichages: 37
• CopierColler.xlsm

  19.1 KB · Affichages: 34

Vote positif 0 Vote négatif

M

Mutafukaz

Guest

• 26 Novembre 2015

• #5

Re : Copier/coller fonction array

La version de JB permet de conserver les filtres par contre comment faire si je ne veux copier/coller que les colonnes jaune et bleu ?

Le code de JB fait un copier de toutes les colonnes ayant un filtre mais je n'ai besoin que de certaines des colonnes filtrées.

Julien.

 

Dernière modification par un modérateur: 26 Novembre 2015

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 26 Novembre 2015

• #6

Re : Copier/coller fonction array

re,

je passe parfois 2 à 4h sur un code pour moi ou pour d'autres et je cherche, et je cherche,et je cherche,et je cherche,et je cherche,et je cherche,et je cherche,et je cherche,et je cherche,et je cherche,et je cherche,et je cherche,et je cherche,et je cherche,et je cherche sans même trouver (souvent) alors je vais voir sur google et et je cherche,et je cherche,et je cherche,et je cherche,et je cherche,et je cherche...

Je ne peux que te conseiller d'en faire autant et de faire des tests sur un fichier destiné à ça;
Ceci dans le seul but d'apprendre , ni voit aucune animosité , ou méchanceté...
Maintenant si les 4 colonnes arrivent, bin... à défaut de mieux, efface celles qui ne te conviennent pas 🙂

P.

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 26 Novembre 2015

• #7

Re : Copier/coller fonction array

Sheets(1).Range("_FilterDataBase").Columns(2).SpecialCells(xlCellTypeVisible).Copy Sheets(2).[a1]
Sheets(1).Range("_FilterDataBase").Columns(4).SpecialCells(xlCellTypeVisible).Copy Sheets(2).[b1]

jb

 

Pièces jointes

• CopierColler.xls

  44.5 KB · Affichages: 37
• CopierColler.xls

  44.5 KB · Affichages: 44

Dernière édition: 26 Novembre 2015

Vote positif 0 Vote négatif

M

Mutafukaz

Guest

• 13 Décembre 2015

• #8

Re : Copier/coller fonction array

Merci à vous deux.

Effectivement je comprends bien que ce n'est qu'en forgeant qu'on devient forgeron mais des fois tu es dans l'urgence. Et puis j'essaye de comprendre, et d'adapter à mes besoins et aussi de construire des parties de ce que je veux faire de mon côté.

Julien.

 

Vote positif 0 Vote négatif