erreur "13"

[Gipéhel]

Bonjour,

Quand je lance la recherche, l'erreur 13 apparaît. Je pense que la cause est une mauvaise déclaration de variables mais je n'arrive pas à résoudre le problème. Qui peut m'aider ?
Merci.
Gipéhel.

 

[cathodique]

Bonjour,

Regarde un peu cette ligne de code

   Set Rng = f.Range("H2:T" & f.[A65000].End(xlUp).Row)

Il me semble que ta colonne A est vide, c'est à dire que tu recherches la dernière ligne non vide en colonne A. Or, toutes les lignes de cette colonne sont vides.

edit: Autant pour moi en colonne A, juste A1 non vide, supprime les lignes vides (2, 3 et 4)

 

[Gipéhel]

Bonjour,

Le programme marchait bien jusqu'à ce que je rajoute un nombre important de lignes dans "BD";
La recherche de la dernière ligne s'effectue dans la colonne H.

 

[cathodique]

La recherche de la dernière ligne s'effectue dans la colonne H.

D'après ton code c'est la colonne A, Modifie le lettre dans ta ligne de code et tu verras que ça fonctionne.

 

[Gipéhel]

Set Rng = f.Range("H2:T" & f.[A65000].End(xlUp).Row)
C'est cela que je dois modifier ?

 

[cathodique]

Set Rng = f.Range("H2:T" & f.[A65000].End(xlUp).Row)
C'est cela que je dois modifier ?

Oui, c'est exactement cette ligne qu'il faut modifier, remplace A65000 par H65000.

.[A65000].End(xlUp) ====> signifie que tu vas au bas de la colonne A et tu remontes jusqu'à la première cellule non vide (c-à-d la dernière cellule non vide de la colonne A à partir du haut). Alors que la colonne A est vide.

 

[Gipéhel]

ça marche. Merci. Bonne soirée.