Discussion :

[killowatt]

Bonjour,

je pense que mon problème est simple mais je pose quand même la question :

Je veux bloquer des controles dans un formulaire suivant leurs types :

Code :

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

1
2
3
4
5
6
7
8
9
 
 For Each ctl In Me.Controls
                    If TypeOf ctl Is Button Then
                        ctl.Locked = False
                    Else
                        ctl.Locked = True
 
                    End If
                Next ctl

Ici normalement tous les controles sont bloqués sauf les boutons.... Le problème est que j'ai une erreur :
Erreur d'exécution '438' :

Propriété ou méthode non gérée par cet objet.

J'ai beau cherché j'ai pas trouvé pkoi.. Une idée ?

[marsouin_89]

Bonjour,

Ne serait pas CommandButton au lieu de Button ?

J'ai un doute mais essaies tout de même au cas où.

[killowatt]

Voici le code qui permet de bloquer les codes les controls:

Code :

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

1
2
3
4
5
6
7
8
 
      Dim ctrl As Control
 
        For Each ctrl In Me.Controls
        If TypeOf ctrl Is TextBox Then
           ctrl.Locked = True
          End If
        Next

Par contre ce que je ne comprend c'est pourquoi ça ne marche pas quand on rajoute "ctrl" a coté de next....
Si quelqu'un à une réponse je suis preneur...