Bonjour,
J'ai un petit problème dans une boucle.
Je veux copier plusieurs lignes et les coller sur une autre feuille, le soucis est qu'avec ma boucle in me colle la dernière valeur sur toutes les lignes, et je ne vois pas quoi modifier sur la macro.
Je vous mets un fichier en pièce jointe.
partie de la macro à voir:
For k = j + 1 To j + nb
Sheets("Feuil1").Rows(k).EntireRow.Insert 'inserer une ligne vide aprés la dernière ligne avec format dd/mm/yyyy
For i = 2 To DernLigne
Sheets("Feuil1").Range("A" & k) = Sheets("Feuil3").Range("A" & i)
Next i
Next
J'ai un petit problème dans une boucle.
Je veux copier plusieurs lignes et les coller sur une autre feuille, le soucis est qu'avec ma boucle in me colle la dernière valeur sur toutes les lignes, et je ne vois pas quoi modifier sur la macro.
Je vous mets un fichier en pièce jointe.
partie de la macro à voir:
For k = j + 1 To j + nb
Sheets("Feuil1").Rows(k).EntireRow.Insert 'inserer une ligne vide aprés la dernière ligne avec format dd/mm/yyyy
For i = 2 To DernLigne
Sheets("Feuil1").Range("A" & k) = Sheets("Feuil3").Range("A" & i)
Next i
Next
Dernière édition: