Discussion :

[boby87000]

Bonjour,

Voila mon bout de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[EvaristeGaloisBis]

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.

[Jean-Philippe André]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 tres bien fournie
http://access.developpez.com/faq

Bon courage a toi

[Garuda]

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)

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 !