Remplacer CommandButton1 par fonction Fermé

Question

Bonjour, 
j'ai réalisé la fonction suivante sous Excel en VBA
Private Sub CommandButton1_Click()Call dev(4, CommandButton1.Name)End Sub
Qui appelle la sous fonction suivante:
Sub dev(a, b)If Rows(a & ":" & a).Hidden = True ThenRange(a & ":" & a).SelectSelection.EntireRow.Hidden = FalseCommandButton1.Caption = "-"ElseRange(a & ":" & a).SelectSelection.EntireRow.Hidden = TrueCommandButton1.Caption = "+"End IfEnd Sub
Je souhaiterais ne plus voir apparaitre CommandButton1 dans mon sous-programme. Et avoir la variable b à la place. Cependant le b.caption ne fonctionne pas. Savez-vous comment je pourrais faire? 
En vous remerciant par avance.

f894009 · Answer

Bonjour,
Private Sub CommandButton1_Click()
    Call dev(4, CommandButton1.Name)
End Sub

Sub dev(a, b)
    If Rows(a & ":" & a).Hidden = True Then
        Range(a & ":" & a).Select
        Selection.EntireRow.Hidden = False
        Me.Controls(b).Caption = "-"
    Else
        Range(a & ":" & a).Select
        Selection.EntireRow.Hidden = True
        Me.Controls(b).Caption = "+"
    End If
End Sub

Remplacer CommandButton1 par fonction

1 réponse

Discussions similaires