incrémentation alphabétique en VB

Salut,
je voudrais intégrer des lettre dans une boucle For, or je sais qu'on ne peut y mettre que des entiers.
j'ai trouver une parade, je les transforment:

Code:

---

1 2 3 4 5

dim i as integer For i = 8 To 11 j = Chr(i + 65) Next

---

Ici, cela me donne donc une incrémentation des lettres I,J,K,L.

Or cette méthode ne fonctionne plus pour tranformer ma liste lorsqu'elle est du type AA, AB.....CP etc...

quelqun à t'il une idée?
merci d'avance

Pourquoi ne pas faire une fonction, qui prends en paramètre :
- Le nombre à convertir en lettres
- Le nombre de lettres à afficher

Ensuite tu fais un modulo 26 sur le nombre pour savoir quelle est la lettre la plus à droite.
Ensuite, tu divises le nombre par 26 puis tu fais un modulo 26 dessus pour avoir la lettre suivante.
Etc. jusqu'à ce que tu aie toutes tes lettres...

En C# ça donnerais un truc du genre :
(Exemple avec un step de 10 histoire d'avoir moins de lignes)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

using System;   namespace DigitToChar { class Program { static void Main(string[] args) { for (int i = 0; i < 200; i += 10) { Console.WriteLine(DigitToChar(i, 2)); }   Console.ReadKey(true); }   static string DigitToChar(int number, int charcount) { char[] chars = new char[charcount];   for (int i = 0; i < charcount;) { chars[charcount - ++i] = (char)(65 + number % 26); number /= 26; }   return new string(chars); } } }

---

Citation:

---

AA
AK
AU
BE
BO
BY
CI
CS
DC
DM
DW
EG
EQ
FA
FK
FU
GE
GO
GY
HI

---

Ah ouai daccord...bon j'ai pas tout saisi mais c'est pas grave parce que en fait j'aimerai être plus précis dans mon incrémentation.

j'aimerai incrémenter à partir de AP jusqua CI :
(AP,AQ,AR,[...]AZ,BA,[...]BZ,CA,CB,[...]CI) :aie:

du coup si j'ai pas compris ton code de travers sa ne fonctionne pas..:(

Du coup en y repensant je voyais plutôt une boucle comme sa

Code:

---

1 2 3 4 5 6 7 8

for i=0 to 2 j=Chr(i+65) for l = 0 to 25 m=Chr(l+65) lettre=j & m next next

---

mais le problème c'est que cette boucle exclue le fait que l'on commence par AP et non par AA

Bah si, AP = 15
CI = 60

(si je ne me trompe pas, en partant du principe que A = 0)

Donc, après transcription de ma fonction DigitToChar :

Code:

---

1 2 3 4

For i = 15 to 60 Step 1 Console.Write(DigitToChar(i, 2)) Next

---

ou

Code:

---

1 2 3 4

For i = 0 to 45 Step 1 Console.Write(DigitToChar(i + 15, 2)) Next

---

Je me rends compte d'un truc...

http://www.developpez.net/forums/d11...n/#post6560245

En fait, c'est un méga-bordel de compter en lettres, car on n'est pas dans une base à proprement parler : le chiffre 0 n'a pas d'existance dans cette "base". Du coup vas-y le bordel. Excel a été inventé par un romain :(

Toujours en C# (désolé :D) voici une solution basée sur :
- Une énumération de toutes les valeurs entre A et ZZZ
- Des extensions des types int et string afin de convertir l'un dans l'autre facilement.

http://www.developpez.net/forums/d11...e/#post6560434

couuuul merci

Je me permet de faire une nouvelle réponse à ce topic.

Vu que ça a donné lieu à pas mal de versions différentes du codes, et que toutes ne sont pas forcément correctes, voici la dernière version en date, que j'ai posté dans la section "contribuez" :

http://www.developpez.net/forums/d11...l/#post6561450