Boucle For each en VBA
Bonjour,
Voila mon bout de code:
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
Voila mon bout de code:
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
5 réponses
-
qui peut m'aider?
-
ContributeurBonjour,
Buzarre ton code, tu parle de database mais il n'est nullement question des fonctions pour pour une DB.
Ce serait pas plutôt que tu veux transformer un fichier texte ou csv ?
A+ -
ceci est juste un bout de code.
Pas de probleme pour la base.
Mon soucis je veux rajouter dans le "FOR EACH" db3 afin de pouvoir faire mon traitement.
Merci pour votre reponse -
ContributeurJe comprend strictement rien à ton code, toutefois pour qu'il fonctionne faut au moins que ça soit équilibrer.
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 End If Next db2 Next db1
A+
-
ContributeurEt ça...
If (db1 And db3) = db2.Name Then
ça ira jamais... faut faireIf db1.Name = db3.Name = db2.Name Then
Si ce sont les noms ?
sinon faut faire de conditions séparées.
Ca m'étonnerais que quoi que ce soit fonctionne...
tu dis DB !!!!!! si ça ressemble à une DB..
Split(Cells(Line, DBCol).value, DBSeparator)
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
