OVH Cloud OVH Cloud

Mémorisation de valeurs

2 réponses
Avatar
Sébastien.
Bonjour, j'ai un petit souci et j'ai besoin de vos=20
lumi=E8res.

Je voudrais pouvoir m=E9moriser des valeurs via VBA (comme=20
=E7a =E7a parait simple)

par exemple j'ai une requ=EAte qui me sort des valeurs (une=20
colonne animaux =3D> chien, chat, poule...)

le but est d'arriver =E0 ressortir ces valeurs dans Word via=20
des signets, ce que je voudrais c'est pouvoir faire une=20
boucle qui en fonction de mes crit=E8res m=E9morise les=20
valeurs qui me convienne pour tel ou tel signet.

du genre

j'ai achet=E9 un [signet1]
puis un [signet2]

et qui remplacerait en fonction de ma macro

j'ai achet=E9 un chien=20
puis un chat...

ce que je voudrais c'est pouvoir cr=E9er autant de=20
valeurs "signets" que de valeurs dans la table

il me faudrait donc un truc du genre

variable =3D> signet & i qui donnerait les diff=E9rentes=20
valeurs signet1 / signet2 / signet3...

voil=E0 voil=E0, j'esp=E8re que ceci est assez clair... pas=20
s=FBr :-)

merci par avance de votre aide.

S=E9bastien.

2 réponses

Avatar
Père FOURAS
Bonjour,

Je te conseille d'utiliser un tableau dynamique :

Dim i as long
Dim MonTab() as String
Dim rst as DAO.Recordset

Set rst = CurrentDB.OpenRecordSet("Ma Requête")
i=1
Do While rst.EOF = False
Redim Preserve MonTab(i)
MonTAb(i)=rst("MonChamp")
i=i+1
rst.MoveNext
Loop

Ainsi tu as ce que tu veux dans ton tableau.
variable => signet (i)


-----Message d'origine-----
Bonjour, j'ai un petit souci et j'ai besoin de vos
lumières.

Je voudrais pouvoir mémoriser des valeurs via VBA (comme
ça ça parait simple)

par exemple j'ai une requête qui me sort des valeurs (une
colonne animaux => chien, chat, poule...)

le but est d'arriver à ressortir ces valeurs dans Word
via

des signets, ce que je voudrais c'est pouvoir faire une
boucle qui en fonction de mes critères mémorise les
valeurs qui me convienne pour tel ou tel signet.

du genre

j'ai acheté un [signet1]
puis un [signet2]

et qui remplacerait en fonction de ma macro

j'ai acheté un chien
puis un chat...

ce que je voudrais c'est pouvoir créer autant de
valeurs "signets" que de valeurs dans la table

il me faudrait donc un truc du genre

variable => signet & i qui donnerait les différentes
valeurs signet1 / signet2 / signet3...

voilà voilà, j'espère que ceci est assez clair... pas
sûr :-)

merci par avance de votre aide.

Sébastien.


.



Avatar
Sébastien.
Merci bcp, je vais essayer ça.

Sébastien.


-----Message d'origine-----
Bonjour,

Je te conseille d'utiliser un tableau dynamique :

Dim i as long
Dim MonTab() as String
Dim rst as DAO.Recordset

Set rst = CurrentDB.OpenRecordSet("Ma Requête")
i=1
Do While rst.EOF = False
Redim Preserve MonTab(i)
MonTAb(i)=rst("MonChamp")
i=i+1
rst.MoveNext
Loop

Ainsi tu as ce que tu veux dans ton tableau.
variable => signet (i)


-----Message d'origine-----
Bonjour, j'ai un petit souci et j'ai besoin de vos
lumières.

Je voudrais pouvoir mémoriser des valeurs via VBA (comme
ça ça parait simple)

par exemple j'ai une requête qui me sort des valeurs
(une


colonne animaux => chien, chat, poule...)

le but est d'arriver à ressortir ces valeurs dans Word
via

des signets, ce que je voudrais c'est pouvoir faire une
boucle qui en fonction de mes critères mémorise les
valeurs qui me convienne pour tel ou tel signet.

du genre

j'ai acheté un [signet1]
puis un [signet2]

et qui remplacerait en fonction de ma macro

j'ai acheté un chien
puis un chat...

ce que je voudrais c'est pouvoir créer autant de
valeurs "signets" que de valeurs dans la table

il me faudrait donc un truc du genre

variable => signet & i qui donnerait les différentes
valeurs signet1 / signet2 / signet3...

voilà voilà, j'espère que ceci est assez clair... pas
sûr :-)

merci par avance de votre aide.

Sébastien.


.

.