Erreur d'exécution 13 l Résolu/Fermé

Question

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 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 Configuration: Windows / Chrome 58.0.3029.110

Patrice33740 · Answer

Bonjour,

Sur quelle ligne, l'erreur ???

Sans le fichier, ce code semble fonctionner mais il manque la définition de de la variable Derligne : 
For i = 1 To Derline(1, 1) 
Tu devrais commencer tous les modules par :
Option Explicit
Ça oblige à déclarer toutes les variables et ça limite ce genre d'erreur.

Erreur d'exécution 13 l

1 réponse

Discussions similaires