Problème de boucle avec array

Question

Bonsoir &#224; tous...

A partir d'une base de donn&#233;es Access, je cherche &#224; simplifier mon script par une boucle
.....et je ne sais pas comment m'y prendre !!!

Context:
J'ai x usines
 site= array ("ALES", "BOUR", "PNEU"...)
ALES corresPond &#224; TPEA
BOUR correspond &#224; TPEB
PNEU correspond &#224; IMTP
CHIN correspond &#224; CHIN
MEXI correspond &#224; MEXI

Comment faire pour simplifier le code suivant, en pr&#233;voyant d'ajouter x usines
afin de ne pas r&#233;peter les m&#234;mes calculs:

'Initialisation date d&#233;but et date fin du 1er lancement de TDS-IMTP (usine de La Plaine)    
    If jobid = "TDS-IMTP" Then 
       If  i_PNEU = 0 Then
       tds_PNEU_deb = Rs.Fields(2)
       tds_PNEU_fin = Rs.Fields(3)
       i_PNEU = i_PNEU + 1
       End If
    End If  
'Initialisation date d&#233;but et date fin du 1er lancement de TDS-TPEA (usine d'Al&#232;s)
    If jobid = "TDS-TPEA" Then 
       If i_ALES = 0 Then
       tds_ALES_deb = Rs.Fields(2)
       tds_ALES_fin = Rs.Fields(3)
       i_ALES = i_ALES + 1
       End If
    End If 
'Initialisation date d&#233;but et date fin du 1er lancement de TDS-BOUR (usine de Bourgu&#233;bus)       
    If jobid = "TDS-TPEB" Then 
       If i_BOUR = 0 Then
       tds_BOUR_deb = Rs.Fields(2)
       tds_BOUR_fin = Rs.Fields(3)
       i_BOUR = i_BOUR + 1
       End If
    End If
'Initialisation date d&#233;but et date fin du 1er lancement de TDS-CHIN (usine de Chine)        
    If jobid = "TDS-TPEC" Then 
       If  i_CHIN = 0 Then
       tds_CHIN_deb = Rs.Fields(2)
       tds_CHIN_fin = Rs.Fields(3)
       i_CHIN = i_CHIN + 1
       End If
    End If  
'Initialisation date d&#233;but et date fin du 1er lancement de TDS-MEXI (usine du Mexique)        
    If jobid = "TDS-MEXI" Then 
       If i_MEXI = 0 Then
       tds_MEXI_deb = Rs.Fields(2)
       tds_MEXI_fin = Rs.Fields(3)
       i_MEXI = i_MEXI + 1
       End If
    End If  

Si quelqu'un peux m'orienter.
Merci.
jean-marc

cs_Jack · Answer

Salut
Non, rien &#224; faire.
Tes "jobid" ayant tous des textes diff&#233;rents, il n'est pas possible de d'indexer.
Eventuellement oui, si il n'y a qu'une seule s&#233;rie de donn&#233;e pour chaque type.
Si tu veux seulement faire du plus rapide, tu peux remplacer tes If par un Select Case :

Select Case jobid
   Case "TDS-MEXI"
       tds_MEXI_deb = Rs.Fields(2)
       tds_MEXI_fin = Rs.Fields(3)
       i_MEXI = i_MEXI + 1
   Case "Troulala&#238;too"
      ...
End Select

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_JMO · Answer

Bonjour,

Merci quand m&#234;me Jack.
J'avais d&#233;j&#224; utilis&#233; les select case, mais je trouvais pas cela optimis&#233;....
J'essaie avec
call + function + replace(.....)

jean-marc

Problème de boucle avec array

2 réponses

Discussions similaires