Remplacer CommandButton1 par fonction
Fermé
nono3471
-
28 déc. 2016 à 16:34
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 28 déc. 2016 à 17:12
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 28 déc. 2016 à 17:12
A voir également:
- Remplacer CommandButton1 par fonction
- Remplacer disque dur par ssd - Guide
- Fonction si et - Guide
- Remplacer cellule vide par 0 excel ✓ - Forum Excel
- Ajout snap par la fonction - Forum Snapchat
- Remplacer 0 par vide excel ✓ - Forum Bureautique
1 réponse
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
28 déc. 2016 à 17:12
28 déc. 2016 à 17:12
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