Incrementation de double lettre [Résolu]

Signaler
-
 arnaud61100 -
bonjour,
je cherche à incrémenter des doubles lettres
de AA->AB->.....->AZ->BA->BB->....->jusqu'à ZZ
j'ai trouvé comment faire avec une seul lettre mais la je sèche.
merci pour votre aide
PS merci d’être indulgent car je débute

6 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
224
Bon,
je pensais qu'il s'agissait de Excel, qui aurait permis une toute autre solution bien plus proche (adresser des colonnes d'une feuille) dont j'ignore si CATIA (que je ne possède pas) l'admettrait.
Nous allons donc transposer en VB le code de cmarcotte (que je salue) ===>>

For i = 65 To 90
  For j = 65 To 90
    MsgBox Chr(i) & Chr(j)
  Next
Next



________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
224
Bonjour,
1) montre-nous azu moins ce que tu as tenté (code)
2) es-tu certain de développer sous VB.Net et non sous VBA/Excel ? (car solutions très différentes !)


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Bonjour,

Là, tu as droit à une faveur spéciale, parce que c'est moins long de faire le code que d'expliquer quoi faire. Tant qu'à y être, aussi bien passer quelques classes du Framework.

Sub LettresDoubles()
     Dim Ligne As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
     Dim LaLigneEnDouble As String = String.Empty
     Dim EnDouble As String = String.Empty
     For i As Byte = 0 To 25
         For j As Byte = 0 To 25
           EnDouble = String.Concat(Ligne.Chars(i), Ligne.Chars(j))
           Select Case LaLigneEnDouble.Length
                Case 0
                   LaLigneEnDouble = String.Concat(LaLigneEnDouble, EnDouble)
                Case Else
                   LaLigneEnDouble = String.Concat(LaLigneEnDouble, ",", EnDouble)
            End Select
         Next
         Next
      MessageBox.Show(LaLigneEnDouble)
  End Sub


Évidemment, il te reste à comprendre comment cela fonctionne. Pour les mots-clefs que tu ne comprends pas, tu mets le pointeur sur le mot et tu pèses sur F1

Et puis, si ce n'était pas une question VB.net, tu vas devoir croiser les doigts. Parce que cela n'aura même pas l'air de marcher en VB6-VBA. Tu avais juste à poser ta question dans la bonne section.
effectivement, je ne suis pas dans la bonne section.
je développe en visual basic qui est intégré dans mon logiciel de CAO catia V5.
je pense qu'il faut que j'aille dans la section VB6-VBA
Merci à tous
merci pour votre aide