XL 2019 Cherche toute les combinaisson possible

[CLASS]

Bonjour a tous,

Je cherche toute les combinaison possible avec un mot a 14 chiffre sachant que je connais les 9 premier chiffre comment faire ?

Merci a tous

 

[Ikito]

Bonjour CLASS,

Tu trouveras la réponse à ta question avec ce petit code.
Le mot est à placer en A1, puis cliquer sur le bouton. Les valeurs se placent dans la colonne B.

Sub TrouverCombi14K9()

Application.ScreenUpdating = False

Debut = Cells(1, 1).Value

Lig = 1

For i = 0 To 9
    For j = 0 To 9
        For k = 0 To 9
            For l = 0 To 9
                For m = 0 To 9
                    Cells(Lig, 2) = Debut & i & j & k & l & m
                    Lig = Lig + 1
                Next
            Next
        Next
    Next
Next

Application.ScreenUpdating = True

End Sub

 

[CLASS]

merci pour ta réponse mais je ne connais pas grand chose est c'est possible de le faire avec un fichier excel ?

 

[Ikito]

CLASS,

C'est fait avec un fichier Excel...

 

[CLASS]

Merci

 

[Jacky67]

Bonjour à tous
Plus rapide avec une formule par vba

Sub test()
    [a1] = "12345678900000"
    With Range("a2:a100001")
        .Formula = "=a1+1"
        .Value = .Value
    End With
End Sub

 

[Victor21]

Bonjour à tous.

Et sans formule ni VBA, avec les outils natifs d'Excel
En A1 : 12345678900000
Onglet "Accueil", groupe "Edition", Remplissage, Série

Cocher "Colonnes" pour la série, et "Linéaire" pour le type. Dernière valeur : 12345678999999 puis OK. C'est instantané.