Bonjour à tous,
Dans le fichier joint, j'utilise un Module de Classe afin de modifier l'image de ToggleButton sur événement Click.
Malheureusement, je suis débutant en termes de Module de Classe.
Ce que j'aimerai faire c'est verrouiller/déverrouiller mes TextBox et comboBox en fonction de la valeur du toggleButton.
A l'ouverture, tous les Toggle sont = False et tous les texts et combos Box sont locked.
j'aimerai rajouter dans le module de classe, si Toggle = True alors le textbox ou combobox correspondant = unlocked et inversement.
Merci par avance !
EDIT :
Déjà il manque
Public NumBoxes As Collection
dans le code de l'userform
Et ensuite, je pense avoir résolu mon problème avec dans le module de classe :
Public WithEvents TargetBox As MSForms.ToggleButton
Private Sub TargetBox_Click()
Num = Mid(TargetBox.Name, 13)
If TargetBox.Value = True Then
TargetBox.Picture = Sheets("Paramètres").Image2.Picture
Module_Maj_Contrat.Controls("Contrôle" & Num).Enabled = True
Module_Maj_Contrat.Controls("Contrôle" & Num).Locked = False
Else
TargetBox.Picture = Sheets("Paramètres").Image1.Picture
End If
End Sub
Je suis preneur pour d'autres solutions si vous en avez ! Je clos le sujet cet aprem.
Merci