Problème avec une boucle fornext

Bonsoir,

J'aimerais remplir une colonne avec des nombres décroissants Pièce jointe 526528.

J'utilise la boucle suivante:

Code:

---

1 2 3

For toto = nbvirole To 1 Step -1 Cells(toto * 3 - 1, 1).Value = "V" & toto Next toto

---

nbvirole=7

Mais par je ne sais quel sortilège, j'obtiens le résultat suivantPièce jointe 526525

Si quelqu'un pouvait m'aiguiller, ça serait un beau cadeau de Noël!

Bon réveillon

Bonjour,
Il n'y a aucun sortilège.
Dans ta procédure Toto représente la ligne où tu écris la valeur donc il commence à la ligne Toto * 3 - 1 soit si Toto = 10 pour commencer la boucle (valeur de la variable nbvirole), il va écrire à la ligne 29 la valeur "V 10"

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
Il n'y a aucun sortilège.
Dans ta procédure Toto représente la ligne où tu écris la valeur donc il commence à la ligne Toto * 3 - 1 soit si Toto = 10 pour commencer la boucle (valeur de la variable nbvirole), il va écrire à la ligne 29 la valeur "V 10"

---

Merci de ta réponse
Je ne suis pas sûr de comprendre.

Si je décortique la boucle j'ai:

Code:

---

1 2 3 4 5 6 7

for toto = 7 Cells(20, 1). Value = V & 7 Next   For toto = 6 Cells(17, 1). Value = V & 6 Next

---

Et ainsi de suite. Pourquoi la boucle ne part-elle pas de 7 vers 1?

EDIT: je viens de voir la bêtise que j'ai écrit. Je comprends en fait.

Bonjour,
Mais la boucle part bien de 7 vers 1 mais tu écris à partir de la ligne 7 vers 1 donc tu as l'impression qu'il n'y a pas d'incrémentation négative.
Exécute la procédure pas à pas (touche F8) et tu verras

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
Mais la boucle part bien de 7 vers 1 mais tu écris à partir de la ligne 7 vers 1 donc tu as l'impression qu'il n'y a pas d'incrémentation négative.
Exécute la procédure pas à pas (touche F8) et tu verras

---

J'ai vu ma bêtise en l'écrivant. J'ai bien compris le mécanisme à l'oeuvre pour toto. Par contre je n'arrive vraiment pas voir comment je peux avoir l'ordre de chiffres qui me convient. Je ne veux pas forcément une réponse toute faite, mais quelle piste devrais-je explorer? La définition d'une deuxième variable et donc d'une deuxième boucle?

Bonjour,
Il ne faut pas deux boucles. Ce n'est plus de l'informatique mais de l'arithmétique

Code:

---

1 2 3 4 5 6 7 8

Sub t() Dim Row As Long Dim MaxRow As Long MaxRow = 20 For Row = 1 To MaxRow Debug.Print Row & " v " & MaxRow - Row + 1 Next End Sub

---

A toi de l'adapter pour écrire toutes les trois lignes

Ah oui, l'arithmétique n'est pas mon fort. J'ai réussi en tous cas. Merci à toi et bon réveillon.