Discussion :

[Ovr19]

Bonjour,

j'ai un formulaire qui contient une vingtaine de champs (listbox, textbox et case à cocher) verrouillés contre les modifications.
sur action d'un bouton, je voudrai déverrouiller une partie des champs uniquement (index de tabulation de 13 à 21), et là je sèche.

Merci pour votre aide

[Domi2]

Bonjour,

C'est le formulaire qui est verrouillé contre les modifications, ou chaque contrôle individuellement?

Domi2

[Ovr19]

Se sont les contrôles qui sont verrouillés individuellement, et mon idée est de les déverrouiller à l'aide d'une boucle plutôt que de les traiter un par un, mais je n'ai trouvé aucune info à ce sujet.

[Domi2]

Quelque chose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim ctl As Control
 
For Each ctl In Me.Controls
 
    If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Or TypeOf ctl Is CheckBox Then
 
        ctl.enabled = False
 
    End If
 
Next

A voir si tu dois identifier ces 3 types de contrôles. Reste à introduire un test supplémentaire pour savoir lesquels doivent être déverrouillés. Plutôt que d'utiliser la propriété TabIndex, tu peux renseigner la propriété Remarque des contrôles et récupérer le contenu en VBA avec Tag.

Exemple, si tu mets dans la propriété Remarque "Modifiable, tu peux faire ton test comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If ctl.Tag = "Modifiable" then
 
    'Le traitement approprié
 
End If

Domi2

[Ovr19]

Ça marche super, je ne connaissais pas la propriété "Tag"

Encore merci pour ton aide