"Objet attendu: " " mais où?

"Objet attendu: " " mais où? - VB/VBA/VBS - Programmation

Marsh Posté le 23-11-2006 à 11:56:46    

Je debute sous wsh/vbs, et je bloque sur un morceau de code pas terminé, à la ligne 23 cractère 3 j'ai une erreur de type  

Citation :

objet attendu:"

mais je ne vois pas se qui cloche.
svp aidez moi
 

Code :
  1. 'odin - 23 Novembre 2006 - TP3 Swtich
  2. option explicit
  4. class connexion
  5. public refmat,desig,nbPort
  6. end class
  8. class connecter
  9. public refmat,numPort,refMatCon
  10. end class
  12. dim tabconnexion(8)
  13. dim tabconnecter(8)
  14. dim i
  15. dim reference
  16. dim portotal
  19. for i = 1 to i = 6
  20.  set tabconnexion(i) = new connexion
  21. next
  23.  tabconnexion(1).refmat= "SWI3423"
  24.  tabconnexion(1).desig= "Switch 3COM"
  25.  tabconnexion(1).nbPort= "12"
  27.  tabconnexion(2).refmat="SWI3423"
  28.  tabconnexion(2).desig="Switch HP"
  29.  tabconnexion(2).nbport="24"
  31.  tabconnexion(3).refmat="SWI3427"
  32.  tabconnexion(3).desig="Swtich HP"
  33.  tabconnexion(3).nbport="24"
  35.  tabconnexion(4).refmat="SWI3428"
  36.  tabconnexion(4).desig="Switch 3com"
  37.  tabconnexion(4).nbport="12"
  39.  tabconnexion(5).refmat="ROU01"
  40.  tabconnexion(5).desig="Routeur Cisco"
  41.  tabconnexion(5).nbport="0"
  43.  tabconnexion(6).refmat="zzzzz"
  44.  tabconnexion(6).desig="zzzzz"
  45.  tabconnexion(6).nbport="0"
  47.  for i = 1 to i = 8
  48.   set tabconnecter(i) = new connecter
  49.  next
  50.   tabconnecter(1).refmat="SWI327"
  51.   tabconnecter(1).numPort="2"
  52.   tabconnecter(1).refmatcon="PC01"
  54.   tabconnecter(2).refmat="SWI3427"
  55.   tabconnecter(2).numport="10"
  56.   tabconnecter(2).refmatcon="PC03"
  58.   tabconnecter(3).refmat="SWI3427"
  59.   tabconnecter(3).numport="..."
  60.   tabconnecter(3).refmatcon="..."
  62.   tabconnecter(4).refmat="SWI3427"
  63.   tabconnecter(4).numport="24"
  65.   tabconnecter(5).refmat="SWI3432"
  66.   tabconnecter(5).numport="1"
  67.   tabconnecter(5).refmatcon="SWI3427"
  69.   tabconnecter(6).refmat="zzzzz"
  70.   tabconnecter(6).numport="0"
  71.   tabconnecter(6).refmatcon="zzzzz"
  74.   reference = inputbox ("Entrez la réference du matériel recherché" )
  75. Msgbox (" Vous avez entré: " & reference)
  77.  while tabconnexion(i).refmat <> reference
  78.   i= i+1
  79.  wend
  81.  while tabconnecter(i).refmat <> reference
  82.   i= i+1
  83.  wend
  85.  if tabconnecter(i).refmat= reference then
  86.   portotal= portotal +1
  87.  else wscript.echo  "matériel inconnu"
  88.  end if


Message édité par odin-78 le 23-11-2006 à 11:57:06
Reply

Marsh Posté le 23-11-2006 à 11:56:46   

Reply

Marsh Posté le 23-11-2006 à 12:11:08    

Euh ligne 19 : for i = 1 to i = 6   :??:  
Essaie comme ça : for i = 1 to 6


Message édité par archangel le 23-11-2006 à 12:11:28

---------------
J'suis timide - Prêt à mourir, mais pas à vivre - Je suis vraiement très fatigué ... - more than meets the eye
Reply

Marsh Posté le 23-11-2006 à 12:16:04    

Han ça marche ! Merci archangel ! Youhou je vais pouvour continuer, tu m'enlève une épine du pied :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed