probleme de boucle for to, next

Question

bonjour,
j arrive pas a enregistré un resultat par ordre des cellules sur excel, je doute d un petit probleme de boucle (for to et next),
voici mon code :

For k = oExcelSheet_ab.Cells(11, 19).Value To oExcelSheet_ab.Cells(13, 19).Value
for i=6 to 8
     req "select * from fiche_universel where per_id '" & k & "'  "
     vrs.Open req, vcon
     ttl = vrs.RecordCount
     oExcelSheet_ab.Cells(i, 5).Value = ttl
     vrs.Close
 Next k
next i

cs_casy · Answer

Ca peut pas marcher, tu ne peux pas croiser 2 boucles For Correction :

For k = oExcelSheet_ab.Cells(11, 19).Value To oExcelSheet_ab.Cells(13, 19).Value For i = 6 to 8 req = "select * from fiche_universel where per_id = '" & k & "' " vrs.Open req, vcon ttl = vrs.RecordCount oExcelSheet_ab.Cells(i, 5).Value = ttl vrs.Close Next i Next k

Coloration syntaxique automatique ---- Sevyc64 (alias Casy) ----

# LE PARTAGE EST NOTRE FORCE #

monopole · Answer

merci casy mais j ai deja esayé ton code mais ça marche pas , je sais pas comment trouvé cette solution de code ??

cs_Willi · Answer

Qu'est-ce qui ne marche pas ? As-tu une erreur ? As-tu executer ton code en pas-à-pas pour voir ? Quel est le type de ttl ?
Quel est le type de la colonne per_id ? Si il est de type entier alors enlève les simples cotes -> " & k

Donne nous plus de précision.

monopole · Answer

merci a vous mais j ai pu trouvé le code :

 For i = 6 To 30
 k = oExcelSheet_ab.Cells(i, 19).Value
        req "select * from fiche_universel where per_id '" & k & "'  "
        vrs.Open req, vcon
        ttl = vrs.RecordCount
        oExcelSheet_ab.Cells(i, 5).Value = ttl
        vrs.Close
next i

Probleme de boucle for to, next

4 réponses

Votre réponse

Discussions similaires