Bonjour,
Je n'arrive pas à trouver la bonne syntaxe pour effacer la sub placée dans une feuillece code proposé dans un forum ne fonctionne pas
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 Suboù est mon erreur SVP
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 With ThisWorkbook.VBProject.VBComponents("Feuil1") .Remove.Item ("bt_choix1") End With
Alain
Partager