Bouton Toggle

[chaelie2015]

Bonjour Forum
ci dessous un code que je souhaite faire afficher dans le bouton toggle (afficher ou masquer) quand je clic sur le bouton il affiche "Afficher" ou Masquer" selon le code.
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = "AFFICHER" Then
Columns(3).Hidden = True
Columns(4).Hidden = True
Columns(5).Hidden = True
Columns(6).Hidden = True
End If
If Not ToggleButton1.Value = "MASQUER" Then
Columns(3).Hidden = False
Columns(4).Hidden = False
Columns(5).Hidden = False
Columns(6).Hidden = False
End If
End Sub
A+

 

[patricktoulon]

bonjour tu confond ".value" et ".caption"
le value c'est true ou false
pour ton projet çà serait plutôt ça

Private Sub ToggleButton1_Click()
With ToggleButton1
.Caption = IIf(.Value = 0, "Masquer", "Afficher")
ActiveSheet.Range("c1:f1").EntireColumn.Hidden = .Value
End With
End Sub

 

[chaelie2015]

Bonjour patricktoulon
Merci pour les details, c'est nickel
a+