Apprendre la programmation en VBA pour EXCEL par la pratique - Deuxième partie,
Un tutoriel de Laurent OTT
Le 2016-09-14 02:20:29, par laurent_ott, Rédacteur
Bonjour à tous,
j'ai le plaisir de vous présenter le tome 2 de ce mémento qui aborde la programmation en mode graphique avec un cas de programmation d'un jeu d'arcade en VBA et Microsoft Excel.
Dans le tome 1, nous avons étudié les bases de la programmation d'EXCEL en VBA. Ce tome 2 est consacré à une partie plus ludique : la programmation en mode graphique.
Mais pourquoi programmer en mode graphique ? Imaginez que vous puissiez maîtriser chacun des pixels de votre écran, afficher des images, gérer des animations… Vous devinez toute la richesse qu'une programmation en mode graphique peut vous apporter. Certes, pas dans une application ordinaire, mais pour un jeu d'arcade, c'est l'outil idéal qui vous manquait pour laisser libre cours à votre imagination.
Bonne lecture et n'hésitez pas à apporter vos commentaires
Retrouvez les meilleurs cours et tutoriels pour apprendre Microsoft Excel
j'ai le plaisir de vous présenter le tome 2 de ce mémento qui aborde la programmation en mode graphique avec un cas de programmation d'un jeu d'arcade en VBA et Microsoft Excel.
Dans le tome 1, nous avons étudié les bases de la programmation d'EXCEL en VBA. Ce tome 2 est consacré à une partie plus ludique : la programmation en mode graphique.
Mais pourquoi programmer en mode graphique ? Imaginez que vous puissiez maîtriser chacun des pixels de votre écran, afficher des images, gérer des animations… Vous devinez toute la richesse qu'une programmation en mode graphique peut vous apporter. Certes, pas dans une application ordinaire, mais pour un jeu d'arcade, c'est l'outil idéal qui vous manquait pour laisser libre cours à votre imagination.
Bonne lecture et n'hésitez pas à apporter vos commentaires
-
joe.levraiExpert éminentJ'en ai retrouvé une !
sujet complet : http://www.developpez.net/forums/d15...ode-sharpname/
l'exemple : http://www.developpez.net/forums/d15...e/#post8597076le 21/10/2016 à 17:47 -
laurent_ottRédacteurPar habitude de programmation, tout simplement (et tout bêtement) !
Je viens de tester et effectivement, SELECT CASE semble bien plus rapide que IF dans une boucle répétée plusieurs milliers de fois. Mais la différence est infime sur un appel ponctuel. En tout cas merci pour cette remarque, j'en tiendrai compte dans mes prochains programmes.
D'après mes tests, le second n'est pas plus rapide. Ici, comme la variable "Milieu" est déclarée Entier Long, la valeur calculée renvoyée sera toujours un entier (donc la partie entière), et donc pas besoin d'utiliser \ dans ce cas.le 03/10/2018 à 15:59 -
eriiicMembre expertBonjour,Milieu = (Début + Fin) / 2
Pourquoi avoir utiliser le / en lieu et place du \? Étant donné qu'on a besoin de la partie entière de la division, le second n'est il pas plus rapide?
Avec Début = 1 et Fin = 6, soit une somme impaire :
(Début + Fin) / 2 = 3.5, qui sera arrondi à 4 lors de la conversion si Milieu est typé Entier
(Début + Fin) \ 2 = 3, résultat de la division entière, et restera à 3.
Il faut penser à en tenir compte.
ericle 04/10/2018 à 11:27 -
digilisylCandidat au ClubBonjour
Je débute également avec VBA, et suis pas à pas ce tuto très intéressant
En fait, le problème soulevé par Bernardassyst vient des lignes 25 et 26 :
Il faut renommer les variables NbBonbon et NbScoubidou (que l'on avait créées précédemment comme argument facultatif pour modifier la fonction CompterPoche) en : MesBonbon et MesScoubidou, qui elles, sont bien déclarées.
Cela donne :Code : 1
2
3
4
5
6
7
8While Cells(Ligne, MaColonne) <> "" ' Tant que cellule(y,x) n'est pas vide. CompterPoche = CompterPoche + 1 ' Incrémente le nombre d'éléments trouvés. If Cells(Ligne, MaColonne) = "x" Then MesBonbon = MesBonbon + 1 ' Les bonbons. If Cells(Ligne, MaColonne) = "s" Then MesScoubidou = MesScoubidou + 1 ' Les scoubidous. Ligne = Ligne + 1 ' Passe à la ligne suivante. Wend
(sauf erreur ou omission...) le 04/10/2016 à 12:50 -
joe.levraiExpert éminentBonjour,
bravo pour ce travail de pédagogie et concentration de "l'essentiel pour débuter efficacement".
je n'ai encore que partiellement parcouru le Tome 1 (et du coup pas encore lu le Tome 2 non plus)
mais un point n'est pas en accord avec ma façon de voir l'apprentisation de programmation VBA
dans le chapitre II Prérequis, il est écritUn objet peut avoir une propriété par défaut. Par exemple la propriété Value pour l'objet Range. Dans ce cas il n'est pas nécessaire de saisir cette propriété. Et Range("A1"= 15 équivaut à Range("A1" .Value = 15
en effet, débat déjà abordé dans plusieurs sujets de la section VBA Excel : dans certaines situation, c'est le propriété .Text qui sera prise par défaut. Et là clairement, on est plus sur le même type de variable (.Text = ce qui est affiché dans la cellule, .Value = ce qui est affiché dans la barre de formule pour simplifier grandement)
De quoi rendre chauve un débutant qui ne va pas réussir à débogger
J'avais laissé quelques exemples sur le forum, mais je ne retrouve plus les messagesle 21/10/2016 à 16:04 -
Marc-LExpert éminent séniorBonjour !
Je confirme : Range n'a pas de propriété par défaut !
Souvent VBA sélectionne Value mais selon le contexte il arrive parfois à la propriété Text d'être choisie,
j'en connais encore se les mordant (au choix !) en ayant buté plusieurs jours sans spécifier de propriété !
_________________________________________________________________________________________________________Je suis Paris, Nice, Bruxelles, Charlie, …le 21/10/2016 à 16:16 -
Marc-LExpert éminent sénior
Idem pour moi … Si le constat de la propriété Text à la place de Value est rare
- on s'en aperçoit qu'en cas de souci - j'ai quand même rencontré ce cas plusieurs fois !le 21/10/2016 à 17:07 -
laurent_ottRédacteurBonjour.
Je te conseille d'ouvrir une discussion sur le forum EXCEL. Tu pourras joindre tes fichiers au format xlsx (pas de xlsm) et on pourra voir plus facilement ce qui bloque.le 13/10/2017 à 11:18 -
Patrice740Expert confirméIl ne s'agit pas de VBA mais d'une formule à placer en A1 d'une feuille de calcul et à tirer jusqu'en A10000 :
=ALEA.ENTRE.BORNES(0;10000)
Edit : avec les raccourcis clavier, c'est plus simple de la placer en A10000 et de la copier jusqu'en A1le 18/01/2018 à 18:05 -
laurent_ottRédacteurBonjour.
Tu peux ouvrir une discussion sur le forum EXCEL : https://www.developpez.net/forums/f6...ros-vba-excel/ en cliquant sur le bouton "ajouter une discussion" après t'être identifié(e).
Ou me contacter en messagerie privée : en cliquant sur mon nom. D'ailleurs tu constateras dans ton "tableau de bord", rubrique "boîte de réception", que j'avais répondu à ton précédent message.
Et tu y trouveras la réponse à cette nouvelle question.
A Bientôt.le 25/01/2018 à 18:27