code de copie

drul

Obscur pro du hardware
Staff
#23
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
#24
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.
Staff en ligne
  • AccroPC2
    Modérateur
Membres en ligne
  • Marie1909
  • sebngaz
  • longaripa
  • Misterybean
  • AccroPC2
  • SergioVE
Derniers messages publiés
Statistiques globales
Discussions
866 968
Messages
8 074 788
Membres
1 577 565
Dernier membre
Narashi28200
Partager cette page
Haut