Discussion :

[kingjon]

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

[casefayere]

Bonjour,
si lbchiffre1 est un label

Pas testé, essayes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim tb(), x As Long
x = 0
For i = a To d - 1
  If d Mod i = 0 Then
   x = x + 1: ReDim Preserve tb(x)
 End If
Next
lbchiffre1.Caption = Join(tb, ",")

[kingjon]

Merci de ta réponse, malheureusement cela ne marche pas .. ça affiche deux virgules à la suite

[casefayere]

remplaces cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   x = x + 1: ReDim Preserve tb(1 To x)

[kingjon]

toujours le meme probleme voici le code :
sachant que x = 15 dans mon projet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim tb(), p As Long
    x = 0
    For i = 1 To x - 1
    If x Mod i = 0 Then
     p = p + 1: ReDim Preserve tb(1 To p)
    End If
    Next
    lbchiffre3.Caption = Join(tb, ",")
End Sub

merci de ton aide !

[casefayere]

je ne fais que des conn.., j'ai oublié le principal

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 ......
 If d Mod i = 0 Then
   x = x + 1: ReDim Preserve tb(1 To x)
   tb(x) = i
 End If
.....

[kingjon]

Merci beaucoup !!

[Marc-L]

Bonjour !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Demo()
     Const N = 15
          S$ = "1"
          D% = 1
    While D + 1 < N
          D = D + 1
          If N Mod D = 0 Then S = S & ", " & D
    Wend
          MsgBox S
End Sub

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …