Discussion :

[liop49]

Bonsoir,

J'ai créé un formulaire et parmis les champs, j'ai un champ "Cout_kgBox" dans lequel je met un prix. J'ai malheureuesment un message d'erreur lorsque je mets un . ou une virgule.
voici le code d'erreur :

Erreur d'exécution '13'
Inompatibilité de type

est ce que quelqu'un peut m'aider ?

Merci

Nini

[Invité]

Bonjour

Comment gères-tu cette information par la suite ?

Est-ce que tu mets celle-ci dans une variable ? Si oui, il se peut qu'elle soit mal typé, par exemple avec un type Long ou Integer tu auras ce type d'erreur, si c'est le cas il faut typer en Double ou Single.

Philippe

[liop49]

Bonjour,

J'ai essayé ce que tu m'a dit mais cela ne change rien.

Voici le code :

Code :

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

1
2
3
4
5
6
Private Sub Cout_kgBox_Change()
Dim PRBox As Single
Dim Cout_kgBox As Single
 
UserForm1.PRBox.Value = (UserForm1.PrixPlanteBox.Value * 1) + (UserForm1.Cout_kgBox.Value * 1)
End Sub

En espérant que cela puisse mieux vous orienter

Nini

[rvtoulon]

Tu déclare des variables, il faut t'en servir.
tu peux essayer :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Cout_kgBox_Change()
Dim Cout_kgBox As Single, PrixPlanteBox As Single
 
PrixPlanteBox = UserForm1.PrixPlanteBox.Value * 1
Cout_kgBox = UserForm1.Cout_kgBox.Value * 1
 
UserForm1.PRBox.Value = PrixPlanteBox + Cout_kgBox
 
End Sub

A quoi sert le "*1"?

[Oliv-]

Salut,
c'est un pb de champ vide je pense

je l'ai mis dans un événement Afterupdate qui est peut être plus adapté (ne se déclenche que quand on change de zone

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
 
Private Sub Cout_kgBox_AfterUpdate()
    Dim Cout_kgBox As Single
    Dim PrixPlanteBox As Variant
 
    If IsNumeric(UserForm1.PRBox.Value) Then
        PrixPlanteBox = UserForm1.PRBox.Value * 1
    Else
        PrixPlanteBox = 0
    End If
    If IsNumeric(UserForm1.Cout_kgBox.Value) Then
    Cout_kgBox = UserForm1.Cout_kgBox.Value * 1
    End If
    UserForm1.PRBox.Value = PrixPlanteBox + Cout_kgBox
 
 
End Sub

[Oliv-]

ou comme cela c'est plus condensé

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Cout_kgBox_AfterUpdate()
    Dim Cout_kgBox As Single
    Dim PrixPlanteBox As Variant
 
    PrixPlanteBox = IIf(IsNumeric(UserForm1.PRBox.Value), UserForm1.PRBox.Value, 0) * 1
    Cout_kgBox = IIf(IsNumeric(UserForm1.Cout_kgBox.Value), UserForm1.Cout_kgBox.Value, 0) * 1
    UserForm1.PRBox.Value = PrixPlanteBox + Cout_kgBox
End Sub