Erreur d'éxcution "13" incompatibilité de type
sossso
Messages postés
30
Statut
Membre
-
Patrice33740 Messages postés 8930 Statut Membre -
Patrice33740 Messages postés 8930 Statut Membre -
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
- Fifa 13 - Télécharger - Jeux vidéo
- Erreur 3005 france tv - Forum TV & Vidéo
- Iptv erreur de lecture - Forum TV & Vidéo
- Test redmi note 13 5g - Accueil - Téléphones
- Type de ram - Guide
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.
