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 

Votre réponse

6 réponses

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

Merci ucfoutu 3

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

Codes Sources a aidé 98 internautes ce mois-ci

Commenter la réponse de ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Contributeur
Dernière intervention
11 avril 2018
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.