Bonjour,

je suis un peu debutant en vba excel ,je sais pas quand j'éxcute ce code ci dessous , je recois Erreur d'éxcution "13" incompatibilité de type , Svp est ce quelqu'un peut me dire ou est le probleme ? et Merci d'avance

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
Sub location()
 
Dim Nbrcr As Integer
 
Nbrcr = Range("E4").Value
For i = 10 To Nbrcr + 9
 
Range("D" & i).Value = "trajet" & i - 9
 
If Range("G" & i).Value = "camion" Then
 
Sheets("V").Range("E20").Value = Sheets("tr").Range("E" & i - 5).Value
Range("I" & i).Value = Sheets("CR").Range("D34").Value * ((Range("H4") / 100) + 1)
 
ElseIf Range("G" & i).Value = "IVECO" Then
 
Sheets("V moto ").Range("E17").Value = Sheets("tr").Range("I" & i - 5).Value
Range("I" & i).Value = Sheets("CR moto)").Range("D34").Value * ((Range("H4") / 100) + 1)
 
ElseIf Range("G" & i).Value = "voiture" Then
 
Sheets("V (voiture)").Range("E15").Value = Sheets("tr").Range("M" & i - 5).Value
Range("I" & i).Value = Sheets("CR (voiture)").Range("D34").Value * ((Range("H4") / 100) + 1)
 
ElseIf Range("G" & i).Value = "avion" Then
 
Sheets("V (avion)").Range("E17").Value = Sheets("tr").Range("Q" & i - 5).Value
Range("I" & i).Value = Sheets("CR (avion").Range("D34").Value * ((Range("H4") / 100) + 1)
 
 
End If
 
 
 
 
Next i
 
End Sub