Récupérer la valeur d'une cellule en VBA

Salut à tous,

Alors j'essaye de récupérer avec j, un chiffre entier qui est dans la cellule G (par extension la colonne) pour reclasser ensuite mes données par ligne.

Le code parle peut-être plus de lui-même... Ca fait 20 min que je suis sûr cette connerie et je sais pas comment m'en sortir!

Merci d'avance!

Sub repartparc()

For i = 1 To 500
    ActiveWorkbook.Sheets("Feuil3").Cells(i, 1).Select
    Selection.EntireRow.Select
    Selection.Copy

        j = ActiveWorkbook.Sheets(Feuil3).Cells(i, 7).Values

 ActiveWorkbook.Sheets("feuil4").Activate
    ActiveWorkbook.Sheets("feuil4").Cells(j, 1).Select
    ActiveWorkbook.Sheets("feuil4").Paste

    Next i

End Sub

Bonjour,

Je pense qu'un :

Sub repartparc()

For i = 1 To 5
    Worksheets("Feuil3").Activate
    Cells(i, 1).Select
    Selection.EntireRow.Select
    Selection.Copy

        j = Range("G" & i).Value

    ActiveWorkbook.Sheets("feuil4").Activate
    ActiveWorkbook.Sheets("feuil4").Cells(j, 1).Select
    ActiveWorkbook.Sheets("feuil4").Paste

    Next i

End Sub

devrait marcher ?

Cordialement.

Magnifique, merci beaucoup zirak! je débute encore en VBA, il me manque pas mal de vocabulaire!

Et aussi le coup de la feuille activée, j'avais pas pensé à ça!

Bonjour

A tester

Sub repartparc()
  With Sheets("Feuil3")
    For i = 1 To 5
      .Rows(i).Copy Sheets("Feuil4").Rows(.Range("G" & i))
    Next i
  End With
End Sub

Effectivement, ça marche!

Ça a l'air tellement facile comme ça!

Je suis encore un gros newbie du VBA, je crois!

Merci à vous!