Discussion :

[Raphou96]

Bonjour à tous,

après plus d'une heure de recherche, je n'ai pas trouve de solution simple à mon soucis et peut être pourrez vous m'aider.

J'ai une table "toto" à 3 colonne "A" "B" et "C"
avec 10 lignes

En Vba avec un code simple j'aimerai affecter à une variable grâce à un compteur "1à10" ce qui se trouve dans la colonne "B"

Avez vous un petit code simple pour cela ?

[Tofalu]

Un tutoriel complet sur la manipulation des données en VBA

http://warin.developpez.com/access/dao/

[Raphou96]

Merci de la réponse en une heure de recherche, je suis tombé sur cette page mais cela ne m'a pas aidé, voila pourquoi j'ai demandé sur le forum si quelqu'un avait un code simple de 2 -3 lignes
Merci

[Tofalu]

Il n'y a pas de code simple pour ce que tu souhaites faire. Tu es obligé de passer par un objet recordset (jeu d'enregistrements) et de parcourir l'ensemble des 10 lignes à l'aide des méthodes Move et MoveNext

Ou bien encore une lecture par bloc dans un tableau à l'aide de getrows

[Raphou96]

Ok merci de tes réponses, je vais me repasser le tutorial avec les élements que tu viens de me donner afin d'arriver au bon résultat.
Si je l'obtiens, j'en mettrai une copie ici.

[Raphou96]

Voila le code

Sub Pour_Forum()
Dim Cpt As Integer
Dim Var As String
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database

Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("SELECT * FROM Toto", dbOpenSnapshot, dbDenyWrite, dbReadOnly)

For Cpt = 1 To 10

Var = oRst.Fields("B").Value

MsgBox Var

oRst.MoveNext

Next Cpt

End Sub

Merci de ton aide qui m'a aidé à aller sur la bonne voie !