depassement de capacité

[Elve]

Bonjour à tous,

J'ai un problème de depassement de capacité pour une recherche verticale de 43640 lignes sur 1712 lignes.

Pour info cela marchait trés bien pour 10000 lignes sur 1712 lignes.

je vous donne mon code:

Dim LaDerniere As Integer 'Declaration de LaDerniere
Dim LaLigne As Integer 'Declaration de la variable LaLigne
Dim AutreDerniere As Integer 'Declaration de la variable AutreDerniere

Sheets("Année").Select 'La feuille 'Année' est selectionnée
Const LaPremiere = 1 'permet de regler la premiere ligne
'à chercher sur 'Année'
LaDerniere = Range("A65536").End(xlUp).Row

'Definition de la derniere ligne a chercher

Sheets("ListeArticle").Select
'La feuille 'ListeArticle' est selectionnée
AutreDerniere = Range("A65536").End(xlUp).Row
'Definition de la derniere ligne a chercher

Sheets("Année").Select 'La feuille 'Feuil1' est selectionnée
For LaLigne = LaPremiere To LaDerniere 'Boucle de copie du calcul
Range("E" & LaLigne).FormulaR1C1 = _
"=VLOOKUP(RC[-2],ListeArticle!R1C1:R" & AutreDerniere & "C3,3,FALSE)"
'Declaration du calcul pour la recherche
'verticale entre les codes articles de la
'feuille 'année' et les codes article
'de la feuille 'ListeArticle',(si l'article
'appartient eu programme la
'recherche retourne 1)
Next LaLigne 'Fin de la boucle



Si quelqu'un a deja eu ce probleme.....
ou si cela n'est pas possible ....
Ma crainte est de devoir passer sous access que je ne connais absolument pas

Voila,

Merci à tous
++
Elve
Ps: mon excel est excel 97 mais je ne sais pas ou trouver les infos si il vous en faut(le pc est à ma boite)

 

[Minick]

Salut,

Dans tes declarations de variable utilise Long plutot que Integer

Long valeur de -2 147 483 648 à 2 147 483 647
alors que Integer valeur de -32 768 à 32 767

@+
Minick

 

[Elve]

salut,


merci !!!
Effectivement c t bien ça

++
elve