XL 2010 Copier coller derniere celulle non vide d'un tableau

[Bulit17]

bonjours a tous,
je viens encore une fois demander votre aide. j'ai écris une formule qui ne fonctionne pas et je n'arrive pas a comprendre pourquoi cela ne fonctionne pas . je souhaiterai copier dans une colonne d'un tableau que les case non vide et les collé sur dans une autre feuille. j'ai déjà écris des formule de ce genre qui fonctionne mais la je plante. Mon tableau commence en A19 et fini en A35 .

Sub copie_inventaire()
'selectionner la plage de reference
ActivesheeRange("A19:A35").End(x1up).Select
Selection.Copy

'coller la selection
Sheets("outillage en production").Range("B:B").End(xlDown).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Modele vierge").Select
End Sub

 

[Lone-wolf]

Bonjour Bulit

Tu veux bien nous fournir un classeur en exemple? Sinon cette ligne est complètement erronée

ActivesheeRange("A19:A35").End(x1up).Select. Cest plutôt Activesheet.Range("A19:A35").Copy

Ensuite après Sub copie_inventaire(), déclare la variable comme ceci

Dim cel As Range

With Sheets("outillage en production")
Set cel = .Range("b" & Rows.Count).End(xlUp)(2)
cel.PasteSpecial xlPasteValues
End With
Application.CutCopyMode = 0
Application.GoTo Activesheet.Range("a18")

Si Sheets("Modele vierge") est la feuille active, pas besoin de la selectionner . Supprime la ligne
Sheets("Modele vierge") .Select