Bulit17
XLDnaute Nouveau
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
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