Problème de valeur fichier combinaison Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 9'461
Appréciations reçues : 428
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 24 avril 2017, 18:05

bonjour,

voici une macro si tu ne veux pas la formule que je t'ai proposée avant
Dim a(5), c
Sub aargh()
    combi
End Sub
Sub combi(Optional n = 1)
    For i = 0 To 9
            a(n) = i
            If n = 5 Then
                c = c + 1
                For j = 1 To 5
                    Cells(c, j) = a(j)
                Next j
            Else
                combi n + 1
            End If
    Next i
End Sub
ou une autre façon de faire
Sub aargh()
    For i = 0 To 99999
        s = Format(i, "00000")
        For j = 1 To 5
            Cells(i + 1, j) = Mid(s, j, 1)
        Next j
    Next i
End Sub
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'171
Appréciations reçues : 448
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 24 avril 2017, 23:38

Il faut lister tes numéros de 0 à 9 au lieu de le faire de 1 à 0 ! :D
k
krank
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 23 avril 2017
Version d'Excel : 2010

Message par krank » 25 avril 2017, 00:04

Bonsoir à tous et merci beaucoup h2so4,

ton fichier est magique pour moi ça m'évite un travail fastidieux à la main.
Merci à MFerrand aussi.
Vous êtes vraiment très sympathiques sur ce forum.

:D :D :D

Guy
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message