Discussion :

[VBBBA]

bonjour à vous


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

Code :

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

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

[VBBBA]

Code :

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

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 ?

[ilcocodrillo]

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

[ilcocodrillo]

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

Code :

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

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

[cboncbon]

En une ligne tant qu'à faire...

Code :

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

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

[ouskel'n'or]

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 :

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

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 :

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

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

A toutes fins utiles