Sos VBA

Bonjour,
aider moi svp!!!

Programmation en VBA - HW N°1





Sur la feuile « Compta », vous trouverez une simulation d'extraction d'un logiciel comptable

concernant les achats et ventes de produits réalisés dans un mois de l'année. A chaque produit

est associé un intitulé ainsi qu'un numéro de compte. Pour chaque compte, 4 libellés existent :

100 correspond aux ventes du produit réalisées en France, 200 aux ventes réalisées en Europe,

300 aux achats de ce même produits dans des distributeurs en France et 400 pour des

distributeurs en Europe. A chaque libellé est associé un montant en Euros.

Le but de ce TP est d'écrire une macro pour compléter les 2 tableaux résumés présentés dans

les feuilles « Résumé » et « Résumé détaillé ».

Dans la feuille « Résumé », il faut reporter le nom du produit, la totalité des ventes et achats

réalisés et calculer la balance commerciale (qui devrait être positive ou négative).

Dans la feuille « Résumé détaillé », il faut faire la même chose mais en séparant les ventes et

achats réalisées en Europe et en France.

On supposera que dans le tableau initial (feuille « Compta ») il ne peut y avoir de lignes vides,

c'est-à-dire, que l'on pourra utiliser la fonctionnalité « IsEmpty » pour parcourir le tableau de

données initiales.

Attention, les libellés de compte ne sont pas toujours dans le même ordre.

Dans les feuilles de résumé, il y a déjà une mise en forme conditionnelle dans les colonnes

balances, de façon à faire apparaître les balances négatives en rouge (vous n'avez pas à le

coder dans la macro). Le format d'affichage monétaire est également en place.

A la fin de ce document, vous trouverez 2 images représentants ce à quoi les tableaux

résumés devront ressembler (pour vérifier vos valeurs).

Avant d'écrire la macro finale, et pour vous préparer, nous allons écrire les macros suivantes

qui vous serviront de base pour la macro définitive.

Macro 1 :

Ecrire une macro qui va parcourir la colonne A (colonne produit) et qui va positionner dans

les feuilles résumés le nom de chaque produit dans une ligne (1 ligne par produit)

Macro 2 :

Ecrire une macro qui, à partir d'un produit, va en fonction du libellé du compte déterminer les

montants attribués. Ecrivez cette macro et testez la sur les lignes 2 à 5 (pour les crayons) puis

testez la à nouveau sur les lignes 50 à 53 (feuilles A4 vertes) où les numéros de libellés ne

sont pas dans l'ordre.

Macro 3 :

En vous inspirant des codes des macros 1 & 2, essayez d'écrire la macro finale.

FEUILLE « Résumé »

Feuille « Résumé détaillé »



Intitulé No Compte Libellé Somme
Crayon 264 100 4 233,00 €
Crayon 264 200 3 200,00 €
Crayon 264 300 3 477,00 €
Crayon 264 400 1 737,00 €
Gomme 280 100 1 811,00 €
Gomme 280 200 4 648,00 €
Gomme 280 300 84,00 €
Gomme 280 400 4 564,00 €
Chaise info 830 100 4 886,00 €
Chaise info 830 200 4 254,00 €
Chaise info 830 300 272,00 €
Chaise info 830 400 2 484,00 €
Chaise bureau 825 100 5 175,00 €
Chaise bureau 825 200 4 742,00 €
Chaise bureau 825 300 2 241,00 €
Chaise bureau 825 400 5 771,00 €
Tapis souris 590 100 5 228,00 €
Tapis souris 590 200 337,00 €
Tapis souris 590 300 5 697,00 €
Tapis souris 590 400 2 184,00 €
Classeur 987 200 3 149,00 €
Classeur 987 100 4 602,00 €
Classeur 987 300 321,00 €
Classeur 987 400 3 554,00 €
Pochette plastique 911 100 2 812,00 €
Pochette plastique 911 200 1 788,00 €
Pochette plastique 911 300 3 736,00 €
Pochette plastique 911 400 3 886,00 €
Pochette carton 227 100 1 582,00 €
Pochette carton 227 200 1 676,00 €
Pochette carton 227 300 4 978,00 €
Pochette carton 227 400 4 947,00 €
Post It 24x32 696 100 3 534,00 €
Post It 24x32 696 200 5 916,00 €
Post It 24x32 696 300 5 465,00 €
Post It 24x32 696 400 1 361,00 €
Post It 60x80 981 100 4 170,00 €
Post It 60x80 981 200 5 880,00 €
Post It 60x80 981 300 1 463,00 €
Post It 60x80 981 400 3 203,00 €
Feuille A4 blanches (500) 244 100 638,00 €
Feuille A4 blanches (500) 244 200 5 996,00 €
Feuille A4 blanches (500) 244 300 4 057,00 €
Feuille A4 blanches (500) 244 400 94,00 €
Feuille A4 jaunes (500) 534 100 3 451,00 €
Feuille A4 jaunes (500) 534 200 600,00 €
Feuille A4 jaunes (500) 534 300 618,00 €
Feuille A4 jaunes (500) 534 400 4 793,00 €
Feuille A4 vertes (500) 107 200 1 706,00 €
Feuille A4 vertes (500) 107 100 273,00 €
Feuille A4 vertes (500) 107 300 1 774,00 €
Feuille A4 vertes (500) 107 400 2 292,00 €
Stylo Bleu 1000 100 1 805,00 €
Stylo Bleu 1000 200 5 691,00 €
Stylo Bleu 1000 300 5 878,00 €
Stylo Bleu 1000 400 2 408,00 €
Stylo Rouge 677 100 1 669,00 €
Stylo Rouge 677 200 962,00 €
Stylo Rouge 677 300 976,00 €
Stylo Rouge 677 400 3 879,00 €
Stylo Vert 16 100 2 460,00 €
Stylo Vert 16 200 2 476,00 €
Stylo Vert 16 300 4 276,00 €
Stylo Vert 16 400 1 957,00 €
Stylo Noir 576 100 3 799,00 €
Stylo Noir 576 200 1 245,00 €
Stylo Noir 576 300 1 116,00 €
Stylo Noir 576 400 3 500,00 €
Agrafeuse Mini 101 100 484,00 €
Agrafeuse Mini 101 200 2 747,00 €
Agrafeuse Mini 101 300 5 434,00 €
Agrafeuse Mini 101 400 1 568,00 €
Agrafeuse Maxi 104 100 4 711,00 €
Agrafeuse Maxi 104 200 2 273,00 €
Agrafeuse Maxi 104 300 1 737,00 €
Agrafeuse Maxi 104 400 5 516,00 €
Agrafes Mini (1000) 799 100 3 790,00 €
Agrafes Mini (1000) 799 200 3 765,00 €
Agrafes Mini (1000) 799 300 2 570,00 €
Agrafes Mini (1000) 799 400 587,00 €
Agrafes Maxi (1000) 285 100 3 366,00 €
Agrafes Maxi (1000) 285 200 4 166,00 €
Agrafes Maxi (1000) 285 300 5 482,00 €
Agrafes Maxi (1000) 285 400 5 008,00 €
Calculatrice 46 100 135,00 €
Calculatrice 46 200 3 260,00 €
Calculatrice 46 300 5 496,00 €
Calculatrice 46 400 2 581,00 €
Calculatrice ruban 296 100 4 067,00 €
Calculatrice ruban 296 200 3 014,00 €
Calculatrice ruban 296 300 3 082,00 €
Calculatrice ruban 296 400 2 777,00 €
Toner Laser 383 100 2 120,00 €
Toner Laser 383 200 2 429,00 €
Toner Laser 383 300 1 618,00 €
Toner Laser 383 400 333,00 €
Cartouche encre noire 301 100 1 463,00 €
Cartouche encre noire 301 200 5 874,00 €
Cartouche encre noire 301 300 365,00 €
Cartouche encre noire 301 400 2 341,00 €
Cartouche encre couleur 949 100 2 189,00 €
Cartouche encre couleur 949 200 2 939,00 €
Cartouche encre couleur 949 300 933,00 €
Cartouche encre couleur 949 400 2 846,00 €
Scotch 980 100 1 543,00 €
Scotch 980 200 3 772,00 €
Scotch 980 300 3 252,00 €
Scotch 980 400 937,00 €
Règle (20cm) 402 100 5 631,00 €
Règle (20cm) 402 200 3 926,00 €
Règle (20cm) 402 300 3 036,00 €
Règle (20cm) 402 400 2 342,00 €