Salut !

Je vous contacte car je bloque sur un problème surement tout bête, mais bon !
Je m'explique, je voudrais créer un petit programme me traçant des flèches, pour cela, j'ai écris ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub CommandButton1_Click()
 
'Déclaration des variables
Dim xA, yA, xB, yB, xI, yI As Integer
Dim xAgraph, yAgraph, xBgraph, yBgraph As Byte
Dim tabX(7)
Dim tabY(7)
Dim ligne As Shape
 
'Initialisation des variables
xI = 710
yI = 0
 
'Enregistrement des valeurs à tirer au sort pour X compris entre 710 et 920 (pas de 30) et Y compris entre 000 et 210 (pas de 30)
For i = 1 To 7
 tabX(i) = xI
 tabY(i) = yI
 xI = xI + 30
 yI = yI + 30
Next
 
'Tirage au sort de valeurs des deux tableaux
     Randomize
      xAgraph = Int(7 * Rnd) + 1
      yAgraph = Int(7 * Rnd) + 1
      xBgraph = Int(7 * Rnd) + 1
      yBgraph = Int(7 * Rnd) + 1
 
      xA = tabX(xAgraph)
      yA = tabY(yAgraph)
      xB = tabX(xBgraph)
      yB = tabY(yBgraph)
 
'Création du vecteur
Set ligne = ActivePresentation.Slides(3).Shapes.AddLine(xA, yA, xB, yB)
With ligne
.Line.ForeColor.RGB = RGB(255, 0, 0)
.Line.EndArrowheadStyle = msoArrowheadOpen
.Name = "Vecteur"
      End With
 
End Sub
Le problème, c'est que l'utilisateur pourra spammer le bouton et ajouter ainsi pleins de lignes, ce que je ne veux pas.
Je voudrais donc faire en sorte que à chaque pression du bouton, la flèche précédente soit supprimée.

Merci de votre aide !