XL 2013 Incompréhension sur macro

débutantplus

XLDnaute Junior
Bonjour à tous et à toutes,
J'ai une macro qui me permet de recopier une ligne d'une feuille à une autre.
Ces lignes se copient au fur et à mesure à la suite d'une précédentes copies.
J'ai plusieurs macro plus ou moins identiques pour réaliser cette tâche.

Le problème est qu'une de ces macros me copie la ligne sur une ancienne ligne déjà copié alors que je voudrais qu'elle se copie à la suite et ce problème n'apparaît que sur une des macros.
Bref incompréhensible pour moi, si quelqu'un a une idée je suis preneur.
Merci pour votre aide
je mets le fichier en pièce jointe

Sub enreg_broyage()
Dim lig As Long, i As Integer
With Sheets("Suivi broyage")
lig = .Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 2 To 9
.Cells(lig, i).Value = Cells(5, i).Value
Next
.Range("J" & lig).Value = Range("C8").Value
.Range("K" & lig).Value = Range("D8").Value
.Range("L" & lig).Value = Range("E8").Value
.Range("M" & lig).Value = Range("F8").Value
.Range("N" & lig).Value = Range("G8").Value
.Range("O" & lig).Value = Range("H8").Value
.Range("P" & lig).Value = Range("I8").Value
End With
Range("C5:F5").ClearContents
Range("H5:I5").ClearContents
Range("D8:G8").ClearContents
Range("I8").ClearContents
End Sub
 

Pièces jointes

  • Classeur2.xlsx
    25.5 KB · Affichages: 7
Solution
Bonjour débutantplus, le forum

quand vous faites
VB:
lig = .Range("A" & Rows.Count).End(xlUp).Row + 1
le programme va chercher la ligne de la cellule après la dernière cellule remplie dans la colonne A comme indiqué, si vos données sont en colonne B, cela ne peut pas fonctionner.

Bien cordialement, @+

Discussions similaires