Générateur selon alphabet et chiffres de 0 à 9

Bonsoir,

j'aimerai savoir s'il est possible de générer tout les mots selon 2 critères

0 1 2 3 4 5 6 7 8 9

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

et une fois cela effectué avoir la liste complète de tout ces mots. dans une 3ème colonne.

Merci d'avance pour votre aide

Bonne soirée à tous

bonsoir,

je ne comprends pas ta demande. faut-il générer toutes les combinaisons possibles de 10 chiffres et de 26 lettres ? toutes les combinaisons de 0 à 9 lettres ? autre chose ?

bonjour

il faudrait qu'il génère toutes les combinaisons possible avec les chiffres et les lettres mais des combinaison de 3 seulement

Ex a01 - a02 etc o bien 001-002 ou encore abc -acb - abd - acd

si cela est possible générer toutes les combinaisons avec les chiffres,avec les lettres et avec les chiffres et les lettres mélangés

j'espère que cela est un peu plus clair difficile de bien expliquer par message

Merci d'avance et bonne journée

bonjour,

une solution via macro

Sub aargh()
    Dim tc(), r()
    t = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    lt = Len(t)
    np = lt * (lt - 1) * (lt - 2)
    ReDim tc(1 To lt)
    ReDim r(1 To np, 1 To 1)
    For i = 1 To lt
        tc(i) = Mid(t, i, 1)
    Next i
    i = 0
    For i1 = 1 To lt
        For i2 = 1 To lt
            If i1 <> i2 Then
                For i3 = 1 To lt
                    If i1 <> i3 And i2 <> i3 Then
                        i = i + 1
                        r(i, 1) = "'" & tc(i1) & tc(i2) & tc(i3)
                    End If
                Next i3
            End If
        Next i2
    Next i1
    Cells(1, 1).Resize(UBound(r), 1) = r
End Sub

Bonjour,

cela marche, mais il n'y a pas l’intégralité des possibilités.

Ex : 001 - 002 - 003 ou bien 101 - 111 - 121 - 122 - 131 etc

merci de vous êtes penché sur le problème

Bonjour,

désolé que ma boule de cristal n'ait pas bien fonctionné.

Sub aargh()
    Dim tc(), r()
    t = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    lt = Len(t)
    np = lt ^ 3
    ReDim tc(1 To lt)
    ReDim r(1 To np, 1 To 1)
    For i = 1 To lt
        tc(i) = Mid(t, i, 1)
    Next i
    i = 0
    For i1 = 1 To lt
        For i2 = 1 To lt
                For i3 = 1 To lt
                        i = i + 1
                        r(i, 1) = "'" & tc(i1) & tc(i2) & tc(i3)
                Next i3
        Next i2
    Next i1
    Cells(1, 1).Resize(i, 1) = r
End Sub

Ne vous excuser pas, car votre travail n'est même pas a ma porter et pourtant j'aimerai bien moi aussi contribuer a aider les autres.

Un grand bravo car votre boucle fonctionne très bien.

si je n'abuse pas trop avez-vous une solution pour mon problème afin de comparer les doublons de la colonne A et J et dans une autre colonne conserver uniquement les clef non utilisés.

Merci en tout cas pour votre code et d'avoir pris le temps pour nous venir en aide.

Amicalement Rolins

bonjour,

voici

Sub aarghcompare()
Dim t()
    dla = Cells(Rows.Count, 1).End(xlUp).Row
    ReDim t(1 To dla, 1 To 1)
    Set plage = Cells(1, 1).Resize(dla, 1)
    dl = Cells(Rows.Count, 10).End(xlUp).Row
    For i = 1 To dl
        Set re = plage.Find(Cells(i, 10), lookat:=xlWhole, MatchCase:=False)
        If re Is Nothing Then
        Else
            t(re.Row, 1) = 1
        End If
    Next i
    Cells(1, 2).Resize(dla, 1) = t
    Cells(1, 1).Resize(dla, 2).Sort key1:=Range("B1"), order1:=xlDescending, Header:=xlNo
   Cells(1, 2).Resize(dla, 1).SpecialCells(2, 1).Offset(, -1).Resize(, 2).Delete shift:=xlUp
End Sub

re-bonjour

votre code supprime bien 1091 lignes et pourtant il laisse des doublon en colonne A

Ex 014 - ou bien 017 etc

mais si cela est compliqué ne vous embête pas.

c'est déjà très sympa d'avoir trouver quelques solutions a mon problème

Bonne journée

bonjour,

au temps pour moi !

Sub aarghcompare()
    Dim t()
    dla = Cells(Rows.Count, 1).End(xlUp).Row
    ReDim t(1 To dla, 1 To 1)
    Set plage = Cells(1, 1).Resize(dla, 1)
    dl = Cells(Rows.Count, 10).End(xlUp).Row
    For i = 1 To dl
        s = Cells(i, 10)
        If IsNumeric(s) Then s = Format(s, "000")
        Set re = plage.Find(s, lookat:=xlWhole, MatchCase:=False)
        If re Is Nothing Then
        Else
            t(re.Row, 1) = 1
        End If
    Next i
    Cells(1, 2).Resize(dla, 1) = t
    Cells(1, 1).Resize(dla, 2).Sort key1:=Range("B1"), order1:=xlDescending, Header:=xlNo
    Cells(1, 2).Resize(dla, 1).SpecialCells(2, 1).Offset(, -1).Resize(, 2).Delete shift:=xlUp
End Sub

YES

UN GRAND YES A VOUS

Une dernière petite question

si je souhaite comparer sur un tableau ou je viendrai, insérer des les

la colonne P et R

est ce que je dois modifier le code que vous m'avez envoyé.

Merci d'avance pour votre réponse

pardon je me suis mal exprimé

si j’insère des colonnes

puis-je comparer la colonne P avec celle de R

et que votre code surprime les doublon dans la colonne P.

bien sur le challenge a été résolu par h2so4 UN GRAND MERCI

j'ai juste décoché (non résolu) car je pense que peut être si je met résolu personne ne pourra répondre a ma dernière question

Mais merci à h2so4

si pas de retour je placerai la coche résolu a nouveau car un deal est un deal

Bonjour,

bah non, la macro est prévue pour fonctionner avec la colonne A (liste de tous les codes), la colonne B (comme colonne de travail) et la colonne J (liste des codes utilisés à supprimer de la colonne A)

C'est très bien comme ça

je vous remercie pour ce beau travail

Bonne soirée à vous