Discussion :

[EvaristeGaloisBis]

bonjour,
je ne comprends pas pourquoi excel me sort ce bug de dépassement de capacité.
je mets le code et après j'explique les données qui m'ont fait buguer.

Code Fonction qui bugue :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
'définition des variables qui apparaissent dans le code
Dim iTab(6) As Long
Dim lSalaire As Long
 
Public Sub CreeNonCadreDepuisLigneDemo(LigneOuvrier As clLigneDemographie, LigneEmploye As clLigneDemographie, LigneMatrise As clLigneDemographie)
Dim i As Integer
Dim dTmp As Double
For i = 0 To 6
    If i = 1 Then
        dTmp = (LigneOuvrier.Age * LigneOuvrier.Effectif + LigneEmploye.Age * LigneEmploye.Effectif + LigneMatrise.Age * LigneMatrise.Effectif) / (Me.Effectif - (Me.Effectif = 0)): i = i + 1
    Else
        dTmp = LigneOuvrier.Element(i) + LigneEmploye.Element(i) + LigneMatrise.Element(i)
    End If
    iTab(i) = dTmp
Next
lSalaire = (LigneOuvrier.SalaireMoyen * LigneOuvrier.Effectif + LigneEmploye.SalaireMoyen * LigneEmploye.Effectif + LigneMatrise.SalaireMoyen * LigneMatrise.Effectif) / (Me.Effectif - (Me.Effectif = 0))
End Sub

Je bugue quand i=1.Donc j'ai pour le nombre d'ouvrier 1153, l'age de 39 et je me suis renseigné 39*1153=44 967<2 147 483 647 (qui est la limite du type long).
Dans le doute, je suis passé par une variable temporaire en double pour avoir un nombre plus grand (sait on jamais).
Mais rien n'y fait, et je ne vois pas pourquoi ça me fait cette erreur.

je remercie d'avance la personne qui prendra le temps d'analyser et de répondre...

[random]

ligneouvrier.age est probablement un entier

vba se sert des variables intermédiaires pour effectuer ses calculs
teste ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Function tdepass() As Integer
Dim t As Integer
Dim rep As Double
t = 2
t = t ^ 14
MsgBox (t)
tdepass = t * 2 / 2
end Function

seule facon de faire passer par des variables tampons de type double ou variant

[EvaristeGaloisBis]

arff oki merci je vais essayer tout de suite