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
 
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

Ce sujet a été déplacé de la catégorie Hardware vers la categorie Programmation par TotalRecall

Bonjour,
 
Cette erreur survient lorsque tu essaies d'affecter à une variable une valeur d'un autre type,(par exemple affecter une chaine (string) à un entier (integer)
 
Si ton code se situe dans un module ordinaire (et pas dans un module de feuille), le débogueur t'indique la ligne qui génère l'erreur, il suffit de vérifier les valeurs.
 
Edit: lorsqu'on poste le même sujet sur plusieurs forums, la moindre des politesses est de l'indiquer aux contributeurs !!!