Champ dans un formulaire avec . ou ,

Version imprimable

30/10/2012, 23h16
liop49

Champ dans un formulaire avec . ou ,

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 :

Citation:

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

est ce que quelqu'un peut m'aider ?

Merci

Nini
31/10/2012, 08h02
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

Bonjour,

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

Voici le code :
Code:

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

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

Code:

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

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:

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

ou comme cela c'est plus condensé

Code:

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