Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1431 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Erreur d'éxcution "13" incompatibilité de type

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Erreur d'éxcution "13" incompatibilité de type

n°2235742
sossso
Posté le 17-08-2014 à 14:25:57  profilanswer
 

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

mood
Publicité
Posté le 17-08-2014 à 14:25:57  profilanswer
 

n°2235744
TotalRecal​l
Posté le 17-08-2014 à 15:38:48  profilanswer
 

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


---------------
Topic .Net - C# @ Prog
n°2235745
patrice337​40
Avec la réponse, c'est facile.
Posté le 17-08-2014 à 18:06:45  profilanswer
 

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


Message édité par patrice33740 le 17-08-2014 à 18:08:55

---------------
Cordialement, Patrice

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Erreur d'éxcution "13" incompatibilité de type

 

Sujets relatifs
Calcul ecart type MATLAB [RESOLU][RESOLU ] [VBA] ERREUR 91 - FINDNEXT
Help SVP "erreur d'exécution 13 incompatibilité de type, vba"Impression automatiser avec différents type de fichiers
[PDO] erreur avec fetchColumnNoobshell : c'est quoi mon erreur?
Erreur code vhdlErreur d'execution '13' Incompatibilité de type
Plus de sujets relatifs à : Erreur d'éxcution "13" incompatibilité de type


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR