Boucle For each en VBA
boby87000
Messages postés
132
Statut
Membre
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
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
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
- Instagram for pc - Télécharger - Divers Communication
- Microsoft store download for pc - Guide
- Winrar for pc - Télécharger - Compression & Décompression
5 réponses
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+
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
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
Je comprend strictement rien à ton code, toutefois pour qu'il fonctionne faut au moins que ça soit équilibrer.
A+
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
Et ça...
ça ira jamais... faut faire
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)
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)
