CENTRE D’INFORMATIQUE DE GESTION ET DE LA COMPTABILITE
Récépissé N°02949PM2017/2017 de Arrêté N°011/MCPSP/CAB/DPSP du 13-04-2012
Tel: 92241833 / 98280840-site web: [Link]-Email: cigc241013@[Link]
EPREUVE DE VBA 2H 00mn
EXERCICE 2: GESTION DE LA CAISSE
Sur le classeur Pharmacie ; créer les feuilles suivantes :
- OPPERATIONS
- PRODUITS
- CLIENTS
- VENTE DU JOUR
Sur la feuille PRODUITS, on aura les données suivantes :
REF_PRODUITS NOM_PRODUITS PRIX DATE D’EXPIRATION
01PROD
02PROD
03PROD
04PROD
05PROD
Nous souhaitons avoir sur la feuille OPPERATIONS un bouton de commande nommé Bouton qui
en cliquant nous affichera un autre bouton de commande nommé Gestions et qui a son tour nous
donnera un formulaire comme l’indique le cliché ci-dessous.
Sur le formulaire VENTE PRODUITS, on aura les Noms des clients et produits dans une liste
déroulante. On souhaite avoir automatiquement les prix des produits après avoir choisir les
produits dans la liste déroulante et que le calcul se fasse automatiquement après avoir
renseigné les quantités en appuyant sur le bouton CALCUL.
Le bouton VALIDE nous permettra d’enregistrer les données sur la feuille VENTE DU JOUR
Le bouton ANNULER nous permettra de quitter sur le formulaire.
NB : RESPECTER LA MISE EN FORME FAITE SUR LE FORMULAIRE
CENTRE D’INFORMATIQUE DE GESTION ET DE LA COMPTABILITE
Récépissé N°02949PM2017/2017 de Arrêté N°011/MCPSP/CAB/DPSP du 13-04-2012
Tel: 92241833 / 98280840-site web: [Link]-Email: cigc241013@[Link]
Dim r As Range
Set r = [Link](‘’ERIC’’).Range(‘’A2:B50’’)
Dim nligne As Integer
Dim ncol As Integer
nlign = [Link]
ncol = [Link]
Dim i As Integer
For i = 1 To nlign
If ([Link](i, 1).Value = [Link]) Then
[Link] = [Link](i, 2).Value
End If
Next i
CENTRE D’INFORMATIQUE DE GESTION ET DE LA COMPTABILITE
Récépissé N°02949PM2017/2017 de Arrêté N°011/MCPSP/CAB/DPSP du 13-04-2012
Tel: 92241833 / 98280840-site web: [Link]-Email: cigc241013@[Link]
If MsgBox("voulez vous insérer ces données", vbYesNoCancel + vbDefaultButton1 + vbExclamation,
"confirmation") = vbYes Then
Sheets("ERIC").Activate
Range("B2:P2").Select
With Selection
.[Link] = 1
.Insert Shift:=xlDown
For Z = 3 To Z
Worksheets("ERIC").Cells(Z, 2) = [Link]
Worksheets("ERIC").Cells(Z, 3) = [Link]
Worksheets("ERIC").Cells(Z, 4) = [Link]
Worksheets("ERIC").Cells(Z, 5) = [Link]
Worksheets("ERIC").Cells(Z, 6) = [Link]
Worksheets("ERIC").Cells(Z, 7) = [Link]
Worksheets("ERIC").Cells(Z, 8) = [Link]
Worksheets("ERIC").Cells(Z, 9) = [Link]
Worksheets("ERIC").Cells(Z, 10) = [Link]
Next Z
Unload UserForm2
End With
End If
Private Sub userForm_click()
[Link] = Date & Time
End Sub
Private Sub userForm_initiaLiZe()
[Link] = Date & " Time
End Sub
CENTRE D’INFORMATIQUE DE GESTION ET DE LA COMPTABILITE
Récépissé N°02949PM2017/2017 de Arrêté N°011/MCPSP/CAB/DPSP du 13-04-2012
Tel: 92241833 / 98280840-site web: [Link]-Email: cigc241013@[Link]
EXERCICE 1: CULTURE GENERAL
1) Donner l’utilité et l’importance du cours de VBA en deux paragraphes
2) A quoi sert la boite à outil à côté d’un userform ?
3) A quoi sert le 2 eme ; 3 eme ; 4 eme et le 10 eme boutons de la boite à outils ?
4) A quoi sert la combinaison des touches ALT + F8 ; ALT + F11 ; CTR + R et la
touche F4 sur le clavier en VBA ?
5) Donner la définition des termes suivantes : VBA ; Macro ; UserForm
6) Donner en quelques lignes les étapes à suivre pour avoir un UserForm
.
.
BONNE CHANCE A VOUS ET SURTOUT BEAUCOUP DE CONCENTRATION
