![\"Volet](\"https:\/\/www.auditsi.eu\/wp-content\/uploads\/2023\/01\/Volet-7-VBA-cas-complexe.png\")
<\/p>\nLes quatre premiers volets de cette formation ont \u00e9t\u00e9 consacr\u00e9s \u00e0 Excel. Les cinq et sixi\u00e8me volets abordent le langage VBA et l\u2019automatisation. Ce septi\u00e8me volet cl\u00f4t ce sujet du VBA.<\/p>\n
La programmation n\u2019est pas un sujet r\u00e9serv\u00e9 aux d\u00e9veloppeurs professionnels. Bien au contraire. Tout un chacun peut s\u2019approprier ce sujet sans connaissance approfondie des techniques de programmation.<\/p>\n
<\/p>\n
Au programme :<\/p>\n
L’objectif de ce volet est d’approfondir les concepts pr\u00e9sent\u00e9s dans les deux pr\u00e9c\u00e9dents volets et d’en introduire de nouveaux.<\/p>\n
A titre d’illustration, l\u2019exemple qui suit m\u00eale dans le m\u00eame code source plusieurs concepts<\/strong> (fonction Split, variable tableau, boucle compteur, test conditionnel…) d\u00e9montrant la puissance de calcul<\/strong> apport\u00e9 par le langage VBA \u00e0 Excel.<\/p>\n Cet exemple calcule des remises sur chiffre d’affaires selon une grille (tranches de CA et taux). Ce calcul donne le m\u00eame r\u00e9sultat que celui de l’exemple 12 (test conditionnel If\u2026 Then\u2026 Else). Toutefois, la r\u00e9daction est ici beaucoup plus \u00e9l\u00e9gante notamment parce que la grille de remise est int\u00e9gr\u00e9e dans une constante ce qui facilite sa lisibilit\u00e9 et sa mise \u00e0 jour.<\/p>\n Autre concept introduit dans ce volet, les tests conditionnels Select Case… End Select<\/strong> qui sont une forme de tests compl\u00e9mentaires des If.. Then… ElseIf… End If. Un test conditionnel permet de n\u2019ex\u00e9cuter une instruction ou un ensemble d\u2019instructions que si une ou plusieurs conditions sont remplies.<\/p>\n Dans cet exemple, les remises sont calcul\u00e9es en fonction de paliers. Dans le cadre d\u2019un calcul par palier<\/strong>, le taux de remise appliqu\u00e9 varie en fonction de la d\u00e9composition du chiffre d’affaires r\u00e9alis\u00e9 par tranche (palier). Par exemple, l\u2019application de la grille propos\u00e9e plus haut \u00e0 un CA de 220 K\u20ac donne une remise de 0 % de jusqu\u2019\u00e0 99 999 \u20ac de CA + 1,5 % de 100 000 \u20ac \u00e0 199 999 \u20ac + 2 % de 200 000 \u20ac \u00e0 220 000 \u20ac soit dans cet exemple une remise de 1 900 \u20ac.<\/p>\n Pour de plus amples explications : consulter le support de formation t\u00e9l\u00e9chargeable<\/strong> en bas de cet article.<\/p>\n Diff\u00e9rents exemples et cas pratiques<\/strong> sont propos\u00e9s \u00e0 l’usage du lecteur afin d’approfondir le sujet : contr\u00f4le des comptes, analyse du fichier des \u00e9critures comptables (FEC), calcul des pourcentages d’int\u00e9r\u00eats (comptes consolid\u00e9s) y compris dans les cas les plus complexes (participations crois\u00e9es, autocontr\u00f4le…) gr\u00e2ce au calcul matriciel… Plus insolite : comment savoir si votre ordinateur calcule faux… ou non.<\/p>\n Afin d’\u00e9largir le sujet, une introduction \u00e0 la programmation en langage Basic<\/strong> (dont le VBA est une d\u00e9clinaison) est propos\u00e9e. Les langages VBA et Basic partagent les m\u00eames instructions de programmation et la m\u00eame syntaxe ; l\u2019apprentissage du Basic peut \u00eatre une bonne introduction au VBA. La d\u00e9couverte de la programmation par le jeu vid\u00e9o<\/a> s’av\u00e8re plus ludique.<\/p>\n Plus classique, voici le tutoriel complet de programmation d’un calcul d\u2019\u00e9ch\u00e9ancier d\u2019emprunt<\/strong> en langage Basic :<\/p>\n Le support de formation ainsi que les classeurs Excel comprenant les macros VBA sont t\u00e9l\u00e9chargeables ci-apr\u00e8s.<\/p>\n A titre subsidiaire, ENI vient de sortir la deuxi\u00e8me \u00e9dition du livre Business Intelligence avec Excel<\/a> \u00e9crit par Boris NORO. Cet ouvrage propose \u00e0 ses lecteurs de d\u00e9couvrir l’analyse de donn\u00e9es \u00e0 l’aide d’Excel et plus pr\u00e9cis\u00e9ment de Power Query, de Power Pivot, du Langage DAX…<\/p>\n Il n’aura \u00e9chapp\u00e9 \u00e0 personne, que l’intelligence artificielle<\/strong> s’immisce de plus en plus dans nos vies. Tout r\u00e9cemment ChatGPT<\/strong><\/a> a r\u00e9volutionn\u00e9 la g\u00e9n\u00e9ration de texte automatis\u00e9e. Cet outil est non seulement capable de “cr\u00e9er” du texte mais \u00e9galement de r\u00e9diger du code informatique. Cet outil est actuellement en version beta mais il faut le tester pour en comprendre le fonctionnement et voir comment chacun peut se l’approprier. Voici, \u00e0 titre d’illustration, une demande formul\u00e9e par mes soins visant \u00e0 obtenir de ChatGPT une fonction VBA<\/strong> calculant un montant TTC \u00e0 partir d’un montant HT et d’un taux de TVA<\/strong> (sujet \u00e9voqu\u00e9 dans le pr\u00e9c\u00e9dent volet de cette formation<\/a>) :<\/p>\n Finalement, il n’y aura peut-\u00eatre bient\u00f4t plus besoin d’apprendre \u00e0 programmer pour commander une machine ;-).<\/p>\n Le prochain volet s’attachera \u00e0 pr\u00e9senter le syst\u00e8me de gestion de bases de donn\u00e9es Access.<\/p>\n ___<\/p>\nFunction Prime_CA_Grille(CA As Double)\r\n'Calcul d'une prime en fonction du CA r\u00e9alis\u00e9\r\n 'Grilles CA et pourcentage (Pct) ; exemple CA >= 100 000 \u20ac et < 200 000 \u20ac, 1.5 % de prime\r\n Const GrilleCA = \"0;100000;200000;250000;300000\"\r\n Const GrillePct = \"0;1.5;2;2.5;2.75\"\r\n \r\n Dim Table_GrilleCA As Variant\r\n Dim Table_GrillePct As Variant\r\n Dim i As Integer\r\n \r\n 'Conversion des grilles en tableaux de donn\u00e9es\r\n Table_GrilleCA = Split(GrilleCA, \";\")\r\n Table_GrillePct = Split(GrillePct, \";\")\r\n \r\n 'Parcours de la table de CA et calcul de la prime\r\n For i = UBound(Table_GrilleCA) To LBound(Table_GrilleCA) Step -1\r\n If CA >= Table_GrilleCA(i) Then\r\n Prime_CA_Grille = CA * Val(Table_GrillePct(i)) \/ 100\r\n Exit For\r\n End If\r\n Next i\r\nEnd Function\r\n<\/pre>\n
![\"Test](\"https:\/\/www.auditsi.eu\/wp-content\/uploads\/2012\/06\/Test-conditionnel.png\")
<\/p>\nFunction Prime_CA_Palier(CA As Double)\r\n'Calcul d'une prime en fonction du CA r\u00e9alis\u00e9\r\n 'Grilles CA et pourcentage (Pct) ; exemple CA = 220 000 \u20ac, 0 % de prime jusque 99 999 \u20ac + 1,5 % de prime de 100 000 \u20ac \u00e0 199 999 \u20ac + 2 % de prime de 200 000 \u20ac \u00e0 220 000 \u20ac\r\n 'soit dans cet exemple une prime de 1 900 \u20ac\r\n Const GrilleCA = \"0;100000;200000;250000;300000\"\r\n Const GrillePct = \"0;1.5;2;2.5;2.75\"\r\n \r\n Dim Table_GrilleCA As Variant\r\n Dim Table_GrillePct As Variant\r\n Dim i As Integer\r\n Dim CA_Plafond As Double\r\n \r\n 'Conversion des grilles en tableaux de donn\u00e9es\r\n Table_GrilleCA = Split(GrilleCA, \";\")\r\n Table_GrillePct = Split(GrillePct, \";\")\r\n \r\n 'Parcours de la table de CA et calcul de la prime\r\n For i = UBound(Table_GrilleCA) To LBound(Table_GrilleCA) Step -1\r\n Select Case i < UBound(Table_GrilleCA)\r\n 'Si i = UBound(Table_GrilleCA) -> derni\u00e8re tranche de la grille de CA\r\n Case True:\r\n Select Case Table_GrilleCA(i + 1) < CA\r\n Case True:\r\n CA_Plafond = Table_GrilleCA(i + 1)\r\n Case False:\r\n If CA > Table_GrilleCA(i) Then CA_Plafond = CA Else CA_Plafond = Table_GrilleCA(i)\r\n End Select\r\n Case False:\r\n If CA > Table_GrilleCA(i) Then CA_Plafond = CA Else CA_Plafond = Table_GrilleCA(i)\r\n End Select\r\n Prime_CA_Palier = Prime_CA_Palier + (CA_Plafond - Table_GrilleCA(i)) * Val(Table_GrillePct(i)) \/ 100\r\n Next i\r\nEnd Function<\/pre>\n
![\"DONKEY](\"https:\/\/www.auditsi.eu\/wp-content\/uploads\/2020\/02\/DONKEY-KONG-SMALL-BASIC.png\")
<\/p>\n\n
![\"ChatGPT](\"https:\/\/www.auditsi.eu\/wp-content\/uploads\/2023\/01\/ChatGPT-Fonction-VBA.png\")
<\/p>\n
![\"Share](\"https:\/\/static.hupso.com\/share\/buttons\/lang\/fr\/share-small.png\")
<\/a>