Microsoft 365 For avec des variables non consécutives

youguybass à dit:

Bonsoir
En admettant que j'ai une variable A que je voudrais utiliser dans une boucle For
Cette variable A, doit se balader sur les valeurs 1,2,6,8,9,15 ... bref des valeurs non consécutives
Comment dire que A doit avoir toutes ces valeurs?
Et comment faire la boucle ensuite?

D'avance merci

VB:

For A = 1 To A
    .Cells(A + 6, 1) = ListView1.ListItems(A).SubItems(1)
    next

Cliquez pour agrandir...

Dim A as Variant, i as Long
    A = Array(1,2,6,8,9,15)
    For i = LBound(A) To UBound(A)
       .Cells(i + 6, 1) = ListView1.ListItems(i).SubItems(1)
    Next i

mapomme à dit:

Bonjour à tous,

Ou encore :

VB:

   For Each x In Array(1, 2, 6, 8, 9, 15)
      .Cells(x + 6, 1) = ListView1.ListItems(x).SubItems(1)
   Next

Cliquez pour agrandir...