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