Discussion :

[alainb]

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

[Gorfael]

Salut alainb et le forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub bt_choix1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)

Je n'aime pas toucher au code avec du code, mais par habitude, Excel ne gère pas l'à-peu-près. Donc ton code devrait plus ressembler à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With ThisWorkbook.VBProject.VBComponents("Feuil1").Remove.Item ("bt_choix1_MouseMove")

Pas testé, donc sans garantie.
A+

[mercatog]

Une proposition (non la meilleure)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub aaaa()
Dim Deb As Integer, Fin As Integer
Dim strProc As String
 
strProc = "bt_choix1_MouseMove"
On Error Resume Next
With ThisWorkbook.VBProject.VBComponents("Feuil1").CodeModule
   Deb = .ProcStartLine(strProc, 0)
   Fin = .ProcCountLines(strProc, 0)
   .DeleteLines Deb, Fin
End With
On Error GoTo 0
End Sub

[alainb]

Bonsoir et merci mercatog !
Ta solution fonctionne parfaitement
Alain