[VB] Déclaration de variables en string
Résolu
onra
-
onra -
onra -
Bonjour,
J'ai un UserForm dans lequel est calculé une somme de 4 valeurs et la compare avec un montant. Il faut alors que cette somme soit égale au montant, sinon la procédure en cours est stoppée.
Les 4 valeurs proviennent d'un tableau Excel.
Quand ces 4 valeurs sont trop importantes, j'obtient une erreur qui est:
Erreur d'exécution 6
dépassement de capacité
et le débogage me renvoie sur cette fameuse somme:
SumImp = Str(Val(ImpMOA.Text) + Val(ImpIng.Text) + Val(ImpArchi.Text) + Val(ImpAleas.Text))
Je pense alors que ce sont les déclarations de variables en "String" qui déconne, mais je ne vois pas comment le changer.
C'st donc à ce moment que vous intervenez cher amis!!!!
Je pense peut être a déclarer mes variables en doubles, mais là je commence à tatonner...
Merci d'avance
Vous trouverez juste en dessous un atre message de ma part, n'y faite pas attention, c'est un petit cafouillage de ma aprt.
J'ai un UserForm dans lequel est calculé une somme de 4 valeurs et la compare avec un montant. Il faut alors que cette somme soit égale au montant, sinon la procédure en cours est stoppée.
Les 4 valeurs proviennent d'un tableau Excel.
Quand ces 4 valeurs sont trop importantes, j'obtient une erreur qui est:
Erreur d'exécution 6
dépassement de capacité
et le débogage me renvoie sur cette fameuse somme:
SumImp = Str(Val(ImpMOA.Text) + Val(ImpIng.Text) + Val(ImpArchi.Text) + Val(ImpAleas.Text))
Je pense alors que ce sont les déclarations de variables en "String" qui déconne, mais je ne vois pas comment le changer.
C'st donc à ce moment que vous intervenez cher amis!!!!
Je pense peut être a déclarer mes variables en doubles, mais là je commence à tatonner...
Merci d'avance
Vous trouverez juste en dessous un atre message de ma part, n'y faite pas attention, c'est un petit cafouillage de ma aprt.
Configuration: Windows 2000 Internet Explorer 6.0
2 réponses
-
Bonjour,
Pour être certain que la déclaration fonctionne tu déclare en Varaint, après tu peu éventuellement modifié..
dim SumImp
Suffit, ou
dim SumImp as Variant
A+-
-
Salut,
je viens d'essayer la somme en la passant en "variant" mais ca ne marche pas.
Il ne fait plus la omparaison entre SumImp et OSmontant.
Voici la boucle complète, peut être trouveras tu une autre idée pour m'aider:
Dim SumImp As Integer
SumImp = Str(Val(ImpMOA.Text) + Val(ImpIng.Text) + Val(ImpArchi.Text) + Val(ImpAleas.Text))
If Not (SumImp = OSMontant) Then
MsgBox ("Attention, le montant de l'OS doit être égal à la somme des imputations")
MsgBox ("Somme des imputations=" & SumImp)
Exit Sub
End If
Merci d'avance
-
-
SumImp = Str ?? (Val(ImpMOA.Text) + Val(ImpIng.Text) + Val(ImpArchi.Text) + Val(ImpAleas.Text))
Je sais plus mettre en gras, mas tu force la 1ère donnée en string, donc ca va pas aller, enlève str(
A+
