Une boucle qui ne boucle pas

[Magic_Doctor]

Bonsoir,

J'ai la boucle suivante :

Sub boucle()

Dim i As Byte, x As Range, ad As String

For i = 0 To [FréquenceItem].Value
i = i + 1
Set x = Evaluate("EnTête")
ad = ADRESSEPLAGE(Range(x), [ChxItem], i, 1)
Next i

[ResultatBoucle] = ad 'Feuille "Items"

End Sub

Quand je déclenche la boucle, je devrais normalement avoir dans la cellule "ResultatBoucle" la dernière valeur de "ad".
Je n'obtiens strictement rien.
En revanche si j'écris : ad = ADRESSEPLAGE(Range(x), [ChxItem], 1, 1)
(autrement dit j'affecte à i sa première valeur, qui, ne peut prendre que 4 valeurs : 1 à 4)
j'obtiens bien le résultat escompté.

Qu'aurais-je oublié dans la boucle pour qu'elle fonctionne ?

 

[Misange]

Re : Une boucle qui ne boucle pas

Bonjour
enlève ton i=i+1 !

 

[Bebere]

Re : Une boucle qui ne boucle pas

bonjour Magic_doctor,Misange
For i = 1 To [FréquenceItem].Value
'i = i + 1 à supprimer
tu dis i peut prendre 4 valeurs 1 à 4

 

[Magic_Doctor]

Re : Une boucle qui ne boucle pas

Misange, Bebere,

Merci !

Étourderie fatale, il fallait bien ne pas mettre i = i + 1.

Bonne soirée y muchas gracias.