recopie mais que la nouvel,ligne

[Denj]

bonjour a tous
J'ai de petits soucis avec la macro si-dessous, si quelqu'un a une idée(s)
je souhaite faire une copie que de la derniere ligne entrée dans la feuil (liste)
pour info:
avec plusieurs userform je renseigne la feuil(liste) ensuite par la macro si-dessous je renseigne la feuil3 ou 4 suivant si les reservation sont avent 14 heures ou aprés, voila

d'avance merci



Sub copie()

Dim valeur As Range
Dim valeur2 As Range
Dim ligne As Integer

ligne = Sheets("liste").Cells(65536, 45).End(xlUp).Row

Set valeur2 = Sheets("liste").Range("as10:as" & ligne)

For Each valeur In valeur2
a = Left(valeur.Value, 2)
If a = "" Then
ElseIf a <= 14 Then
Rows(valeur.Row).Select
Selection.Copy
Sheets("feuil3").Select
Cells(65536, 1).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Columns.AutoFit
Range("a9").Select
ElseIf a > 14 Then
Rows(valeur.Row).Select
Selection.Copy
Sheets("feuil4").Select
Cells(65536, 1).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Columns.AutoFit
Range("a9").Select
End If
Sheets("liste").Select
Next
Range("a9").Select
Application.CutCopyMode = False
End Sub

 

[Valérie]

salut Denj

Pas très sure de t'avoir suivie mais on s'y tente :

Sub copie()

Dim valeur As Range
Dim ligne As Integer

ligne = Sheets("liste").Cells(65536, 45).End(xlUp).Row
Set valeur = Sheets("liste").Range("as" & ligne)

If Left(valeur.Value, 2)<>"" Then
If Cint(Left(valeur.Value, 2)) <= 14 then FEUILLE = "feuil3"
If Cint(Left(valeur.Value, 2)) > 14 then FEUILLE = "feuil4

Rows(valeur.Row).Select
Selection.Copy
Sheets(FEUILLE).Select
Cells(65536, 1).End(xlUp).Offset(1, 0).PasteSpecial
Columns.AutoFit
End If

Sheets("liste").Select
Application.CutCopyMode = False
End Sub

@ bientôt
Valérie

 

[Denj]

bonjour à tous

Merci Valerie

super ça marche bien, le seul prob,des que je change de date il m'efface tous sur la feuil3 et 4.

Là je tourne et retourne dans tous les sens, ça ne marche pas.

y a t-il une soluce? svp.

@ +
Denj