Bonjour à tous, j'aimerais pouvoir énumerer tout les multiples d'un nombre, est ce possible?
Voici ou j'en suis :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
For i = a To d - 1
    If d Mod i = 0 Then
    lbchiffre1.Caption = i
    End If
    Exit For
    Next
           a = a + 1
Mais j'aimerais rajouter If d Mod i = 0 'OU un nombre entier Then
en clair j'aimerais que si D = 15 j'ai d'afficher 1,3,5
Si vous avez des idées..
Merci