Pb de copie en ligne suivante

[Aladin]

Bonjour le forum

J' ai ce bout de code qui met a jour la feuille Mvo, en lui disant si la cellule A2
est different de vide qu' il doit copier les données vers le bas. mais malheuresement, il fait A2 ensuite A3 et ne descende pas et reste bloqué sur la deuxieme ligne.
Merci d' avance pour toute aide

Sheets("Mvo").Select
Range("A1").Select
If Range("A2").Value <> " " Then Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Ret

ActiveCell.Offset(0, 1).Value = Date
ActiveCell.Offset(0, 2).Value = Qte
ActiveCell.Offset(0, 3).Value = Obs

Cordialement

Aladin

 

[Creepy]

Re : Pb de copie en ligne suivante

Bonjour,

La solution :

Dim Fin As Integer
Fin = ActiveSheet.Cells(65536, 1).End(xlUp).Row + 1
'Determine la première cellule non vide en partant de la fin.
'+1 pour avoir la première ligne vide
Cells(Fin, 1).Value = Ret
Cells(Fin, 2).Value = Date
Cells(Fin, 3).Value = Qte
Cells(Fin, 4).Value = Obs

trouver la premièere ligne vide.

Creepy

 

[BERRACHED said]

Re : Pb de copie en ligne suivante

Salut,Aladin

as tu essayé de mettre a la place de select Row

Selection.End(xlDown).row

Cordialement

 

[Aladin]

Re : Pb de copie en ligne suivante

Bonjour BERRACHED said et Creepy

J' ai modifié mon code avec celui donné par Creepy et le test fonctionne correctement je n' ai pas de blocage en incremantation de lignes.
Merci créépy pour ton code et merci à toi BERRACHED said d' avoir répondu aussi à mon post.

Aladin