Liste suite logique

Bonjour,

Je cherche à établir une suite logique automatique de 5 chiffres sans qu'un des chiffres se répète.

Par ex, j'aimerai que 12351-12352 n'apparraise pas dans ma liste ou trouver une formule qui puisse les supprimer.

Merci d'avance pour votre coup de main.

12345

12346

12347

12348

12349

12350

12351

12352

Bonjour,

Explique-toi mieux, tous tes chiffres sont répétés dans les 4 premières positions !

Bonjour,

solution via une macro

Sub test()
    For i = 12345 To 98765
        For j = 1 To 4
            For k = j + 1 To 5
                If Mid(i, j, 1) = Mid(i, k, 1) Then k = 99: Exit For
            Next k
            If k > 10 Then Exit For
        Next j
        If k < 10 Then l = l + 1: Cells(l, 1) = i
    Next i

End Sub

edit :correction d'une erreur de nettoyage du code.

MFerrand a écrit :

Bonjour,

Explique-toi mieux, tous tes chiffres sont répétés dans les 4 premières positions !

Dans mon exemple 12351==> 1 se répète


Merci pour ton retour

N'étant pas un spécialiste d'excel comment je peux l'intégrer dans un fichier STP?

Merci d'avance

h2so4 a écrit :

Bonjour,

solution via une macro

Sub test()
    For i = 12345 To 98765
        For j = 1 To 4
            For k = j + 1 To 5
                If Mid(i, j, 1) = Mid(i, k, 1) Then k = 99: Exit For
            Next k
            If k > 10 Then Exit For
        Next j
        If k > 10 Then l = l + 1: Cells(l, 1) = i
    Next i

End Sub

re-bonjour,

  • sélectionner le code sur le forum, puis le copier CTRL-C
  • aller dans excel
  • faire alt-F11, tu te retrouves dans l'éditeur VBA
  • menu insérer-> module
  • coller le code
  • faire alt-F11, retour dans la feuille excel
  • lancer la macro "test" via" alt-F8, exécuter.

voici le résultat

11feurgard.xlsm (14.42 Ko)

Un grand merci pour ton aide

Je te souhaite une bonne fin de journée

Rechercher des sujets similaires à "liste suite logique"