VBA : Rentrer une formule dans une textbox pour avoir un résultat numérique

Version imprimable

21/06/2017, 11h18
aurelu

VBA : Rentrer une formule dans une textbox pour avoir un résultat numérique

Bonjour à tous,

Je bloque sur un sujet de donnée calculée dans une textbox, je m'explique :

J'ai un userform dans lequel se trouve 2 textbox :

- TextBox40 qui représente un nombre d'heures allouées à une charge de travail.
- TextBox52 qui doit convertir en nombre de ressources ces heures allouées.

ce que j'aimerais c'est programmer la 52 comme suit : TextBox52.Value = TextBox40.Value / 140

Je vous remercie par avance de vos aides ou conseils pour avancer sur le sujet.
21/06/2017, 11h20
BENNASR

Bonjour
il suffit d'ajouter CDbl

Code:

TextBox52.Value = Cdbl(TextBox40.Value / 140)

bonne continuation
21/06/2017, 11h27
aurelu

Bonjour BENNASR,

J'avais essayer justement cette conversion mais rien n'y fait :/. Ca me met une erreur d'incompatibilité 13'
21/06/2017, 11h29
Invité

Citation:

Envoyé par aurelu

Bonjour BENNASR,

J'avais essayer justement cette conversion mais rien n'y fait :/. Ca me met une erreur d'incompatibilité 13'

Bizarre, j'ai essayé de mon côté et sa fonctionne bien, peux-tu nous montrer ton code ?
21/06/2017, 11h31
joe.levrai

Bonjour,

étrange à première vue
que vaut TextBox40 ? Je parle du format affiché pour les heures

en outre, petite coquille de BENNASR il me semble ?
[code]TextBox52.Value = Cdbl(TextBox40.Value) / 140

on peut aussi forcer la récupération d'une valeur numérique via Val()

Essayer aussi via la propriété .Text ?

J'ai modifié légèrement mon code je n'ai plus d'erreur mais rien ne s'affiche par contre dans les textbox...

J'ai un code situé dans un module de classe :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public WithEvents txtB As MSForms.TextBox
 
Private Sub txtB_Change()
 
    'Déclare la variable "total" comme Double
    Dim total As Double
 
    'Initialise la variable à 0
    total = 0
 
    'Boucle de 52 à 63 pour 10 TextBox
    For i = 52 To 63
        'Si un des TextBox est différent de rien alors
        If CreationWP.Controls("TextBox" & i) <> "" Then
            'Ben le total est le total de tous les TextBox
            total = total + CDbl(CreationWP.Controls("TextBox" & i)) / 140
        'Fin de la condition
        End If
    'Fin de la boucle
    Next i
 
End Sub

Et un code dans un userform dans lequel se situe les textboxs:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim txtA(40 To 51) As New Classe1
Dim txtB(52 To 63) As New Classe2
 
 
Private Sub UserForm_Initialize()
    'Déclare la variable
    Dim n As Long
 
    'Boucle de 40 à 51 pour lui dire que les TextBox 40 à 51
    'sont les txtB du module de classe "Classe1".
    For n = 40 To 51
       Set txtA(n).txtA = Controls("TextBox" & n)
    Next n
 
    'Note que le TextBox où est affiché le total se nomme "TxtATotal".
 
    'Déclare la variable
    Dim z As Long
 
    'Boucle de 52 à 63 pour lui dire que les TextBox 40 à 51
    'sont les txtB du module de classe "Classe2".
    For z = 52 To 63
        Set txtB(z).txtB = Controls("TextBox" & z)
    Next z

21/06/2017, 22h28
mjpmjp
bonjour,

j'ai pas mal de lacunes, ce qui fait que je ne comprend pas ce code :
Code:

1 2 Set txtA(n).txtA = Controls("TextBox" & n)
par contre ce dont je suis certain, c'est que total ne sert à rien, du fait que :
Code:

1 2 3 4 5 6 7 8 Private Sub txtB_Change() 'Déclare la variable "total" comme Double Dim total As Double 'Initialise la variable à 0 total = 0
Dim total As Double --> doit être en dehors de sub

@+JP