Erreure dépassement de capacité sur commande Cint

Bonjour à tous.

J'ai un nouveau buguinou dans mon userform

Le code bloque sur le code suivant :

Label6 = CInt(Worksheets("SAISIE").Range("br3").Value)

Qu'est ce que je peux faire ?

Bonsoir :

CInt Entier -32 768 à 32 767

Votre cellule doit avoir un nombre hors capacité...

@ bientôt

LouReeD

Effectivement je viens d'enlever les CInt pour vérifier.

C'est la loose. Que puis je faire pour corriger mon erreur ?

Bonsoir,

essayez de trouver le format adapté à vos données ICIAvez vous "vraiment" besoin de faire cette conversion ?

@ bientôt

LouReeD

Je vais trouver mon format.

Peut être puis je juste conserver cint mais diviser par 1000 pour changer l'unité ? ( C'est la puissance qui me pose problème du coup).

PS j'ai pas envie de voir tous ces chiffres après la virgule.

abricot a écrit :

Je vais trouver mon format.

Peut être puis je juste conserver cint mais diviser par 1000 pour changer l'unité ? ( C'est la puissance qui me pose problème du coup).

PS j'ai pas envie de voir tous ces chiffres après la virgule.

Bonjour,

C'est un arrondi du coup :

Résultat = Round(MonNombre, 0)

Ou tout simplement :

Résultat = Round(MonNombre)

Résultat doit être de type Long

C'est ça que je dois mettre ?

Label8 = Worksheets("SAISIE").Range("bn3").Value
Résultat = Round(MonNombre)

abricot a écrit :

C'est ça que je dois mettre ?

Label8 = Worksheets("SAISIE").Range("bn3").Value
Résultat = Round(MonNombre)

Bonjour,

Non, mon exemple donne une syntaxe générique. Round() est l'équivalent VBA de la fonction Excel ARRONDI(). Ce serait plutôt :

Label8 = Round(Worksheets("SAISIE").Range("BN3").Value)