Erreur d'éxcution "13" incompatibilité de type
sossso
Messages postés
30
Statut
Membre
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Erreur d'éxcution "13" incompatibilité de type
- Iptv erreur de lecture - Forum TV & Vidéo
- Fifa 13 - Télécharger - Jeux vidéo
- Type de ram - Guide
- Faiblesse type spectre ✓ - Forum Jeux vidéo
- Erreur player 4001 free - Forum Samsung
1 réponse
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.
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.
