Tableau - macro insertion de ligne

Dans le dossier source, j'ai besoin de récupérer seulement les valeurs contenues dans les colonnes C D E F G H. Et je souhaite que ces valeurs apparaissent à partir de la colonne AT dans le dossier cible, juste avant la ligne "monep" (située ligne 82).

J'avais pensé à écrire ce type de macro dans chacun des classeurs cibles:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub rapatriementv3() Dim i As Integer, ligne As Long Application.Workbooks.Open ("\\MCA-SERVEUR\OPCVM\XAVIER\Tests\posfdsmca.xls")   i = 2 Do While Cells(i, 2) <> "" Range("C & i : H & i").Select Selection.Copy If Cells(i, 2).Value = "'arthur croissance" Then ActiveWorkbook.Close True With Worksheets("pointagevalo") ligne = .[A:A].Find("monep", , xlValues, xlWhole).Row .Rows(ligne).Insert .Range("AT & ligne : AX & ligne").Select ActiveSheet.Paste End With Else i = i + 1 End If Loop End Sub

---

Qu'en penses-tu?

Bonjour,

A lire le code, ça a l'air correct. Est-ce que tu l'as testé ? Cependant, ça n'a l'air de fonctionner qu'avec le nom "arthur croisssance".

Ca bloque ici:

Code:

---

Range("C & i : H & i").Select

---

Ensuite ça ne marchera effectivement que pour le dossier "arthur croissance", mais c'est le but puisque je mettrai cette macro dans chacun des dossiers cibles en changeant "arthur croissance" par "sicav elise" "mca france" "gpp"etc.

Mets :

Code:

---

1 2	Range("C" & i & ":H" & i).Select Selection.Copy

---

Tu peux mettre, pour éviter les "Select" :

Code:

---

Range("C" & i & ":H" & i).Copy

---

Merci ça marche enfin !
Maintenant dernière chose je souhaite coller la plage que j'ai copié mais dans un ordre bien spécifique.
En gros l'idéal serait de copier dans l'ordre les valeurs des colonnes D E F G C H et de coller la page ainsi obtenue. Mais je ne connais pas la syntaxe!

Pas de miracle, il faut faire 3 copier coller :
1. copier D:G et coller
2. copier C et coller
3. copier H et coller

Zut ça me bloque totalement puisque dans ma macro je copie la plage, ferme le classeur, insers une ligne et colle.
La il faudrait copier une cellule, fermer le classeur, inserer une ligne coller, puis réouvrir recopier, fermer, insérer dans la ligne déjà créée ...
N'y a t-il pas plus simple? Genre les copier dans un tableau stocké sous vba et ensuite copier le tableau dans la ligne insérée?

Tu peux copier les valeurs dans des variables avant de fermer le fichier, ou fermer le fichier après avoir fait les copier coller.

C'est bon voilà on y est arrivé, merci bcp Daniel !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub rapatriementv4() Dim i As Integer, ligne As Long Application.Workbooks.Open("\\MCASERVEUR\OPCVM\XAVIER\Tests\posfdsmca.xls") i = 2 Do While Cells(i, 2) <> "" Range("C" & i & ": H" & i).Copy If Cells(i, 2).Value = "SICAV ELISE" Then ActiveWorkbook.Close True With Worksheets("pointageValo") ligne = .[A:A].Find("monep", , xlValues, xlWhole).Row .Rows(ligne).Insert .Range("A" & ligne & ": F" & ligne).Select ActiveSheet.Paste .Range("F" & ligne).Cut .Range("J" & ligne).Select .Paste   End With Else End If i = i + 1 Application.Workbooks.Open ("\\MCA-SERVEUR\OPCVM\XAVIER\Tests\posfdsmca.xls") Loop End Sub

---