Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 715 fois - Téléchargée 57 fois
Private Sub Command1_Click() On Error GoTo E: If Text1.Text = Empty Then 'Vérifie si il y a un texte MsgBox "Erreur" Exit Sub End If If Text1.Text < 0 Then 'Vérifie si le nombre est positif MsgBox "RECHERCHE DES MULTIPLES N'ACCEPTE PAS LES NOMBRES NEGATIFS!" Exit Sub End If C: If Text1.Text = Int(Text1.Text) Then 'Vérifie si le nombre entier If List1.List(0) = Empty Then 'Vérifie si la liste est vide y = Text1.Text For n = 1 To y If y / n = Int(y / n) Then 'Si y / n = Nombre entier alors List1.AddItem n End If Next n Else List1.RemoveItem (0) 'Vide la liste GoTo C: End If Else MsgBox "Erreur" End If Exit Sub E: MsgBox "ERREUR" End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.