Vba multiple de 3

Fermé

timoboll Messages postés 16 Date d'inscription jeudi 13 janvier 2011 Statut Membre Dernière intervention 15 novembre 2013 - 13 janv. 2011 à 17:44
moiced59 Messages postés 1145 Date d'inscription samedi 15 novembre 2008 Statut Membre Dernière intervention 18 août 2014 - 13 janv. 2011 à 20:54

Bonjour,

pouvez vous me monter comment faire un programme, en demandant deux notes, et affichant tout les multiples de 3 compris entre ces deux notes

A voir également:

Vba multiple de 3
Picasa 3 - Télécharger - Albums photo
Liste déroulante choix multiple excel - Guide
Photorecit 3 - Télécharger - Visionnage & Diaporama
Paris multiple 2/6 explication ✓ - Forum Loisirs / Divertissements
Ai suite 3 download - Télécharger - Optimisation

1 réponse

Réponse 1 / 1

moiced59 Messages postés 1145 Date d'inscription samedi 15 novembre 2008 Statut Membre Dernière intervention 18 août 2014 60
13 janv. 2011 à 20:54

Bonsoir

tiens je viens d'ecrire ca

Private Sub Commande0_Click()
depart = Int(InputBox("Saisir la 1ere note "))
fin = Int(InputBox("Saisir la derniere note "))
If fin <= depart Then
MsgBox "Note de fin inferieur ou egale a la note de départ", vbCritical, "Erreur "
Exit Sub
End If

i = depart
Do Until i = fin
reste = i / 3

If reste = Int(reste) Then
multiple = multiple & " " & i
End If
i = i + 1
Loop
If multiple = "" Then
MsgBox "Aucun multiple trouvé entre " & depart & " " & fin
Exit Sub
End If

MsgBox "les multiples compris entre " & depart & "et " & fin & " sont : " & multiple
End Sub

Discussions similaires

Que signifie cet emoji :3

Voxbone ? qui est-ce ?

Signification de " :3 "

Pari multiple 2/5 explications

Erreur d'exécution 13 Incompatibilité de type