macro: erreur 6

[JJ1]

Bonjour à tous,

J'ai une petite macro de quelques lignes qui teste des combinaisons source en AE1:AH129600 placées en destination AM1.

Mon tableau Excel de données va de A1à AD8000

Quand je lance ma macro (que j'ai copiée pour la peine sous Excel 2007 pour avoir 1 million de lignes) j'ai erreur 6: dépassement de capacité?
le debugueur jaunit:
For i = 1 To Range("ae130000").End(xlUp).Row
je pensais pourtant avoir 1 million de lignes?

voici le code:

Worksheets("Feuil1").Activate
Dim i As Integer
With ActiveSheet
For i = 1 To Range("ae130000").End(xlUp).Row
If .Range("ae" & i).Value = "" Then Exit Sub
.Range("ae" & i, "ah" & i).Copy Destination:=.Range("AM1")
.Range("ai" & i).Value = .Range("AQ1").Value
.Range("aj" & i).Value = .Range("AR1").Value
.Range("aK" & i).Value = .Range("AS1").Value
Next i
End With
Range("A1").Activate

merci de votre aide, je sèche...
Bonne journée

 

[ledzepfred]

Re : macro: erreur 6

Bonjour

déjà ajoutes un point devant range dans la ligne for i=...

comme ceci

Worksheets("Feuil1").Activate
Dim i As Integer
With ActiveSheet
For i = 1 To .Range("ae130000").End(xlUp).Row
If .Range("ae" & i).Value = "" Then Exit Sub
.Range("ae" & i, "ah" & i).Copy Destination:=.Range("AM1")
.Range("ai" & i).Value = .Range("AQ1").Value
.Range("aj" & i).Value = .Range("AR1").Value
.Range("aK" & i).Value = .Range("AS1").Value
Next i
End With
Range("A1").Activate

Je pense que le bug est du à la déclaration de variable :
citation de l'aide visual basic: Les variables de type Integer sont stockées sous la forme de nombres de 16 bits (2 octets) dont la valeur est comprise entre -32 768 et 32 767

par contre Dim i as long fonctionne puisque :

citation de l'aide visual basic: Les variables de type Long (entier Long) sont stockées sous la forme de nombres signés de 32 bits (4 octets) dont la valeur est comprise entre -2 147 483 648 et 2 147 483 647

cdt

 

[JJ1]

Re : macro: erreur 6

Bonjour Ledzepfred,
je ne pense pas que le point soit utile car elle fonctionne avec moins de lignes.
Pour le "DIM" je pensais aussi à ce "Integer", par quoi faut-il le remplacer pour aller au-delà de 32000 lignes?
merci

 

[ledzepfred]

Re : macro: erreur 6

dim i as long (j'ai modifié mon message pendant que tu le lisais)

 

[ledzepfred]

Re : macro: erreur 6

pour le point :

si ton feuillet actif n'est pas la feuille 1, range ("A130000").end(xlup).row te ramènera le numéro de ligne de ton feuillet actif (donc si tu n'as pas le même nombre de lignes dans le feuillet 1 par rapport à ton feuillet actif, le code ne s'excutera pas correctement)

A+

 

[JJ1]

Re : macro: erreur 6

Merci à toi, j'avais modifié aussi avec Long,ça fonctionne très bien.
Bonne journée