Boucles imbriquées (nested loops)

Bonsoir,

Je n'arrive pas à faire tourner le petit bout de macro suivant sans que les lignes "Dim" viennent en rouge en pointant sur le signe "=" (fin d'instruction attendue ou erreur de syntaxe):

Code:

---

1 2 3 4

Dim numbers() As Integer = {1, 4, 7} Dim letters() As String = {"a", "b", "c"} For Each number As Integer In numbers<div style="margin-left:40px">For Each letter As String In letters</div><div style="margin-left:80px">Debug.Write(number.ToString & letter & " ")</div><div style="margin-left:40px">Next</div>Next Debug.WriteLine("")

---

Un tout grand à mon sauveur.
Bien cordialement
Michel

en vba ce n'est pas pareil à vb.net

en vba il faut déclarer les variables comme ceci

Code:

---

Dim numbers(3) As Integer

---

et leur affecter des valeur plus loin

Bonjour,

Citation:

---

Envoyé par gnain

en vba ce n'est pas pareil à vb.net

---

Maudit !!!!!!!!!!!! Surtout que, même si je le sais, je me fais prendre à tout coup. ;)

Et puis, c'est cette habitude de VBA de piquer une crise quand on laisse un trou à droite du signe = le temps de faire un copier-coller ou un glisser-déposer

Merci gnain!

Je n'avais rien trouvé d'autre sur Internet pour répondre à mon besoin et j'avais tenté de m'inspirer de ces lignes de code.
Je pense qu'il soit dans ce cas préférable de préciser mon besoin:

J'ai un certain nombre d'opérations à effectuer en boucle, mais cette partie ne pose pas de problème.
Maintenant ce bloc d'opérations doit être effectué pour une trentaine de pays (AUT, FRA, CAN, etc.) et, pour chaque pays, une dizaine de marques (ROL, CAR, etc.).
La boucle doit prendre le premier pays (AUT) et effectuer pour chacune des marques le bloc d'opérations (AUT et ROL, AUT et CAR, AUT et ..., etc.).

J'aimerais donc pouvoir lister ces pays et ces marques pour que la macro traite le bloc d'opérations à chacun des pays-marques (il prend le premier pays et passe toutes les marques, puis prend le deuxième pays et passe toutes les marques, etc.).

Je serais bien reconnaissant d'obtenir encore un bout de réponse à ce sujet.
Un tout grand merci par avance!

Cordialement
Michel

Il vous faut une boucle dans une boucle

Code:

---

1 2 3 4 5 6 7

For i = 1 to NB_DE_Pays   For j = 1 to NB_Marque 'récupération pour pays(i) les marque(j) next j   next i

---

Merci gnain. J'avais compris la logique de cette fonction de boucles imbriquées dans mon manuel visual basic. Mon véritable problème (de débutant...) se situe dans la liste des pays et des marques, à quel endroit puis-je les faire figurer? Après les "Dim" ?

Ce code liste tout les marque pour chaque pays colonne A pour pays et colonne B pour marque

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Sub test()   Dim Pays(2) As String Dim Marque(3) As String Dim ligne As Integer   Pays(0) = "Canada" Pays(1) = "US" Pays(2) = "Suisse"   Marque(0) = "Marque_1" Marque(1) = "Marque_2" Marque(2) = "Marque_3" Marque(3) = "Marque_4"   ligne = 0   For i = 0 To 2 For j = 0 To 3 Cells(ligne + 1, 1).Value = Pays(i) Cells(ligne + 1, 2).Value = Marque(j) ligne = ligne + 1 Next j Next i   MsgBox "fin"   End Sub

---

Salut, à consulter : Utiliser les variables tableaux en VBA Excel

Bonjour,

Ce qui serait intéressant de savoir, c'est comment sont organisées tes données dans ton classeur et quelle opération tu cherche à faire, ceci éviterai des réponses tout azimut.

Hervé.

Bonjour,

Un grand merci à 'gnain', c'est exactement ce qu'il me fallait. Je pensais que l'on pouvait les lister à la suite comme dans mon tout premier message.
Merci également aux autres intervenants! Je vais élargir mes connaissances en me plongeant dans les 'variables tableaux en VBA Excel'.
Concernant la précision de la question, j'avais volontairement omis de mentionner les opérations répétées sur lesquelles je n'avais pas de question. Mais bon, j'y penserai au mieux à chaque fois.


Bonne journée et semaine à tous!