Discussion :

[mim0che]

Bonjour à toutes et à tous,

C'est après des recherches que je me résous à poster ici. En effet je rencontre un problème avec un changement de nom d'un bouton créé par une autre macro.
J'ai un premier bouton a qui j'ai affecté une macro, cette macro créée des lignes et au bout de cette ligne je rajoute donc un bouton et je voudrais que celui-ci s'appelle "vendre" or quand je fais .Caption = "Vendre" il me change le nom de tous mes boutons déjà présents sur ma feuille.

voici le code utilisé

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
Private Sub valider_Click()
 
[...]        
 
Call creation_bouton 'appeler macro bouton
 
[...]
 
End Sub
 
____________
 
 
Sub creation_bouton()
 
Dim PosG As Integer
Dim PosH As Integer
Dim Hauteur As Integer
Dim Longueur As Integer
 
With Range("B6500").End(xlUp).Offset(0, 6)
       PosG = .Left
       PosH = .Top
       Hauteur = .Height
       Longueur = .Width
End With
 
   With ActiveSheet.Buttons
      .Add(PosG, PosH, Longueur, Hauteur).Select
      .OnAction = "valider_Click"
      .Caption = "Vendre"
   End With
 
End Sub

du coup j'ai mis le .Caption = "Vendre" en commentaire mais les boutons s'appellent bouton14, bouton 15, etc.

D'avance merci pour votre aide

[mim0che]

J'ai trouvé la solution, je poste ici au cas ou quelqu'un aurait le même soucis

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
 
Private Sub valider_Click()
 
[...]        
 
Call creation_bouton 'appeler macro bouton
 
[...]
 
End Sub
 
____________
 
 
Sub creation_bouton()
 
Dim PosG As Integer
Dim PosH As Integer
Dim Hauteur As Integer
Dim Longueur As Integer
 
With Range("B6500").End(xlUp).Offset(0, 6)
       PosG = .Left
       PosH = .Top
       Hauteur = .Height
       Longueur = .Width
End With
 
   With ActiveSheet.Buttons
      .Add(PosG, PosH, Longueur, Hauteur).Select
      Selection.OnAction = "vendre" 'macro affectée au nouveau bouton créé à place dans le module
      Selection.Caption = "Vendre" 'nom affiché sur le nouveau bouton créé
   End With
 
End Sub

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
 Sub creation_bouton()
    Dim r As Range
    With ActiveSheet
        Set r = .Cells(.Cells.Rows.Count, "B").End(xlUp).Offset(0, 6)
          With .Buttons.Add(r.Left, r.Top, r.Width, r.Height)
            .OnAction = "vendre" 'macro affectée au nouveau bouton créé à place dans le module
           .Caption = "Vendre" 'nom affiché sur le nouveau bouton créé
        End With
    End With
End Sub