3 boucles imbriquées
GillHop
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Morgothal Messages postés 1350 Statut Membre -
Morgothal Messages postés 1350 Statut Membre -
Bonjour,
Je suis sous Excel 2003 et je suis coincé par une boucle imbriquée !
sur ma feuille j'ai 3 tableaux :
[Tabl1] de A2 à A15 une série de lettres A, B, C, D, E, F, G, K, M, N, Q, S, U, W
[Tab2] de A 19 à A32 une première série A. Lib1, B. Lib2, C. Lib3, ... W. Lib14 (La 1ère lettre correspond au tableau supérieur
[Tab3] de B2 à B58 une seconde série A.01 Lib1, A.02 Lib2, A.03 Lib3, B.01 Lib4, C.01 Lib5, C.02 Lib6
J'aimerai faire comprendre à VBA que
"Tant que la lettre de [Tabl 1] est égal au premier caractère de [Tabl 2]
"Tabl2 boucle sur les 4 1er caractères de [Tabl 3]
"Tabl 3 affiche les seules fiches qui commencent par A.01 puis celles qui commencent par A.02.... puis B.01
J'espère avoir été clair... (?)
Merci à tous pour votre aide
Je suis sous Excel 2003 et je suis coincé par une boucle imbriquée !
sur ma feuille j'ai 3 tableaux :
[Tabl1] de A2 à A15 une série de lettres A, B, C, D, E, F, G, K, M, N, Q, S, U, W
[Tab2] de A 19 à A32 une première série A. Lib1, B. Lib2, C. Lib3, ... W. Lib14 (La 1ère lettre correspond au tableau supérieur
[Tab3] de B2 à B58 une seconde série A.01 Lib1, A.02 Lib2, A.03 Lib3, B.01 Lib4, C.01 Lib5, C.02 Lib6
J'aimerai faire comprendre à VBA que
"Tant que la lettre de [Tabl 1] est égal au premier caractère de [Tabl 2]
"Tabl2 boucle sur les 4 1er caractères de [Tabl 3]
"Tabl 3 affiche les seules fiches qui commencent par A.01 puis celles qui commencent par A.02.... puis B.01
J'espère avoir été clair... (?)
Merci à tous pour votre aide
A voir également:
- 3 boucles imbriquées
- Ai suite 3 - Télécharger - Optimisation
- Picasa 3 - Télécharger - Albums photo
- Photorecit 3 - Télécharger - Visionnage & Diaporama
- Zelda 3 - Accueil - Guide jeu vidéo
- Diviser une photo en 3 instagram - Guide
4 réponses
Salut,
Pourrais-tu joindre une copie de ton classeur (via cjoint.com par exemple) pour nous éviter de reconstruire ton classeur ?
Pourrais-tu joindre une copie de ton classeur (via cjoint.com par exemple) pour nous éviter de reconstruire ton classeur ?
http://cjoint.com/?BJCvcsWDeCk
Voilà le lien vers lefichier.
ps : le premier tableau (A, B C...) ne me servirait à rien d'autre qu'à la boucle qui recherche le "A", "B" qui se trouve à gauche de chaque libellé
Merci
Voilà le lien vers lefichier.
ps : le premier tableau (A, B C...) ne me servirait à rien d'autre qu'à la boucle qui recherche le "A", "B" qui se trouve à gauche de chaque libellé
Merci
Bonjour,
Au passage, vous parlez de VBA avec une boucle..., il n'y a pas de procédure VBA dans votre fichier ...!
En plus les tableaux ne correspondent pas à la description du premier message.... !
Salutations.
Le Pingou
Au passage, vous parlez de VBA avec une boucle..., il n'y a pas de procédure VBA dans votre fichier ...!
En plus les tableaux ne correspondent pas à la description du premier message.... !
Salutations.
Le Pingou
Je plussoie Le Pingou, je ne retrouve pas les tableaux de la question dans le fichier joint...
Mais ce me semble pas si compliqué :
Par contre je n'ai pas compris la suite ? Il faut afficher les produits correspondants à un fournisseur ? à une catégorie ?
Mais ce me semble pas si compliqué :
Sub boucles()
Dim ligne_tab1 As Integer
Dim ligne_tab1max As Integer
Dim ligne_tab2 As Integer
Dim ligne_tab2max As Integer
'Dim ligne_tab3 As Integer
'Dim ligne_tab3max As Integer
ligne_tab1max = Range("B500").End(xlUp).Row
ligne_tab2max = Range("C500").End(xlUp).Row
ligne_tab3max = Range("H500").End(xlUp).Row
ligne_tab2 = 3
For ligne_tab1 = 3 To ligne_tab1max
While Left(Cells(ligne_tab1, 2), 1) = Left(Cells(ligne_tab2, 3), 1)
'on boucle donc sur chaque catégorie correspondant au fournisseur :
MsgBox Cells(ligne_tab1, 2) & vbCr & Cells(ligne_tab2, 3)
ligne_tab2 = ligne_tab2 + 1
Wend
Next
End Sub
Par contre je n'ai pas compris la suite ? Il faut afficher les produits correspondants à un fournisseur ? à une catégorie ?
