Microsoft 365 Vba : erreur d'exécution "1004"

[tifial31]

Bonjour à tous,


je cherche à transférer les données du fichier ci-joint vers un autre fichier Excel

j'ai donc fait un code vba mais quand je lance un test, je me retrouve bloqué avec une erreur d'exécution '1004' au niveau suivant :
Dim L As Long
L = Sheets("feuil1").Range("A1048576").End(x1Up).Row
ci-joint le fichier.
je sais que mon code n'est pas fini mais je voudrais déjà pouvoir débloquer ce bug.
Par avance merci de votre aide

 

[Dranreb]

Bonjour.
Je vois un "1" au lieu d'un "L". Il faut xlUp pas x1Up.
Si vous aviez mis Option Explicit en tête du module il vous l'aurait signalé avant de tenter une exécution.

 

[tifial31]

Bonjour.
Je vois un "1" au lieu d'un "L". Il faut xlUp pas x1Up.
Si vous aviez mis Option Explicit en tête du module il vous l'aurait signalé avant de tenter une exécution.

Salut Dranreb,

un grand merci à toi, j'aurais continuer à chercher longtemps car je suis passé devant cette erreur un nombre de fois incalculable

 

[sylvanu]

Bonjour Tifial, Dranreb,
Un peu à labour ...
Vicieux à trouver.
Dans End(x1Up) c'est un L minuscule à utiliser et non un 1. Idem pour L2.

L = Sheets("feuil1").Range("A1048576").End(xlUp).Row
et non
L = Sheets("feuil1").Range("A1048576").End(x1Up).Row