PB avec Range().select et copy

bonjour à vous


J'ai deux lignes de code qui beuguent et j'arrive pas à trouver le pb

Code:

---

1 2 3 4 5 6 7

Workbooks("aaaa.xls").Worksheets("Data").Activate     Range("A" & Lig).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy

---

Merci pour toute aide

Code:

---

1 2 3 4 5 6 7

Workbooks("aaaa.xls").Worksheets("Data").Range("A" & Lig).Select   Range(Selection, Selection.End(xlToRight)).Select   Selection.Copy

---

ya til une condition d'utiliser le xlToRight ?

j'sui d'sus mais j'ai pas de problème particulier...

je l'ai bidoullé comme ça pour l'adapter chez moi

Code:

---

1 2 3

ThisWorkbook.Sheets("Données").Range("A" & lig).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy

---

En une ligne tant qu'à faire...

Code:

---

ThisWorkbook.Sheets("Données").Range("A" & lig, Range("A" & lig).End(xlToRight)).Copy

---

Citation:

---

Envoyé par cboncbon

En une ligne tant qu'à faire...

ThisWorkbook.Sheets("Données").Range("A" & lig, Range("A" & lig).End(xlToRight)).Copy

---

C'est ok, sauf si le classeur est un autre que celui contenant les macros. Auquel cas mets

Code:

---

1 2	Workbooks("aaaa.xls").Worksheets("Data").Range("A" & lig, _ Range("A" & lig).End(xlToRight)).Copy

---

Evite les select et activate qui alourdissent le code, ralentissent le code et donne des mouvements de feuilles ;)
Enfin, tu sais que tu peux, en une seule ligne, "copier et coller" si tu utilises

Code:

---

1 2	Ton code.Copy Destination:=Workbooks("bbbb.xls").Worksheets("Mixture"). _ Range(LaCelluleEnHautaGaucheDeLaPlage)

---

A toutes fins utiles ;)