XL 2013 Incompréhension sur macro

débutantplus · 29 Avril 2022

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

Bernard_XLD · 29 Avril 2022

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, @+

Bernard_XLD · 29 Avril 2022

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, @+

débutantplus · 29 Avril 2022

Bonjour Bernard,
Merci pour votre réponse,
Pour corriger ce problème je n'ai qu'à faire ?

lig = .Range("B" & Rows.Count).End(xlUp).Row + 1

Cordialement

débutantplus · 29 Avril 2022

débutantplus à dit:
Bonjour Bernard,
Merci pour votre réponse,
Pour corriger ce problème je n'ai qu'à faire ?

Cordialement

Question inutile ça marche
Merci beaucoup

XL 2013 Incompréhension sur macro

débutantplus

XLDnaute Junior

Pièces jointes

Bernard_XLD

Bernard_XLD

XLDnaute Barbatruc

débutantplus

XLDnaute Junior

débutantplus

XLDnaute Junior

Discussions similaires