[VBA] Dépassement de capacité

[Verba_Tim]

Bonjour à tous ^^

J'ai un petit problème avec ma macro (Word certes, mais ça reste du vba office normalement...)
En gros, je fais ne mise en page auto d'un certain nombre de graphs issu d'un classeur excel. Pour que celle-ci se fasse sans anicroche, j'ai du placer des petites tempo à ma sauce entre certaines procédures, selon le modèle suivant:

Sub Test()
 Dim fin As Long
  fin = Timer + 1
Do While Timer < fin
    DoEvents
  Loop
End Sub
sub XXX()
'...
Call Test
'...
End sub

Ca marche très bien, mais parfois, j'ai un pop up 'erreur d'exécution '6' : dépassement de capacité'.... et le pire c'est qu'en relançant la macro ça repart sans problème (F5)

Une idée sur la source du problème et sur une possible résolution?

Merci d'avance

VB_T

edit: une petite piste: blocage sur le fin... il est par exemple a 540504 mais timer est a 54749,2... c'est la virgule le pbm??

 

[Efgé]

Re : [VBA] Dépassement de capacité

Bonjour Verba_Tim,
Vraiment pas certain de moi, mais pour un Timer j'utiliserai plutot Single..

Dim fin As Single

Cordialement

 

[Pierrot93]

Re : [VBA] Dépassement de capacité

bONJOUR?

DANS Excel "timer", retourne une valeur de type "single", il y a sans doute lieu d'utiliser le même type...

bon après midi
@+

Re fg

 

[Verba_Tim]

Re : [VBA] Dépassement de capacité

Salut Efgé, Pierrot ^^

J'étais sur que c'était un tout petit problème ^^
Ca marche à merveille ^^

Merci ^^

 

[Verba_Tim]

Re : [VBA] Dépassement de capacité

... Ca avait l'air de marcher...
Même message d'erreur avec fin dimensionner en single...
valeur de timer = 60507,09 et fin = 60275,04
... c'est reparti ^^' quelqu'un aurai une autre piste??

 

[Pierrot93]

Re : [VBA] Dépassement de capacité

Re,

pas de problème chez moi avec :

Sub Test()
 Dim fin As Single
  fin = Timer + 1
Do While Timer < fin
    DoEvents
  Loop
End Sub

 

[Verba_Tim]

Re : [VBA] Dépassement de capacité

... Alors la... j'ai le même code que toi et de temps à autres j'ai un dépassement de capacité...
J'ai même tenter de dimensionner en double et j'ai le même problème...

je vais tenter de dimensionner en currency peut être...

Après me reste le variant...

 

[Verba_Tim]

Re : [VBA] Dépassement de capacité

Nouveau rebondissement... j'ai un dépassement en currency...
Je test variant.

 

[Pierrot93]

Re : [VBA] Dépassement de capacité

Re,

post peut être dans le forum des autres applis, peut être une particularité dans word... Mais bon..
Autres applications Microsoft Office

 

[Verba_Tim]

Re : [VBA] Dépassement de capacité

Même en Variant il me met le message d'erreur... j'y comprend rien ><
Du coup je pense contourner le problème en mettant la formule magique "on error resume next" et je vais voir ce qu'il se passe...

Merci quand même ^^"
Je vais aussi allez voir sur le fofo que tu m'as indiqué Pierrot ^^

Merci

A +

VB_T

 

[Verba_Tim]

Re : [VBA] Dépassement de capacité

Solution trouver (grâce à JNP) ^^
C'est le Do events qui est de trop... Le re-croisement du timer et du do events (qui intègre un timer) pose problème ^^'
Au final ça donne:

Sub Test()
 Dim fin As Single
  fin = Timer + 1
Do While Timer < fin
  Loop
End Sub

Merci à vous pour le temps que vous m'avez consacré ^^

@ +


VB_T

 

[Pierrot93]

Re : [VBA] Dépassement de capacité

Bonjour,

tu as laissé le "DoEvents" dans ton code "final"... Jamais constaté ce phénomène dans Excel... maintenant, loin d'avoir tout vu... peut être aussi lié à Word....

bonne journée
@+

 

[Verba_Tim]

Re : [VBA] Dépassement de capacité

Merci de la remarque c'est corrigé.

Bonne journée ^^

@+


VB_T