dépassement de capacité

[Blafi]

Bonjour à tous,

Dans le fichier joint, je fais des essais pour afficher un USF pendant quelques secondes puis qu'il se ferme. (ceci me permettra comme dans l'exemple de Thierry trouvé sur le forum de faire attendre pendant l'éxecution d'une macro assez longue).

Mon problème : quand j'essaye ma manip, j'obtiens à chaque fois un message "dépassement de capacité" et la macro se bloque sur ma boucle...

Quelqu'un peut-il m'expliquer ce problème de capacité et ses causes...

Merci d'avance et a ++

Je modifie ma demande.. car en cherchant sur le forum, je pense avoir trouvé la solution : il faut que je mette mon Nbre en Dim as Long. Est-ce ça ?

 

[noviceAG]

Re : dépassement de capacité

Bonjour Blafi, le Forum,

Dans ton code, change :

Sub Mamacro()
Dim i As Integer, ii As Integer
Dim Nbre As Integer

Application.ScreenUpdating = False

UserForm1.Show False
DoEvents

Nbre = 1

For i = 1 To 1000
Nbre = Nbre + 1
Next i

Application.ScreenUpdating = True

Unload UserForm1

End Sub

1 et non i

 

[smotty]

Re : dépassement de capacité

Bonjour Blafi,

bien vu...

A+

 

[joss56]

Re : dépassement de capacité

Bonjour le forum, Blafi

Oui tu as raison. Néanmoins, et je pose à la question au forum, je croyais que integer couvrait la plage [-16256,16256] ou quelque chose comme ça, or pour toi ça bloque à 256 (donc de type byte)???
Merci de vos réponses et à +