Boucle For each en VBA

Bonjour,

Voila mon bout de code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim dbuser1 As Variant ' Dim db3 As Variant Dim db2 As IAdDatabase Dim dbFound As Boolean   For Each db1 In Split(Cells(Line, DBCol).value, DBSeparator)   dbFound = False For Each db2 In user.SubscribedDatabases 'If (db1 And db3) = db2.Name Then If db1 = db2.Name Then dbFound = True Exit For End If Next

---

L' idée est d'inclure aussi la variable dans la boucle "For Each".

Comment je fais? quelqu'un peut m'aide ? je suis un debuttant en VBA.

Merci bien pour reponse

Peux tu être plus... explicatif? je ne comprends pas trop ce que tu veux faire.
Mais pourquoi passes tu par des boucle for each? coté perf y a mieux, surtout que tu fais le split a chaque passage!
De même pense a indenter ton code... ça permet de mieux comprendre tes boucles.

Bonjour,
bienvenue sur DVP :salut: (1er post meme si une presence depuis 18 mois :mrgreen:)
en lieu et place du For Each, je te recommande plutot une syntaxe comme celle-ci :

Code:

---

1 2 3 4 5 6

Dim i As Integer Dim tmp As Variant temp = Split(Cells(Line, DBCol).value, DBSeparator) For i = 0 to UBound(temp) 'ton code Next i

---

D'autre part, utiliser un

Code:

---

Exit For

---

comme tu sembles le faire me parait maladroit, dans la mesure ou tu sors de facon "brutale" d'une boucle. Aussi je pencherais plus pour un forcage de ton increment. En utilisant le code donne plus haut, ca serait un simple

Code:

---

i = UBound(temp)

---

et tu sors de la boucle.

Concernant les notions de VBA, je t'encourage a consulter les nombreux tutoriaux disponibles sur
http://access.developpez.com/cours
ainsi que la :faq: tres bien fournie
http://access.developpez.com/faq

Bon courage a toi:ccool:

Citation:

---

comme tu sembles le faire me parait maladroit, dans la mesure ou tu sors de facon "brutale" d'une boucle. Aussi je pencherais plus pour un forcage de ton increment. En utilisant le code donne plus haut, ca serait un simple
Code :
i = UBound(temp)

---

:aie:
Le forcage d'indice de boucle est AUSSI MALADROIT qu'un EXIT FOR, voir plus car la sortie n'est pas EXPLICITE !!!!!!!!!!!
Le mieux, c'est la boucle WHILE !