code de copie

drul

Obscur pro du hardware
Staff
Vous jouez sans moi, c'est pas sympa !
C'est quoi tout ces i et j !!!

Code:
Sub Macro1() ' Nom de la macro, mets ce que tu veux.
  
Dim aRow As Range
Dim dest As Range
Dim src As Range

Set dest = [L4]
Set src = [A4:A1012]

For Each aRow In src.Rows
 If aRow.Row Mod 2 = 0 Then
    aRow.Range(Range("B1"), Range("J1")).Copy dest
    Set dest = dest.Offset(1, 0)
 End If
Next
End Sub

Of course on peut utiliser le end(xlup) pour déterminer la fin de la plage source.

Rem.
Ce code est horriblement lent, excel étant complétement nul pour la lecture et l'écriture dans une Cellule, ici on en fait un nombre énorme et par conséquant ça prend des plombes.
Sol 1) peu efficace et attroce, utiliser screenupdating = false/ture
Sol 2) On copie dans un tableau, on copis une ligne sur 2 de ce tableau dans un autre tableau, on copie le tableau dans la range de destination ! (attention faut utiliser Application.transpose)
 

svoglimacci

check memory failed but no bug detected
Vous jouez sans moi, c'est pas sympa !
C'est quoi tout ces i et j !!!

Code:
Sub Macro1() ' Nom de la macro, mets ce que tu veux.
 
Dim aRow As Range
Dim dest As Range
Dim src As Range

Set dest = [L4]
Set src = [A4:A1012]

For Each aRow In src.Rows
If aRow.Row Mod 2 = 0 Then
    aRow.Range(Range("B1"), Range("J1")).Copy dest
    Set dest = dest.Offset(1, 0)
End If
Next
End Sub

Of course on peut utiliser le end(xlup) pour déterminer la fin de la plage source.

Rem.
Ce code est horriblement lent, excel étant complétement nul pour la lecture et l'écriture dans une Cellule, ici on en fait un nombre énorme et par conséquant ça prend des plombes.
Sol 1) peu efficace et attroce, utiliser screenupdating = false/ture
Sol 2) On copie dans un tableau, on copis une ligne sur 2 de ce tableau dans un autre tableau, on copie le tableau dans la range de destination ! (attention faut utiliser Application.transpose)
Vu sous cet angle ... :merci:
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 056
Membres
1 586 283
Dernier membre
BouhLette_
Partager cette page
Haut