Corrigé 10.11 Construire un testeur de type de graphique
Option Explicit
Private Const strTitre As String = "VENTES REALISEES PAR MOIS"
Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long,
ByVal x As Long, ByVal y As Long)
Dim intNbTypes As Integer
Static intNbClics As Integer
On...