XL 2021 incrementation de variable dans une boucle for next

Utilisateur222.222

XLDnaute Nouveau
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?
 

Pièces jointes

  • boucle_for_next.xlsx
    8.8 KB · Affichages: 10

patty58

XLDnaute Occasionnel
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

XLDnaute Accro
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

XLDnaute Accro
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,
 

Pièces jointes

  • boucle_for_next.xlsm
    28.9 KB · Affichages: 6

Statistiques des forums

Discussions
313 258
Messages
2 096 615
Membres
106 684
dernier inscrit
ekouepatrick