Bonjour,
je débute en VB excel.

J'ai codé ces 5 lignes dans la Feuil1 de mon classeur (afin d'appeller la macro Creer_Bouton dès qu'on change la valeur en A3)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A3")) Is Nothing Then
Call Creer_Bouton
End if
End Sub
Ca marche bien


Ensuite ma macro Creer_bouton crée des boutons (comme avec la boite à outils de contrôle) et avec la macro jointe ci-dessous je voudrais associer une macro à chaque bouton.
Mon problème c'est que je n'arrive pas à effacer les macros déjà affectées au bouton avant de les recréer, car j'ai l'erreur suivante :

Erreur d'éxécution '-2147024809 (80070057)' : Argument ou appel de procédure incorrect

sur la ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
.DeleteLines 6, .CountOfLines
Qui pourrait-me dire comment effacer les macros affectées aux boutons (dans Feuil1) tout en gardant mes 6 lignes de codes


Code de ma macro

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Sub Affecter_Macro()
Dim laMacro As String
Dim x As Long
Dim j As Long
Dim Y As Long
Dim Noligne As Long
 
 
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
 
Y = .CountOfLines
 
If Y > 5 Then
 
.DeleteLines 6, .CountOfLines
 
End If
 
 
 
laMacro = "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" & vbCrLf
 
 laMacro = laMacro & "If Not Application.Intersect(Target, Range(" & A3 & ")) Is Nothing Then" & vbCrLf
 
        laMacro = laMacro & "Call Creer_Bouton" & vbCrLf
 
         laMacro = laMacro & "End If" & vbCrLf
 
        laMacro = laMacro & "End Sub"
 
 
 
Y = .CountOfLines + 1
 
.InsertLines Y, laMacro
 
 
End With
 
For j = 1 To x
 
ActiveSheet.OLEObjects(j).Select
Noligne = ActiveSheet.OLEObjects(j).Top
 
Noligne = (Noligne / 18) + 1
 
      laMacro = "Sub CommandButton" & j & "_Click()" & vbCrLf
        laMacro = laMacro & "Call Macro1(" & Noligne & ")" & vbCrLf
         laMacro = laMacro & "End Sub"
 
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
Y = .CountOfLines + 1
.InsertLines Y, laMacro
End With
 
 Next j
End Sub