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

tifial31 · 14 Mars 2024

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 · 14 Mars 2024

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.

Dranreb · 14 Mars 2024

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 · 14 Mars 2024

Dranreb à dit:
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 · 14 Mars 2024

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

VB:

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

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

tifial31

XLDnaute Nouveau

Pièces jointes

Dranreb

Dranreb

XLDnaute Barbatruc

tifial31

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Discussions similaires