Discussion :

[thesus_size]

Bonsoir,

J'aimerais remplir une colonne avec des nombres décroissants .

J'utilise la boucle suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 suivant

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

Bon réveillon

[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"

[thesus_size]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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

[thesus_size]

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?

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[thesus_size]

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