Erreur d'exécution 13

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 ( la ligne de MAP)

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

Bonjour Tytos, bonjour le forum,

Pour tester ton code, et éventuellement le corriger, il nous faut créer une UserForm avec des textboxes nommées comme ton exemple. Personnellement, je n'en ai ni le temps ni l'envie.

Et si tu mettait directement le fichier ?!...

Bonjour, Salut ThauThème !

Ben ! Tu déclares MAP de type Double... pour l'utiliser afin de recueillir une valeur renvoyée par la fonction InputBox, laquelle renvoie une donnée de type String...

Pas besoin de chercher beaucoup !

MFerrand a écrit :

Bonjour, Salut ThauThème !

Ben ! Tu déclares MAP de type Double... pour l'utiliser afin de recueillir une valeur renvoyée par la fonction InputBox, laquelle renvoie une donnée de type String...

Pas besoin de chercher beaucoup !

SI je déclare MAP as string ca marche