Discussion :

[tytos]

Bonjour,
j'ai chercher mon cas sur le forum en vain. voila mon cas il s'agit d'un ligne de code qui doit remplir une feuille excel ,donc j'ai crée un inputbox pour le faire mais quand je lance le code arrivé a ce niveau ca me renvoie erreur.
voici le code . merci il s'agit de la ligne 34

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Private Sub ENREGISTREMENT_Click()
Dim MAP As Double
If Date_paiemt.Value = "" Then
Date_paiemt.Value = Date
End If
If Sheets("CLIENT").Cells(i + 1, 3) = "" Then
Sheets("CLIENT").Cells(i + 1, 3) = 0
End If
If Mt_Glb_Prdt.Value = "" Then
Mt_Glb_Prdt.Value = 0
End If
If 10000 <= Mt_Glb_Prdt.Value And Mt_Glb_Prdt.Value <= 50000 Then
Mt_net.Value = 0.95 * Mt_Glb_Prdt.Value
ElseIf Mt_Glb_Prdt > 50000 Then
Mt_net.Value = 0.9 * Mt_Glb_Prdt.Value
Else
Mt_net.Value = Mt_Glb_Prdt.Value
End If
 If Mt_Glb_Prdt > 50000 Then
remise.Value = 0.1 * Mt_Glb_Prdt.Value
ElseIf 10000 <= Mt_Glb_Prdt.Value And Mt_Glb_Prdt.Value <= 50000 Then
remise.Value = 0.05 * Mt_Glb_Prdt.Value
Else
remise.Value = 0
End If
Sheets("VENTE").Cells(2, 12) = remise.Value
Sheets("VENTE").Cells(2, 13) = Mt_net.Value
 
If Nom_Clt.Visible = True Then
For i = 1 To Derline(1, 1)
If (Nom_Clt.Value = Sheets("CLIENT").Cells(i + 1, 1)) Then
Sheets("CLIENT").Cells(i + 1, 3) = Sheets("CLIENT").Cells(i + 1, 3) + Mt_net.Value
    Sheets("CLIENT").Cells(i + 1, 5) = Date_paiemt.Value
    MAP = InputBox("combien le client pense payé le " & Date_paiemt.Value & "?")
    Sheets("CLIENT").Cells(i + 1, 6) = MAP
 
Else
Sheets("CLIENT").Select
Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("CLIENT").Cells(i + 1, 1) = Nom_Clt.Value
    Sheets("CLIENT").Cells(i + 1, 2) = Télphon_Clt.Value
    Sheets("CLIENT").Cells(i + 1, 3) = Mt_net.Value
    Sheets("CLIENT").Cells(i + 1, 4) = Dat_Acht.Value
    Sheets("CLIENT").Cells(i + 1, 5) = Date_paiemt.Value
    MAP = InputBox("combien le client pense payé le " & Date_paiemt.Value & "?")
    Sheets("CLIENT").Cells(i + 1, 6) = MAP
    End If
Next i
End If
    Nom_Clt.Value = ""
    Télphon_Clt.Value = ""
    Date_paiemt.Value = ""
 
 
End Sub

[mjpmjp]

bonjour,
l'erreur 13 , c'est quand tu "mélanges" les type style : des alpha avec des num

dans ta ligne 34 :

Code :

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

1
2
 
 MAP = InputBox("combien le client pense payé le " & Date_paiemt.Value & "?")

Date_paiemt.Value est une valeur,
teste ce code qui transforme cette valeur en texte

Code :

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

1
2
 
 MAP = InputBox("combien le client pense payé le " & Cstr(Date_paiemt.Value) & "?")

@+JP

[Patrice740]

Bonjour,

Le problème c'est plutôt :

Code :

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

1
2
3
Dim MAP As Double
'et
MAP = InputBox("combien le client pense payé le " & Date_paiemt.Value & "?")

InputBox renvoie une donnée de type string !
La conversion implicite ne s'effectue pas quand la réponse n'est pas numérique, d'où l'erreur de compatibilité de type.

Il faut recevoir le résultat dans une chaine (String) et vérifier qu'il est numérique.

[mjpmjp]

bonjour,
bien vu Patrice740

Code :

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

1
2
 
Dim MAP As Double

MAP est donc un "type" num et en réponse il attend donc une réponse de "type" num

est ce que la solution serait de déclarer "MAP as String" et d'utiliser val(MAP) ?

@+JP

[Patrice740]

Bonjour,

Une solution :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim REP As String
Dim MSG As String
Dim MAP As Double
 
  MSG = "Combien le client pense payé le " & Date_paiemt.value & " ?"
  Do While Not IsNumeric(REP)
    REP = InputBox(MSG)
    If REP = "" Then Exit Sub
    MSG = "Vous devez entrer un montant valide ! " & vbCrLf & vbCrLf & _
          "Combien le client pense payé le " & Date_paiemt.value & " ?"
  Loop
  MAP = REP