Microsoft 365 For avec des variables non consécutives

[youguybass]

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

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

 

[Gégé-45550]

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

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

Bonsoir,
une proposition :

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

Cordialement,

 

[Dranreb]

Bonsoir.

For N = 1 To 6
    A = Choose(N, 1, 2, 6, 8, 9, 15)
    .Cells(A + 6, 1) = ListView1.ListItems(A).SubItems(1)
    next N

 

[youguybass]

Bonjour Gege & Dranreb.
Merci à tous les 2 pour votre retour.
J'ai pu tester et c'est bon.
Merci

 

[mapomme]

Bonjour à tous,

Ou encore :

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

 

[youguybass]

Bonjour à tous,

Ou encore :

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

Merci pour votre retour
Slts