Comment dessiner des vecteurs dans les macros Excel

Microsoft Excel est l'un des tableurs les plus puissants, utile pour une immense variété d'activités, de l'analyse financière aux projets scientifiques. Pourtant, la plupart pensent qu'Excel se limite à manipuler des grilles de formules. Mais le scripting Visual Basic d'Excel permet d'aller bien plus loin. Avec VB, vous pouvez dessiner n'importe quelle forme sur la feuille, et les utiliser pour créer des dessins, graphiques et autres graphiques pour visualiser vos données.

Étape 1

Ouvrez Microsoft Excel. Si vous avez Excel 2007 ou ultérieur, allez dans l'onglet « Affichage » du ruban et cliquez sur « Macros » ; sinon, cliquez sur le menu « Outils » et choisissez « Macros ». La boîte de dialogue Macro doit apparaître.

Étape 2

Tapez un nom de macro et cliquez sur « Créer ». Cela devrait ouvrir l'éditeur Visual Basic avec une nouvelle sous-routine vide affichée.

Étape 3

Déterminez les coordonnées X et Y pour le début et la fin de votre vecteur. Le coin supérieur gauche de la feuille est en (0, 0), X et Y augmentant vers la droite et vers le bas respectivement. Mettez ces valeurs dans des variables :

start_x = 0
start_y = 0
end_x = 100
end_y = 100

Ces valeurs tracent une ligne diagonale dans le coin supérieur gauche. Vous devrez peut-être expérimenter avec d'autres nombres pour placer la ligne exactement où vous voulez.

Étape 4

Ajoutez le code pour dessiner la ligne :

line = Sheet1.Shapes.AddLine(start_x, start_y, end_x, end_y)

Étape 5

Ajoutez le code pour ajouter une pointe de flèche à la fin de la ligne, pour qu'elle ressemble à un vecteur :

line.Line.EndArrowheadStyle = MsoArrowheadStyle.msoArrowheadTriangle

Étape 6

Fermez l'éditeur Visual Basic et ouvrez la boîte de dialogue Macro (voir Étape 1). Cliquez sur votre macro et sur « Exécuter ». Vous devriez voir votre ligne apparaître.

Astuce

Vous pouvez utiliser la variable « line » créée à l'étape 4 pour modifier d'autres propriétés de votre vecteur. Par exemple, pour changer la couleur en vert : line.Line.ForeColor.RGB = RGB(0, 255, 0)