XL 2016 Erreur 438, incompréhension totale

S[1]t'Yor · 29 Novembre 2022

Bonjours à tous et à toutes

Dans mon programme VBA de l'excel en PJ, tout marche a peu prés comme je veux, cependant a la ligne 70 dans l'objet ThisWorkbook j'obtiens une erreur 438. je ne comprend pas a quoi elle est due. Si quelqu'un peut jeter un petit coup d’œil et m'aiguiller sur le pourquoi du comment avec une piste si possible.

Merci d'avance

S[1]t'Yor

sylvanu · 29 Novembre 2022

Bonjour,
Sans tout éplucher, juste une piste :
AdressDelivery vaut 13 ( G13 )
FinDonnees vaut -9 car Cells(Rows.Count, 1).End(xlUp).Row vaut 4 ( seuls A1:A4 sont renseignés )
Donc vous avez déjà un souci en ligne 68 :

VB:

For k = 1 To FinDonnees

car cela fait For k = 1 To -9

AtTheOne · 29 Novembre 2022

Bonjour à toutes & à tous, bonjour @S[1]t'Yor

Et si tu joignais ton fichier et que tu précisais la ligne où ce produit le bug ?

Amicalement
Alain

S[1]t'Yor · 29 Novembre 2022

Bonjour Alain

J'avais joint le fichier mais le revoici. C'est a la ligne 70

CDT

S[1]t'Yor

sylvanu · 29 Novembre 2022

Bonjour,
Sans tout éplucher, juste une piste :
AdressDelivery vaut 13 ( G13 )
FinDonnees vaut -9 car Cells(Rows.Count, 1).End(xlUp).Row vaut 4 ( seuls A1:A4 sont renseignés )
Donc vous avez déjà un souci en ligne 68 :

VB:

For k = 1 To FinDonnees

car cela fait For k = 1 To -9

XL 2016 Erreur 438, incompréhension totale

S[1]t'Yor

XLDnaute Junior

sylvanu

AtTheOne

XLDnaute Accro

S[1]t'Yor

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

Discussions similaires