Copie ligne vers autre onglet

ERIC S

XLDnaute Barbatruc

• 7 Septembre 2006

• #2

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

 

Vote positif 0 Vote négatif

R

ryadus

Guest

• 7 Septembre 2006

• #3

Re : Copie ligne vers autre onglet

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

ERIC S à dit:

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

Cliquez pour agrandir...

je n'arrive pas à trouver pourquoi 😕

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 7 Septembre 2006

• #4

Re : Copie ligne vers autre onglet

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

?!

 

Vote positif 0 Vote négatif

R

ryadus

Guest

• 7 Septembre 2006

• #5

Re : Copie ligne vers autre onglet

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

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 7 Septembre 2006

• #6

Re : Copie ligne vers autre onglet

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

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 7 Septembre 2006

• #7

Re : Copie ligne vers autre onglet

re

essaie

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

je continue de regarder

 

Vote positif 0 Vote négatif

R

ryadus

Guest

• 7 Septembre 2006

• #8

Re : Copie ligne vers autre onglet

Sa a l'air de marcher 🙂

Merci

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 7 Septembre 2006

• #9

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

 

Vote positif 0 Vote négatif

R

ryadus

Guest

• 7 Septembre 2006

• #10

Re : Copie ligne vers autre onglet

YES sa marche aussi et plus clean 🙂

 

Vote positif 0 Vote négatif