Discussion :

[bosk1000]

bonjour à tous

voila j'ai un souci j'utilise cette ligne de commande pour copier un ensemble de cellule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sheets("prepafact").Range("b2:b100").Copy Destination:=Sheets("liste").Range("b65536").End(xlUp)(2)

mais en réalité il y a moins d'information et je voudrais au lieu de prendre jusqu'a b100, ne prendre que jusqu'a la dernière ligne


merci pour votre aide

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Sheets("prepafact")
   .Range("B2:B" & .Cells(.Rows.Count, "B").End(xlUp).Row).Copy Sheets("liste").Range("B65536").End(xlUp)(2)
End With

[bosk1000]

parfait
merci