Incrementation de double lettre [Résolu]

- - Dernière réponse :  arnaud61100 - 8 juil. 2013 à 19:59
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
Afficher la suite 

6 réponses

Meilleure réponse
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
212
3
Merci
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.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci

Commenter la réponse de ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
212
0
Merci
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.
Commenter la réponse de ucfoutu
0
Merci
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
Commenter la réponse de Utilisateur anonyme
0
Merci
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.
Commenter la réponse de Utilisateur anonyme
0
Merci
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
Commenter la réponse de arnaud61100
0
Merci
merci pour votre aide
Commenter la réponse de arnaud61100