PARCOURIR LES COLONNES EN VBA
(Posted 2014-01-13 16:57:43 by Julien Sansonnens)

En VBA, par exemple sous MS-Access, pour parcourir les colonnes puis les
lignes d'un dataset, on peut utiliser le code suivant:
[code lang="vb"]Function parcourt_colonne()

' parcourt les colonnes puis les lignes
Set monRs = DBEngine.Workspaces(0).Databases(0).OpenRecordset("SELECT
* FROM tbdPBPER_sans_ordre WHERE tbdPBPER_sans_ordre.Cas_No=1;")
ligne = 1
monRs.MoveFirst
Do While Not monRs.EOF
    For i = 0 To monRs.Fields.Count - 1

        MsgBox "ligne no " & ligne & " intitulé de
la colonne = " & monRs.Fields(i).Name
    Next
    ligne = ligne + 1
    monRs.MoveNext
Loop

Set monRs = Nothing 'libération de l'objet

End Function[/code]

--------

There are no comments on this post.


To submit a comment on this post, email julien@jsansonnens.ch or visit us
on the web [ https://jsansonnens.ch ].
.