Private Sub InkPicture1_Click(): Ajouter: End Sub
Private Sub InkPicture2_Click(): Supprimer: End Sub
Private Sub InkPicture1_MouseEnter()
'Debug.Print "MouseEnter"
over InkPicture1, "Ajouter une ligne"
End Sub
Private Sub InkPicture1_MouseLeave()
'Debug.Print "MouseLeave"
ActiveSheet.DrawingObjects("comm").Visible = False
End Sub
Private Sub InkPicture2_MouseEnter()
over InkPicture2, "Supprimer une ligne"
End Sub
Private Sub InkPicture2_MouseLeave()
ActiveSheet.DrawingObjects("comm").Visible = False
End Sub
Sub over(image, msg)
With ActiveSheet.DrawingObjects("comm")
.Text = msg
.Visible = True
.Left = image.Left + (image.Width / 2)
.Top = image.Top - 25
End With
End Sub