Copie ligne vers autre onglet

[ryadus]

Bonjour à tous;

Comment je pourrias faire dasn une macro pour copier une ligne et la coller dans un autre onglet et à emplacement incrementer? c'est je fais une boucle qui copie une ligne dans un onglet et qui la colle dans un autre onglet en dessous de la ligne copier avant et ainsi de suite....

Merci

 

[ERIC S]

Re : Copie ligne vers autre onglet

Bonjour

un exemple

'exemple qui copie les lignes impaires de feuil1 et les ajoute aux données feuil2
'détermination des lignes utiles"
derligne1 = Sheets("feuil1").Range("A65536").End(xlUp).Row
derligne2 = Sheets("feuil2").Range("A65536").End(xlUp).Row
'copie des lignes et ajoute
For i = 1 To derligne1 Step 2
Sheets("feuil1").Rows(i & ":" & i).Copy
derligne2 = derligne2 + 1
Sheets("Feuil2").Cells(derligne2, 1).Select
ActiveSheet.Paste
Next

 

[ryadus]

Re : Copie ligne vers autre onglet

Bonjour;
Cette macro est interessante mais sa bug au niveau de cette ligne:

Sheets("Feuil2").Cells(derligne2, 1).Select

je n'arrive pas à trouver pourquoi

 

[nat54]

Re : Copie ligne vers autre onglet

une fois Feuil2 comme ca avec majuscule,
une autre feuil2 sans majuscule

?!

 

[ryadus]

Re : Copie ligne vers autre onglet

Heu, non ce n'est pas, car majuscule ou minuscule c'est kifkif, essayes, tu verras

 

[nat54]

Re : Copie ligne vers autre onglet

Ah bon... il me semblait que la casse était importante..

 

[ERIC S]

Re : Copie ligne vers autre onglet

re

essaie

Sheets("feuil2").Select
Sheets("feuil2").Cells(derligne2, 1).Select

je continue de regarder

 

[ryadus]

Re : Copie ligne vers autre onglet

Sa a l'air de marcher

Merci

 

[ERIC S]

Re : Copie ligne vers autre onglet

re

plus propre (pas de select) et cela doit fonctionner aussi

'exemple qui copie les lignes impaires de feuil1 et les ajoute aux données feuil2
'détermination des lignes utiles"
derligne1 = Sheets("feuil1").Range("A65536").End(xlUp).Row
derligne2 = Sheets("feuil2").Range("A65536").End(xlUp).Row
'copie des lignes et ajoute
For i = 1 To derligne1 Step 2
Sheets("feuil1").Rows(i & ":" & i).Copy
derligne2 = derligne2 + 1
ActiveSheet.Paste Destination:=Sheets("feuil2").Cells(derligne2, 1)
Next

 

[ryadus]

Re : Copie ligne vers autre onglet

YES sa marche aussi et plus clean