Boucle For each en VBA

boby87000 Messages postés 113 Date d'inscription Statut Membre Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention - 26 août 2010 à 00:46

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

A voir également:

Boucle For each en VBA
Downloader for pc - Télécharger - Téléchargement & Transfert
Idm for mac - Télécharger - Téléchargement & Transfert
Copytrans heic for windows - Télécharger - Visionnage & Diaporama
Instagram for pc - Télécharger - Divers Communication
Microsoft store download for pc - Guide

5 réponses

Réponse 1 / 5

boby87000 Messages postés 113 Date d'inscription Statut Membre Dernière intervention

qui peut m'aider?

Réponse 2 / 5

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

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+

Réponse 3 / 5

boby87000 Messages postés 113 Date d'inscription Statut Membre Dernière intervention

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

Réponse 4 / 5

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

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+

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

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)

Discussions similaires

Mon ordinateur s'allume et s'eteint en boucle

Mon pc s'allume et s'éteint en boucle

Erreur d'exécution 13 Incompatibilité de type

tele s'eteind et s'allume en boucle

Redmi redémarre en boucle - Fastboost impossible

Votre réponse

Discussions similaires