Discussion :

[Masmeta]

Bonjour,

J'étais entrain de tester ma gestion d'erreur lorsque je me suis aperçu qu'il y a des erreurs récurantes sur une partie de code.

Voici le bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
    ThisWorkbook.Activate
    ActiveWorkbook.Sheets("LISTE").Activate
    Range("A10").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = xlCopy
    Selection.Copy
 
 
    Workbooks("Fichier2.xls").Activate
    ActiveWorkbook.Sheets("LISTE").Activate
    Range("A10").Select
    ActiveWorkbook.ActiveSheet.Paste
    Application.CutCopyMode = False

Le principe si j'ai bien compris est de copier les cellules de la feuille LISTE du fichier 1 vers la feuille LISTE du fichier 2

En faisant du pas à pas, soit l'application EXCEL reste bloqué et je suis obligé de la tuer soit j'ai ses messages là :

Erreur n°1004 Description: La méthode 'Range' de l'objet '_Global' a échoué

Erreur n°1004 Description: Erreur définie par l'application ou par l'objet

Erreur n°1004 Description: La méthode Paste de la classe Worksheet a échoué.

Erreur n°9 Description: L'indice n'appartient pas à la sélection.

D'abord j'aimerais savoir si ce code ci est juste, car il fonctionnait avant ma gestion d'erreur?
Si non, pouvez vous m'indiqué une solution?

Cordialement

[zebulon2212]

Je ne vois pas d'erreurs dans le code à première vue
Essaye en mode pas à pas et dis nous où ca plante

[Masmeta]

En mode pas à pas, le pc reste bloqué sur :

Code :

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

ActiveWorkbook.ActiveSheet.Paste

Sachant que la plage de cellule à coller est très grande, cela ne provoquerai pas une erreur?

[tirex28]

Bonjour,

Une alternative a essayer:

Code :

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

1
2
3
4
5
6
7
Dim Source As Range, Destination As Range
 
Set Source = ThisWorkbook.Sheets("Liste").Range("A10").CurrentRegion
 
Set Destination = Workbooks("Fichier2.xls").Sheets("LISTE").Range("A10")
 
Destination.Resize(Source.Rows, Source.Columns).Value = Source.Value

Cordialement,

Tirex28/

[Masmeta]

Il met une erreur : Erreur n°1004 Description: Erreur définie par l'application ou par l'objet

Code :

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

1
2
 
Destination.Resize(Source.Rows, Source.Columns).Value = Source.Value

Je suis entrain de rechercher une sélection dynamique des cellules, vous savez comment faire?

[tirex28]

Re,

Désolé j'ai oublié un morceau:

Code :

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

Destination.Resize(Source.Rows.Count, Source.Columns.Count).Value = Source.Value

Cordialement,

Tirex28/

[Masmeta]

Je te remercie, cela marche bien.
J'ai plus quelques détails à peaufiner.