Erreur de débordement

[evzone]

Bonjour,

J'ai écrit une fonction de base qui devrait me retourner la valeur de la derniere ligne. Pour info voici le bout de code :

While Not Impulstest.Sheets("B73").Range("B" & i & "").Value = ""
    i = i + 1
Wend

Toutefois, excel m'affiche une erreur de débordement. Comme j'ai approximativement 42 000 lignes dans mon fichier, j'aurais voulu savoir s'il y avait un nombre limite à ne pas dépasser. (ou si mon code était faux...)

 

[néné06]

Re : Erreur de débordement

bonjour evzone

Si tu recherches la dernière ligne occupée dans une feuille,utilise plutôt la formule suivante qui t'évitera de tester une à une toutes les lignes ("Perte de temps")

i = Cells.Find("*", , , , , xlPrevious).Row

A+

 

[evzone]

Re : Erreur de débordement

Merci Pour ta reponse Néné. Même avec ton code j'ai une erreur de type 6... Je pense que j'ai donc trop de lignes dans mon fichier... Ca me parait bizarre de ne pas pouvoir retourner cette valeur...

 

[néné06]

Re : Erreur de débordement

Au mini tu peux aller à 65535 lignes et même, environ 1000000 en excel 2007.
Fait nous parvenir une pièce jointe avec le bug pour mieux cerner le problème.

A+

 

[evzone]

Re : Erreur de débordement

Merci néné de ton aide. J'ai fait une erreur de débutant, integer à la place de long. Comme mon compteur allait dans les 42000 ca posait problème. Dsl si je t'ai fait perdre ton temps. Merci de ton aide en tout cas. Bye