Discussion :

[NiKoTiNe]

Bonjour à tous :

Est-il possible en vba de faire une boucle de type "for" avec des valeurs spécifiques ?

Je m'explique :

For i = 1 to 10 va faire la boucle avec les valeurs de 1 à un 10.

J'aimerai un truc du genre For i in List (avec List = [1,3,4,35,76])

Est-ce possible, qu'elle est la nomenclature ?

Merci d'avance pour votre aide et bonne journée

[NiKoTiNe]

Voilà le code que j'ai essayé de faire mais il fonctionne pas. Je pense que ma liste n'est pas définie de manière correcte :

Code :

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

1
2
3
4
5
6
7
8
Function test()
Dim i As Integer
 
For Each i In [2,3,4,5]
    MsgBox (i)
Next i
 
End Function

[totofe]

je pense que tu peut créer un tableau avec tes valeurs et à la place d'utilisé i comme valuer tu l'utilise comme l'index de ton tableau

[MasterSleepy]

Salut,

Ceci devrait fonctionner :

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub test()
    Dim i As Variant
 
    For Each i In Array(2, 5, 7, 9)
        MsgBox i
    Next i
 
End Sub

A+,
MasterSleepy.

[NiKoTiNe]

Cool ca marche nickel !

Merci bien ça fait 20 minutes que je bidouille pour trouver la formule qui marche!

Encore merci et bonne journée

[morest]

Salut,
Je suis tombé sur ce post car je cherche à faire la même chose mais lorsque j'utilise cette méthode sur mon code qui utilise plein de GOTO, j'obtiens un Runtime 10 car l'array est fixe ou temporairement bloqué.
Quelqu'un aurait une solution alternative?
Mon but est de boucler avec FOR sur les valeurs suivantes 0.5 / 1 / 2 / 3 / 4 / 5 / 6.
Merci d'avance pour toute aide.
@+

[tee_grandbois]

Bonjour,
évidemment, tu penses que sans le code (qui plus est, avec des GOTO tout partout, selon tes dires) on est capable de te dire où çà coince ? Oui c'est possible, mais pas sans boule de cristal ...

[moulinois03000]

Bonjour,

Je rencontre le même soucis, mais la solution donnée (en 2016, peut-être y a-t-il eu du changement dans la syntaxe) ne fonctionne pas chez moi...

Si j'écris "manuellement"

Code :

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

1
2
3
4
5
 
For o = 1 To 3
    Cells(o, 11) = Cells(o, 11) / m
    Cells(o, 13) = Cells(o, 13) / m
    Cells(o, 27) = Cells(o, 27) / m

Tout fonctionne parfaitement.

Par contre, si je code

Code :

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

1
2
3
4
5
6
 
For o = 1 To 3
        For Each p In Array(11, 13, 27)
        Cells(o, p) = Cells(o, p) / m
        Next
Next

VBA me met en jaune la ligne 4...

Bien sûr j'ai allégé pour l'exemple la liste, je dois faire la boucle sur une quinzaine de valeurs, alors si je peux alléger un peu et ne pas avoir à recopier 15 fois la même commande...

Une idée ?

Merci d'avance !

[User]

Bonsoir,

C'est possible d'avoir le message d'erreur ?

[moulinois03000]

Bonjour,

La voici, "Erreur d'exéctution '13' : incompatibilité de type.



Merci d'avance !

[User]

Bonjour,

vérifiez si vous n'avez pas une cellule vide ou du texte dedans.

Cdlt,

[moulinois03000]

Bonjour,

Merci pour ce retour, qui a mis le doigt sur une des coquilles les plus bêtes que j'ai pu faire en vba : j'ai un peu simplifié le code pour écrire mon post initial : mon paramètre "o" ne va pas de 1 à 3 mais de "l" à "l+m-1", sauf que... le "1" et le "l" se ressemblent énoooooooooormément dans mon éditeur vba...

Donc depuis le début la synthaxe de

Code :

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

1
2
3
4
5
6
 
For o = l To l + m - 1
        For Each p In Array(5, 7, 9, 11, 13, 27, 32, 33, 34, 35, 36, 37, 38, 39, 40)
        Cells(o, p) = Cells(o, p) / m
        Next
 Next

fonctionnait bien, j'avais juste par mégarde tapé "For o = 1 to l+m-1" au lieu de "For o = l to l+m-1"...

En effet cela faisait bien une partie de l'opération sur du texte, d'où le message d'erreur.

Merci donc pour ta réponse !

Moulinois

PS : si cela peut servir à quelqu'un par la suite, j'ai remplacé la seconde partie de mon Array (32, 33, 34, 35, ...) par

Code :

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

1
2
3
4
 
For Each cell In Range("AH" & l & ":AP" & l + m - 1)
        cell.Value = cell.Value / m
Next

[deedolith]

Hello,

Sauf erreur de ma part, tu peux modifier les polices de caractères utilisées par l'éditeur.
Peut-être en choisir une qui te permet de faire une meilleur distinction entre les caractères "graphiquement proche" ?

[moulinois03000]

En effet c'est possible et c'est ce que j'ai fait, histoire que la boulette ne m'arrive pas à nouveau