Discussion :

[bosk1000]

bonjour a tous

j'ai un code que j'essaie d'améliorer mais qui plante

à l'origine j'ai ceci qui fonctionne très bien

Code :

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

1
2
3
4
5
6
7
8
 
Windows("COMMANDE.xls").Activate
    Range("b2:b100").Select
    Selection.Copy
    Windows("LISTE.xls").Activate
    Range("b65536").End(xlUp).Select ' pour allez a la dernière ligne de la colone b
    ActiveCell.Offset(1, 0).Select 'decale d'une colone
    ActiveSheet.Paste

j'ai essayé de l'optimisé, mais ça plante

Code :

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

1
2
 
Windows("COMMANDE.xls").Sheets("prepafact").Range("b2:b100").Copy Windows("LISTE.xls").Range("b65536").End(xlUp).Offset(1, 0) 'decale d'une colone

d'ailleur tant qu'a l'améliorer comment modifier le "b2:b10" en b2 jusqu'a la dernière cellule non vide ?

[Pierrot93]

Bonjour Bosk1000

Il me semble qu'il manque le nom de la feuille dans la plage de destination...

Bonne journée
@+

[bosk1000]

comme il n'y a qu'une seul feuille, j'ai pas jugé utile de la spécifié

[laetitia]

bonjour bosk,pierrot le forum comme cela non ??

Code :

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

1
2
Workbooks("COMMANDE.xls").Sheets("prepafact").Range("b2:b" & Range("b65536").End(xlUp).Row).Copy _
Destination:=Workbooks("LISTE.xls").Sheets(1).Range("b65536").End(xlUp)(2)

PS SUPPOSE LES 2 CLASSEURS OUVERTS.

[bosk1000]

super
ça fonctionne impec
merci