XL 2021 incrementation de variable dans une boucle for next

Utilisateur222.222 · 10 Janvier 2024

Bonjour à tous,

Je recherche de l'aide car je crée une macro, dans laquelle j'ai des facteurs a0; a1; . . . ; a10

Ces facteurs sont tous différents en fonction du cas rencontré ( 5 cas au total pour lesquels j'ai utilisé un case).

Mais à l'intérieur de chaque case,je souhaite créer une boucle for Next ( avec les bons numeros de lignes à aller chercher en fonction du cas).

Par exemple j'ai essayé :

For i =3 To 10
a = a + i
a = Range("B" + i) (ici, si on est au 1er tour de la boucle dans mon fichier par exemple, je souhaiterais avoir : a1 =2,0003
Next i

Pourriez vous m'aider svp?

patty58 · 10 Janvier 2024

Bonjour,
Je n'ai pas vraiment compris ce que tu veux.
Vois si cela peut te mettre sur une voie.

VB:

Sub trait()
Dim TabFac(8, 1) As Variant
numa = 0
For i = 3 To 10
    numa = numa + 1
    TabFac(numa, 1) = "a" & numa & "/" & Range("B" & i)
Next i
For i = 1 To 8
    Resultat = Split(TabFac(i, 1), "/")
    MsgBox Resultat(0) & " égal " & Resultat(1)
Next i
End Sub

Sinon, sois plus précis.
Bonne fin de journée

Nairolf · 10 Janvier 2024

Salut tout le monde,

Je rejoins patty58, sans fichier précis, il va être difficile de répondre précisément.

Donc en imaginant à ma manière, je te propose ceci :

Code:

Dim a(8)
...
For i =1 To 8
a(i) = Range("B" & (3+(k-1)*11+i-1))
'k = numéro du cas traité
Next i

A noter qu'il y a des valeurs de a1 à a8 selon ton fichier exemple et que la structure des valeurs doit toujours être identiques d'un cas à l'autre (nombre de ligne entre en-tête de cas).

Gégé-45550 · 10 Janvier 2024

Utilisateur222.222 à dit:
Bonjour à tous,

Je recherche de l'aide car je crée une macro, dans laquelle j'ai des facteurs a0; a1; . . . ; a10

Ces facteurs sont tous différents en fonction du cas rencontré ( 5 cas au total pour lesquels j'ai utilisé un case).

Mais à l'intérieur de chaque case,je souhaite créer une boucle for Next ( avec les bons numeros de lignes à aller chercher en fonction du cas).

Par exemple j'ai essayé :

For i =3 To 10
a = a + i
a = Range("B" + i) (ici, si on est au 1er tour de la boucle dans mon fichier par exemple, je souhaiterais avoir : a1 =2,0003
Next i

Pourriez vous m'aider svp?

Bonsoir,
Comme les amis précédents, je vois mal la finalité de la chose.
En attache, un exemple de ce qu'on peut faire.
Cordialement,

XL 2021 incrementation de variable dans une boucle for next

Utilisateur222.222

XLDnaute Nouveau

Pièces jointes

patty58

XLDnaute Occasionnel

Nairolf

XLDnaute Accro

Gégé-45550

XLDnaute Accro

Pièces jointes

Discussions similaires