TROUVER LES DIVISEURS COMMUNS À UN ENTIER

Option Explicit
Dim vNbrEntré As Long
Dim vNbrDiviseur As Long
Dim vNbrReste As Long
Dim i As Long

Private Sub txtNbrEntré_KeyPress(KeyAscii As Integer)
If KeyAscii > 57 Or KeyAscii < 48 Then
  KeyAscii = 0
  Beep
End If
End Sub

Private Sub cmdCalculer_Click()
vNbrDiviseur = 1                ' Fixe le diviseur de départ
vNbrEntré = txtNbrEntré
i = 1

If vNbrEntré = 0 Then
  MsgBox ("Tapez un entier entre 2 et 99999999")
    Exit Sub
End If

Do Until i = vNbrEntré
vNbrReste = vNbrEntré Mod vNbrDiviseur
If vNbrReste = 0 Then
  lstDiviseurs.AddItem (vNbrDiviseur)
End If
i = i + 1
vNbrDiviseur = vNbrDiviseur + 1
Loop