[VBA] Faire un boucle dans le code

Question

Bonjour,

J'ai voulu créer un boucle capable de faire la même procédure pour chaque macro. Or je ne sais pas comment faire pour simplifier les choses et s'il y a des fautes de syntaxe. En effet, quand j'ai voulu exécuter la macro ci-dessous, les erreurs de compilation s'affichent: tableau attendu ou encore next sans for. Quelqu'un pourra-il voir ce qui n'allait pas dans mon code? Merci.

Mon code actuel:

Sub Macro1()

'Conversion du libellé GB en libellé FR
'
Dim vecteur_GB(1 To 6) As String
Dim vecteur_FR(1 To 6) As String
Dim j As Single

'Sheets("Base").Select
'Range("B2").Select

For j = 1 To 6
vecteur_GB(j) = Sheets("Base").Range("B2").Offset(j - 1, 0).Value
Next j

For j = 1 To 6
If vecteur_GB(j) = "Déjeuner" Then
vecteur_FR(j) = "Dîner"
ElseIf vecteur_GB(j) = "Matin" Then
vecteur_FR(j) = "Soir"
End If
Next j

For j = 1 To 6
Sheets("Base").Range("J2").Offset(j - 1).Value = vecteur_FR(j)
Next j

' Conversion des libellés CH en libellé PL

Dim vecteur_CH(1 To 6) As String
Dim vecteur_PL(1 To 6) As String
Dim k As Single

'Sheets("Base").Select
'Range("C2").Select

For k = 1 To 6
vecteur_CH(k) = Sheets("Base").Range("C2").Offset(k - 1, 0).Value
Next k

For k = 1 To 6
If vecteur_CH(k) = "AB" Then
vecteur_PL(k) = "CD"
ElseIf vecteur_CH(k) = "EF" Then
vecteur_PL(k) = "GH"
ElseIf vecteur_CH(k) = "IJ" Then
vecteur_PL(k) = "KL"
End If
Next k

For k = 1 To 6
Sheets("Base").Range("K2").Offset(k - 1).Value = vecteur_PL(k)
Next k

End Sub

Par ailleurs, si on veut remplacer les données d'une feuille sur une autre feuille, suffira-t-il de remplacer le mot "base" par le nom d'un autre onglet dans lequel contiennent les données de départ?

Kobaya · Accepted Answer

voici les deux boucles fusionnées en une seule :

Sub Macro1()
    Dim vecteur_GB(1 To 6)  As String
    Dim vecteur_FR(1 To 6)  As String
    Dim vecteur_CH(1 To 6)  As String
    Dim vecteur_PL(1 To 6)  As String
    Dim j                   As Single
    
    For j = 1 To 6
        vecteur_GB(j) = Sheets("Base").Range("B2").Offset(j - 1, 0).Value
        vecteur_CH(j) = Sheets("Base").Range("C2").Offset(j - 1, 0).Value
    Next j
    For j = 1 To 6
        Select Case vecteur_GB(j)
            Case "Déjeuner"
                vecteur_FR(j) = "Dîner"
            Case "Matin"
                vecteur_FR(j) = "Soir"
        End Select
        
        Select Case vecteur_CH(j)
            Case "AB"
                vecteur_PL(j) = "CD"
            Case "EF"
                vecteur_PL(j) = "GH"
            Case "IJ"
                vecteur_PL(j) = "KL"
        End Select
    Next j
    For j = 1 To 6
        Sheets("Base").Range("J2").Offset(j - 1).Value = vecteur_FR(j)
        Sheets("Base").Range("K2").Offset(j - 1).Value = vecteur_PL(j)
    Next j
End Sub

Par contre, je ne comprends pas "si les conditions AB et 12 sont remplies". La valeur 12 est-elle contenue dans une variable ? Est-ce du texte (String) ou du numérique (Integer ou Byte) ?

Kobaya · Answer

salut ecnet,je n'ai eu eucun pb avec ton code.oui, en changeant le nom de la feuille (entre guillemets), tu pourras utiliser ton code pour une autre feuille.

ecnet · Answer

Merci pour ton aide. J'ai réssayé mon code et effectivement, ça marche.

J4ai pourtant encore une question qui reste en suspens, quel code dois-je ajouter si:

If vecteur_CH(k) = "AB" and "12" Then
vecteur_PL(k) = "CD"

Traduction de ce que j'aimerais faire: si les conditions AB et 12 sont remplies, alors on remplacera la cellule k par CD.

J'ai aussi une deuxième question: comment tu as pu voir dans mon code précédent, j'ai un certain nombre de macros qui font la même chose: for i=1 to 3000, etc. Comment écrire en une fois cette partie pour ne pas répéter à chaque fois lorsque'on écrit un macro?

Merci beaucoup!

ecnet · Answer

Le code est devenu effectivement beaucoup plus léger d'un coup.

Je reformule ma deuxième question autrement:

Dans le code que tu vu pour la première fois, je prends l'exemple de "If vecteur_CH(k) = "AB" Then
vecteur_PL(k) = "CD"
...

Ce que je voulais faire maintenant, c'est de pouvoir ajouter une condition dans "If vecteur_CH = "AB" (et "GH" dans une cellule d'une autre colonne mais de la même ligne) Then
vecteur_PL(k) = "CD"

Quelle bon code dois-je entrer?

Suffit-il d'ajouter comme suit: If vecteur_CH = "AB" and "GH"..., mais ça ne marche pas? ou alors il faudrait que je fais:

For k=1 To 6
vecteur _CH(k) = Sheets("Base").Range("C2" et "P2").Offset(k-1,0).Value
Next k

NB: "P2" étant cette "autre" colonne

J'espère que tu pourras m'aider sur ce point.

Kobaya · Answer

dans ce cas, il faut créer un tableau supplémentaire (ex. vecteur_X() qui sera initialisé avec les valeurs contenues dans la colonne P), et le test doit avoir 2 comparaisons :

If vecteur_CH(j) = "AB" and vecteur_X(j) = "GH' Then
   ...
End If

ecnet · Answer

Si je fais:

Select Case vecteur_CH(j)
Case "AB" and vecteur_X(j) = "GH'
vecteur_PL(j) = "CH"
...
End If

Il y a un problème de définiton du vecteur_X(j).

Apparemment, il faut définir le vecteur_X(j), mais comment si je reprends ton code que tu m'avais donné? Sous quelle synthaxe dans la boucle? En écrivant:
vecteur_X(j) = Sheets("Base").Range("A2").Offset(j - 1, 0).Value, ça ne marche pas? Pourquoi?

[VBA] Faire un boucle dans le code

6 réponses

Discussions similaires

Newsletters