COLLER à la derniere ligne vide

[jean paul]

Bonsoir à tous

Dans l'extrait du classeur suivant je veux archiver les donnees de la feuil1 dans une basse de donnees Feuil2
je n'arrive pas à coller les valeurs a la derniere ligne vide ,il y a toujours de lignes vides entre chaque archivage,on dirait qu'il ya des donnees fantomes

j'utilise ce code pour trouver la derniere ligne vide

Ligne = ActiveSheet.Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

merci pour vos reponses

 

[Raja]

Re : COLLER à la derniere ligne vide

Bonjour,

Parce que ta sélection de copie est de 20 lignes en hauteur chaque fois.

cf code :

Range("A1:E20").Select

 

[excalibur]

Re : COLLER à la derniere ligne vide

bonjour jean paul raja le forum une macro simple a adapter

Sub Macro3()
Application.ScreenUpdating = False
Sheets(1).Activate: Range("a1:e" & Range("a65536").End(xlUp).Row).Copy Destination:=Sheets(2).Range("A65536").End(xlUp)(2)
Sheets(2).Activate: [a1].Select
End Sub

 

[Guest]

Re : COLLER à la derniere ligne vide

bonsoir Jean Paul

Raja a effectivement raison et de plus dans ta macro tu rajoute sur feuil1 des formules en colonne A qui bien quelles ne retournent aucune valeurs, remplissent les cellules. (Tes données fantômes)

j'ai tranformé la macro ainsi, elle fonctionne mais avant de la lancer assure toi que dans la feuille 1, il n'y ait aucune formule en colonne A qui ne renvoie rien mais qui les occupent

 Sub Macro3()
    Dim Dest As Range
    Dim ligne As Long
    With Sheets("feuil1")
         ligne = .Range("A65536").End(xlUp).Row
         .Range("A1:E" & ligne).Copy
    End With
    ligne = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1
    
    Set Dest = Sheets("Feuil2").Range("A" & ligne)
    Dest.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

A bientôt

 

[jean paul]

Re : COLLER à la derniere ligne vide

bonsoir à tous et un grand merci de vos reponses
Effectivement je me doutais que les formules n'etaient pas les bienvenues
vos divers codes marchent super à conditions que je virent les formules, donc il faut que je trouve un code qui remplacerait les formules en colonne A

Cordialement
jean paul

 

[jean paul]

Re : COLLER à la derniere ligne vide

re bonsoir
je viens de faire une petite boucle pour remplacer mes formules
ca l'air de marcher
un grand merci pour vos reponses
bonne soirée
jp

 

[jean paul]

Re : COLLER à la derniere ligne vide

voici la boucle


Sub essai()

For i = 1 To 10
If Cells(i, 2).Value > 1 Then Cells(i, 1).Value = Range("a1")
Next i

End Sub