Copier des cellules d'une ligne dans une autre feuille

bonjour

la macro suivante me sert à copier les valeurs de cellule d'une ligne sur une autre ligne d'une même feuille.

je souhaite appliquer cette macro dans une feuil2 du même classeur mais je n'arrive pas à l'intégrer la feuille2 à ma macro.

je joints un fichier ou j'ai copié dans la feuille 2 les infos que je souhaite.

merci de votre aide

cordialement

philippe87

Sub macro()

Sheets("feuil1").Select

'déclaration de la variable : ligne

Dim ligne As String, ligne1 As String

ligne = 2

ligne1 = 5

Do While Cells(ligne, 1).Value <> ""

Cells(ligne1, 10).Value = Cells(ligne, 1).Value

Cells(ligne1, 11).Value = Cells(ligne, 3).Value

Cells(ligne1, 12).Value = Cells(ligne, 4).Value

Cells(ligne1, 13).Value = Cells(ligne, 5).Value

ligne = ligne + 1

ligne1 = ligne1 + 1

'et on répéte la condition 1 (loop)

Loop

End Sub

Bonjour

Pas trop compris la question

A vérifier si c'est ce que tu veux

Sub macro()

Sheets("feuil1").Select
'déclaration de la variable : ligne
Dim ligne As Long, ligne1 As Long

ligne = 2
ligne1 = 5

Do While Cells(ligne, 1).Value <> ""

Cells(ligne1, 10).Value = Cells(ligne, 1).Value
Cells(ligne1, 11).Value = Cells(ligne, 3).Value
Cells(ligne1, 12).Value = Cells(ligne, 4).Value
Cells(ligne1, 13).Value = Cells(ligne, 5).Value
Sheets("Feuil2").Cells(ligne1, 10).Value = Cells(ligne, 1).Value
Sheets("Feuil2").Cells(ligne1, 11).Value = Cells(ligne, 3).Value
Sheets("Feuil2").Cells(ligne1, 12).Value = Cells(ligne, 4).Value
Sheets("Feuil2").Cells(ligne1, 13).Value = Cells(ligne, 5).Value

ligne = ligne + 1
ligne1 = ligne1 + 1

'et on répéte la condition 1 (loop)
Loop

End Sub

merci Banzai64

c'est ok pour moi

Bonjour Banzai64

comme ça marche pour une autre feuille, j'ai encore une question pour toi .

Je souhaiterai copier certaines infos dans la feuil2 d'un autre classeur ( joueur87.xls) en appliquant cette macro.

merci d'avance pour ton aide

cordialement

philippe87

Bonjour

Tu joins les fichiers correspondants

Tu indiques clairement ce que tu veux copier et où le copier

Bonjour,

ci joint les fichiers pour exemple:

j'ai un fichier "extration.xlsm" ou j'ai une feuille "base donnée" ( pour l'exemple j'ai renseigné 5 collonnes ) autrement il va jusqu'a la colonne Ad et 27000 lignes .

j'ai un autre fichier pour l'exemple " classeur3.xlsm" dans ce classeur je souhaite reporter certaines informtions.

Peut on le faire avec cette macro

cordialement

philippe

Bonjour

A ta question

philippe87 a écrit :

Peut on le faire avec cette macro

la réponse est non

ok pour ta réponse

merci