Boucle For each en VBA Fermé

Question

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

boby87000 · Answer

qui peut m'aider?

lermite222 · Answer

Bonjour,
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+

boby87000 · Answer

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

lermite222 · Answer

Je 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+

lermite222 · Answer

Et ça...  
 If (db1 And db3) = db2.Name Then
ça ira jamais... faut faire  
 If 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)

Boucle For each en VBA

5 réponses

Discussions similaires