Transport scolaire j-m

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 753 fois - Téléchargée 29 fois

Contenu du snippet

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

A voir également

Ajouter un commentaire

Commentaires

Messages postés
4
Date d'inscription
dimanche 3 décembre 2000
Statut
Membre
Dernière intervention
21 février 2008

merci bien

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.

Du même auteur (jean_mouloud)