Se connecter avec
S'enregistrer | Connectez-vous

Trouver toutes les combinaisons possible

Dernière réponse : dans Programmation
Lassé par la pub ? Créez un compte
Expert Programmation

Que signifie alphanumérique pour toi dans ce cas ?
26 Lettres et 10 chiffres.

Alors crée-toi une constante de 36 caractères, remplis-la avec les lettres et les chiffres. Ensuite, deux boucles imbriquées devraient faire l'affaire :
  1. Const X = 'ABCDE...XYZ012..89'
    

  2.  
  3. Dim i as Integer, j as Integer
    

  4.  
  5. For i = 1 To 36
    

  6.   For j = 1 To 36
    

  7.     MsgBox "Z" & Mid(X, i, 1) & Mid(X, j, 1) & #13 &  _
    

  8.            "Y" & Mid(X, i, 1) & Mid(X, j, 1)
    

  9.   Next
    

  10. Next


MsgBox ne fait que les afficher, à toi de voir ce que tu veux en faire.
Expert Programmation

Tiens en passant, vire-moi le HELPPP du titre (en éditant ton premier message) : Pas de majuscule agressive, d'une part, quand à préciser que tu demandes de l'aide, tu es 1 parmi 2664488 à l'heure actuelle.
Lassé par la pub ? Créez un compte

Créer un nouveau sujet