Remplacer CommandButton1 par fonction
nono3471
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai réalisé la fonction suivante sous Excel en VBA
Qui appelle la sous fonction suivante:
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.
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 Then
Range(a & ":" & a).Select
Selection.EntireRow.Hidden = False
CommandButton1.Caption = "-"
Else
Range(a & ":" & a).Select
Selection.EntireRow.Hidden = True
CommandButton1.Caption = "+"
End If
End 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.
1 réponse
-
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
