Bonjour,
Je n'arrive pas à trouver la bonne syntaxe pour effacer la sub placée dans une feuille
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub bt_choix1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
If x < 10 Or x > choix1.Width - 10 Or Y < 10 Or Y > choix1.Height - 10 Then
ActiveSheet.Shapes("message_choix1").Visible = False
Else
ActiveSheet.Shapes("message_choix1").Visible = True
End If
End Sub
ce code proposé dans un forum ne fonctionne pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
With ThisWorkbook.VBProject.VBComponents("Feuil1")
.Remove.Item ("bt_choix1") 
End With
où est mon erreur SVP
Alain