Dépassement de capacité?!!!

[kikim78]

Re forum,

En executant une macro sur 4000 lignes ça marche pas comme c'est le cas pour 100 lignes?!

Ca me donne comme message:

Erreur d'exécusion '6'
Dépassement de capacité

Que doit je faire?


Crdt,

Sub test()

Dim Tablo
Dim I As Byte
Dim N As Byte
Dim C

Sheets("statis").Range("A5:B65536").ClearContents
Tablo = Array("Feuil1", "Feuil2", "Feuil3")

For I = 0 To UBound(Tablo)
For N = 5 To Sheets(Tablo(I)).Range("U65536").End(xlUp).Row

Set C = Sheets("statis").Columns(1).Find(Sheets(Tablo(I)).Range("U" & N), LookIn:=xlValues, lookat:=xlWhole)

If Not C Is Nothing Then
C.Offset(0, 1) = C.Offset(0, 1) + 1
Else
Sheets("statis").Range("A65536").End(xlUp).Offset(1, 0) = Sheets(Tablo(I)).Range("U" & N)
Sheets("statis").Range("A65536").End(xlUp).Offset(0, 1) = 1
End If

Next N
Next I

Set C = Nothing

End Sub

Ce qui est souligné s'affiche en jaune quand je clique sur débogage

[Usb512]

Salut le forum

Pour plus de 255 lignes modifie

Code: Tout sélectionner

Dim I As Byte
Dim N As Byte



Par

Code: Tout sélectionner

Dim I As Integer
Dim N As Integer



Un lien à Lire : Déclaration des variables

Mytå

[kikim78]

Re
Ca marche tres bien
Merci Usb512
Crdt