Remplacer CommandButton1 par fonction
nono3471
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 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.
A voir également:
- Remplacer CommandButton1 par fonction
- Fonction si et - Guide
- Remplacer disque dur par ssd - Guide
- Fonction remplacer sur word - Guide
- Remplacer coco - Accueil - Réseaux sociaux
- Quel site pour remplacer coco - Accueil - Réseaux sociaux
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
