Normal c'est le but
Naaaan :Normal c'est le but
[B4:J1012 copier sur L4:T506 ] copie juste des valeur
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
Vu sous cet angle ...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)