Discussion :

[SIGMIC]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gnain]

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

en vba il faut déclarer les variables comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim numbers(3) As Integer

et leur affecter des valeur plus loin

[clementmarcotte]

Bonjour,

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

[SIGMIC]

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

[gnain]

Il vous faut une boucle dans une boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SIGMIC]

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" ?

[gnain]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiki29]

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

[Theze]

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é.

[SIGMIC]

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!