FAIRE DES PETITS DESSINS AVEC VISUAL BASIC

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 27 juil. 2010 à 14:14
NISANDSYSTEMS Messages postés 146 Date d'inscription vendredi 1 novembre 2002 Statut Membre Dernière intervention 13 décembre 2014 - 27 juil. 2010 à 15:56
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/52108-faire-des-petits-dessins-avec-visual-basic

NISANDSYSTEMS Messages postés 146 Date d'inscription vendredi 1 novembre 2002 Statut Membre Dernière intervention 13 décembre 2014
27 juil. 2010 à 15:56
Bonjour,

Que de code pour un résultat médiocre!
Créer des fonctions de dessin dans un module non dans la feuille.
Comme dit Renfield, chaque variable doit etre déclarée explicitement.

Dim Ax1, Ay1, Bx1, By1, Cx1, Cy1 As Single
devient
! = as single
& = as long
% =as integer
# = as double

Dim Ax1!, Ay1!, Bx1!, By1!, Cx1!, Cy1!
Bon courage.
@+
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
27 juil. 2010 à 14:14
Dim Ax1, Ay1, Bx1, By1, Cx1, Cy1 As Single

dans ce genre de codes, seul CY1 est un Single
les autres seront des Variant
Rejoignez-nous