bah une form et un module ... C simplet kwa
Source / Exemple :
Sub transcol()
'Déclaration des varibles
Dim CODELEV As String
Dim NOMELEV As String
Dim TYPEETAB As String
Dim SECTEUR As String
Dim DIST As Integer
Dim COUTALL As Single
Dim COUTTOTAL As Single
Dim COUTFAM As Single
Dim SUBVENTION As Single
Dim COUTTOTALANN As Single
Dim COUTFAMANN As Single
Dim SUBVENTIONANN As Single
Dim N As Integer
Dim L As Integer
'Zone de Saisie
CODELEV = InputBox("Veuillez saisir le code de l'élève", "Transport scolaire")
NOMELEV = InputBox("Veuillez saisir le nom de l'élève", "Transport scolaire")
Load ETABFORM
ETABFORM.Show
SECTEUR = MsgBox("Son établissement est-il hors de son secteur?", vbYesNo, "transport scolaire")
DIST = InputBox("Distance entre le domicile et l'établissement", "Transport scolaire")
' Calcul
If DIST <= 10 Then
COUTALL = 7.2
Else
If DIST <= 20 Then
COUTALL = 7.2 + (DIST - 10) * 0.5
Else
If DIST <= 30 Then
COUTALL = (7.2 + 5) + (DIST - 20) * 0.3
Else
COUTALL = 7.2 + 5 + (DIST - 30) * 0.23
End If
End If
End If
'affichage des cellules
If SECTEUR = vbYes Then
Cells(7, 5) = "oui"
Else
Cells(7, 5) = "non"
End If
If TYPEETAB = lycee Then
Cells(6, 5) = "lycée"
Else
If TYPEETAB = college Then
Cells(6, 5) = "collège"
End If
End If
Cells(6, 2) = CODELEV
Cells(7, 2) = NOMELEV
Cells(8, 5) = DIST
Cells(10, 2) = COUTALL
'initialisation des variables
N = 1
L = 13
' boucle
Do While N <= 3
If TYPEETAB = lycee Then
COUTTOTAL = COUTALL * 2 * 6 * 12
Else
COUTTOTAL = COUTALL * 2 * 5 * 12
End If
If SECTEUR = vbYes Then
COUTFAM = COUTTOTAL * 0.15
Else
COUTFAM = COUTTOTAL
End If
SUBVENTION = COUTTOTAL - COUTFAM
Cells(L, 3) = COUTTOTAL
Cells(L, 4) = COUTFAM
Cells(L, 5) = SUBVENTION
N = N + 1
L = L + 1
Loop
'cout annuel
COUTTOTALANN = COUTTOTAL * 3
COUTFAMANN = COUTFAM * 3
SUBVENTIONANN = SUBVENTION * 3
'affichage des couts annuel
Cells(16, 3) = COUTTOTALANN
Cells(16, 4) = COUTFAMANN
Cells(16, 5) = SUBVENTIONANN
End Sub
Conclusion :
ça C pour la form
Private Sub CommandButton1_Click()
Dim lycee
Dim college
If LYC Then
TYPEETAB = lycee
End If
If COLL Then
TYPEETAB = college
End If
Unload Me
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.