Toujours allergique aux boutons et partisan du moindre effort, dans ThisWorkbook(clic en A4 avec effet bascule donc plus de bouton !)
VB:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal R As Range)
If R.Address = "$A$4" And R.Count = 1 Then Rows(5).Hidden = Not Rows(5).Hidden: R(1, 2).Select
End Sub
Variante de syntaxe, si il s'agit d'éviter l'effort de saisie du If/End if
VB:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal R As Range)
Rows(5).Hidden = Not Rows(5).Hidden = (R.Address = "$A$4" And R.Count = 1)
End Sub
Bonjour Ce lien n'existe plus...
CHAPEAU
Je ferme le micro car je n'en peux!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Bonne fin de WE
Bien cordialement
Lone , pour moi, la macro s'écrit selon le contexte. Je n'ai pas précisé qu'il fallait supprimer cette poussée d'acné car, dès le début, j'aurais évité d'insérer les contrôles .
J'aime bien aussi m'amender surtout honorablement .
Cela t'a quand même demandé un effort supplémentaire non ?
On ne "bascule" pas de la même façon : avec ton code, il changer de sélection puis revenir basculer alors qu'avec le mien, on se contente de revenir pour le faire. Une étape de moins demande une légère complication du code.
Pour les boutons, on peut aussi didposer de celui dit bascule (ToggleButton)
VB:
Private Sub ToggleButton1_Click()
Rows(5).Hidden = ToggleButton1
End Sub