Vba multiple de 3
timoboll
Messages postés
16
Date d'inscription
Statut
Membre
Dernière intervention
-
moiced59 Messages postés 1145 Date d'inscription Statut Membre Dernière intervention -
moiced59 Messages postés 1145 Date d'inscription Statut Membre Dernière intervention -
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
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
- Ai suite 3 - Télécharger - Optimisation
- Picasa 3 - Télécharger - Albums photo
- Ecran multiple pc - Guide
- Excel cellule choix multiple - Guide
- Incompatibilité de type vba ✓ - Forum Programmation
1 réponse
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
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