Discussion :

[dmoluc]

Bonjour à tous

Encore un problème simple et incompréhensible qui doit sans doute être du à une déclaration de variable mais que je n'arrive pas à résoudre malgré ma persévérence
Cette formule fonctionnée très bien jusqu'à ce que, sans rien changer, cela ce mette à planter !

Code :

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

dur = (TextBox21.Value + TextBox13.Value + TextBox9.Value + (TextBox23.Value * 60 / TextBox11.Value) + (TextBox23.Value * 60 / TextBox10.Value))

Toutes les textbox sont bien incrémentées avec des valeurs numériques avec décimale mais impossible d'incrémenté la variable "dur" avec le résultat de l'opération.
J'ai d'autres opérations du même genre

Code :

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

God = (TextBox15.Value / (TextBox26.Value * TextBox29.Value * TextBox31.Value))

qui fonctionne très bien

que ce soit la variable God ou dur , je les ai déclarer toutes deux en Variant

Merci pour votre aide

Didier

[dmoluc]

J'ai modifier un peu la formule pour la racourcir, employer CDbl et le résultat est toujours le même "incompatibilité de type"

Code :

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
19
If TextBox28 <> "" Then
TextBox81.Value = "Chargeur"
Dim God As Double
If TextBox13.Value = "" Then
TextBox13.Value = 0
Dim Nbgr As Variant, Nbg As Variant
End If
If Me.ToggleButton1 = False And TextBox28 <> "" Then
God = (TextBox15.Value / (TextBox26.Value * TextBox29.Value * TextBox31.Value))
Nbg = Int(Round(God + 0.5))
TextBox21.Value = ((TextBox25 * Nbg) * (60 / TextBox24.Value))
TextBox18.Value = ((TextBox24.Value / TextBox21) * TextBox15.Value)
D = CDbl(TextBox21.Value + TextBox13.Value + TextBox9.Value + Tps)
TextBox20.Value = Int(Round((D / TextBox21.Value) + 0.5))
TextBox19.Value = Int(Round((D / TextBox21.Value) - 0.5))
TextBox12.Value = (TextBox18.Value * TextBox19.Value / (D / TextBox21.Value))
TextBox17.Value = (TextBox18.Value / TextBox31)
TextBox16.Value = (TextBox12.Value / TextBox31)
End If

Toutes les formules fonctionnent sauf

Code :

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

D = CDbl(TextBox21.Value + TextBox13.Value + TextBox9.Value + Tps)

Merci pour votre aide

[dmoluc]

Pour ceux que cela intéresse

Code :

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

D = CDbl(TextBox21.Value) + CDbl(TextBox13.Value) + CDbl(TextBox9.Value) + Tps

et ça fonctionne

Mais j'aimerais bien savoir pourquoi il y a des centaines de formules du même genre dans ce classeur qui fonctionnent très bien et que celle-là seulement pose problème ; les mystères de l'informatique ??????

Encore merci

Didier

[AlainTech]

Mais j'aimerais bien savoir pourquoi il y a des centaines de formules du même genre dans ce classeur qui fonctionnent très bien et que celle-là seulement pose problème

Tout simplement parce que les concepteurs du VBA ont donné 2 fonctions à l'opérateur +.
Il peut servir à concaténer si les éléments sont de type texte ou additionner si les éléments sont de type numérique.
Ce qui est dans un TextBox est toujours du texte.

Par contre, les opérateurs / ou * ne travaillant que sur des nombres, si on leur fournit du texte représentant des nombres, la conversion est effectuée.

[dmoluc]

Merci pour cette information précieuse, je vais me méfier avec les additions