Bonsoir
J'ai un userform qui contient divers contrôles :
Textbox, Combobox, Optionbutton.
Comment faire afin de rendre tous ces contrôles Locked = False
Merci beaucoup et bonne soirée
Vincent
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonsoir Vincent,
Comme tous les contrôles n'ont pas nécessairement cette propriété "Locked" comme le "Label", j'ai utilisé "on error resume next" pour passer outre !
Attention, Prévois un bouton sur lequel tu vas pouvoir continuer à interagir !!!
'------------------------ Private Sub CommandButton1_Click()
On Error Resume Next For Each c In UserForm1.Controls c.Locked = True If Err <> 0 Then Err = 0 Next
End Sub '------------------------
Salutations!
"Vincent" a écrit dans le message de news: uOrZ$ Bonsoir J'ai un userform qui contient divers contrôles : Textbox, Combobox, Optionbutton. Comment faire afin de rendre tous ces contrôles Locked = False Merci beaucoup et bonne soirée Vincent
Bonsoir Vincent,
Comme tous les contrôles n'ont pas nécessairement cette propriété "Locked" comme le "Label", j'ai utilisé "on error resume next"
pour passer outre !
Attention, Prévois un bouton sur lequel tu vas pouvoir continuer à interagir !!!
'------------------------
Private Sub CommandButton1_Click()
On Error Resume Next
For Each c In UserForm1.Controls
c.Locked = True
If Err <> 0 Then Err = 0
Next
End Sub
'------------------------
Salutations!
"Vincent" <vincent.richard@club-internet.fr> a écrit dans le message de news: uOrZ$FTQFHA.688@TK2MSFTNGP10.phx.gbl...
Bonsoir
J'ai un userform qui contient divers contrôles :
Textbox, Combobox, Optionbutton.
Comment faire afin de rendre tous ces contrôles Locked = False
Merci beaucoup et bonne soirée
Vincent
Comme tous les contrôles n'ont pas nécessairement cette propriété "Locked" comme le "Label", j'ai utilisé "on error resume next" pour passer outre !
Attention, Prévois un bouton sur lequel tu vas pouvoir continuer à interagir !!!
'------------------------ Private Sub CommandButton1_Click()
On Error Resume Next For Each c In UserForm1.Controls c.Locked = True If Err <> 0 Then Err = 0 Next
End Sub '------------------------
Salutations!
"Vincent" a écrit dans le message de news: uOrZ$ Bonsoir J'ai un userform qui contient divers contrôles : Textbox, Combobox, Optionbutton. Comment faire afin de rendre tous ces contrôles Locked = False Merci beaucoup et bonne soirée Vincent
