Discussion :

[aurelu]

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.

[BENNASR]

Bonjour
il suffit d'ajouter CDbl

Code :

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

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

bonne continuation

[aurelu]

Bonjour BENNASR,

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

[Invité]

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 ?

[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 ?

[aurelu]

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 :

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
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 :

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
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

[mjpmjp]

bonjour,

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

Code :

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

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 :

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

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