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
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
A voir également:
- Vba multiple de 3
- Picasa 3 - Télécharger - Albums photo
- Liste déroulante choix multiple excel - Guide
- Ai suite 3 download - Télécharger - Optimisation
- Paris multiple 2/5 explication ✓ - Forum Loisirs / Divertissements
- Combinaison de 3 chiffres de 0 à 9 ✓ - Forum Programmation
1 réponse
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
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
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
