Bonjour,
Comment verrouiller/d=E9verrouiller les boutons situ=E9s dans=20
un groupe d'options
Mon groupe d'options se nomme :=20
- Type_Depense
=E0 l'int=E9rieur, les boutons se nomment :
- Cocher_DO
- Cocher_AP
- Cocher_CP
Pour verrouiller tous les contr=F4les, j'utilise :
Dim ctl As Control
For Each ctl In Me.Controls
ctl.Locked =3D True
Next ctl
Si je passe ctl.Locked =E0 False le groupe d'options ne se=20
d=E9verrouille pas alors que tous les autres champs sont=20
d=E9verrouill=E9s.
Si quelqu'un a une id=E9e...
Merci d'avance.
Dan
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
Eric
Bonsoir Dan
je viens de tester et ca marche très bien
Tu es sur que tu n'as pas aussi redéfini la propriété Enabled ?
A+ Eric
"Dan" écrivait news:1752f01c41d98 $540c6730$:
Bonjour, Comment verrouiller/déverrouiller les boutons situés dans un groupe d'options Mon groupe d'options se nomme : - Type_Depense à l'intérieur, les boutons se nomment : - Cocher_DO - Cocher_AP - Cocher_CP
Pour verrouiller tous les contrôles, j'utilise : Dim ctl As Control For Each ctl In Me.Controls ctl.Locked = True Next ctl
Si je passe ctl.Locked à False le groupe d'options ne se déverrouille pas alors que tous les autres champs sont déverrouillés. Si quelqu'un a une idée... Merci d'avance. Dan
Bonsoir Dan
je viens de tester et ca marche très bien
Tu es sur que tu n'as pas aussi redéfini la propriété Enabled ?
Bonjour,
Comment verrouiller/déverrouiller les boutons situés dans
un groupe d'options
Mon groupe d'options se nomme :
- Type_Depense
à l'intérieur, les boutons se nomment :
- Cocher_DO
- Cocher_AP
- Cocher_CP
Pour verrouiller tous les contrôles, j'utilise :
Dim ctl As Control
For Each ctl In Me.Controls
ctl.Locked = True
Next ctl
Si je passe ctl.Locked à False le groupe d'options ne se
déverrouille pas alors que tous les autres champs sont
déverrouillés.
Si quelqu'un a une idée...
Merci d'avance.
Dan
Tu es sur que tu n'as pas aussi redéfini la propriété Enabled ?
A+ Eric
"Dan" écrivait news:1752f01c41d98 $540c6730$:
Bonjour, Comment verrouiller/déverrouiller les boutons situés dans un groupe d'options Mon groupe d'options se nomme : - Type_Depense à l'intérieur, les boutons se nomment : - Cocher_DO - Cocher_AP - Cocher_CP
Pour verrouiller tous les contrôles, j'utilise : Dim ctl As Control For Each ctl In Me.Controls ctl.Locked = True Next ctl
Si je passe ctl.Locked à False le groupe d'options ne se déverrouille pas alors que tous les autres champs sont déverrouillés. Si quelqu'un a une idée... Merci d'avance. Dan
Eric
re,
Pour info, il serait meilleur de mettre une instruction If TypeOf c is OptionButton Then c.locked=true ' ou False suivant le cas end if car sinon je pense que ca te plante si le form contient des labels
a+
"Dan" écrivait news:1752f01c41d98 $540c6730$:
Bonjour, Comment verrouiller/déverrouiller les boutons situés dans un groupe d'options Mon groupe d'options se nomme : - Type_Depense à l'intérieur, les boutons se nomment : - Cocher_DO - Cocher_AP - Cocher_CP
Pour verrouiller tous les contrôles, j'utilise : Dim ctl As Control For Each ctl In Me.Controls ctl.Locked = True Next ctl
Si je passe ctl.Locked à False le groupe d'options ne se déverrouille pas alors que tous les autres champs sont déverrouillés. Si quelqu'un a une idée... Merci d'avance. Dan
re,
Pour info, il serait meilleur de mettre une instruction
If TypeOf c is OptionButton Then
c.locked=true ' ou False suivant le cas
end if
car sinon je pense que ca te plante si le form contient des labels
Bonjour,
Comment verrouiller/déverrouiller les boutons situés dans
un groupe d'options
Mon groupe d'options se nomme :
- Type_Depense
à l'intérieur, les boutons se nomment :
- Cocher_DO
- Cocher_AP
- Cocher_CP
Pour verrouiller tous les contrôles, j'utilise :
Dim ctl As Control
For Each ctl In Me.Controls
ctl.Locked = True
Next ctl
Si je passe ctl.Locked à False le groupe d'options ne se
déverrouille pas alors que tous les autres champs sont
déverrouillés.
Si quelqu'un a une idée...
Merci d'avance.
Dan
Pour info, il serait meilleur de mettre une instruction If TypeOf c is OptionButton Then c.locked=true ' ou False suivant le cas end if car sinon je pense que ca te plante si le form contient des labels
a+
"Dan" écrivait news:1752f01c41d98 $540c6730$:
Bonjour, Comment verrouiller/déverrouiller les boutons situés dans un groupe d'options Mon groupe d'options se nomme : - Type_Depense à l'intérieur, les boutons se nomment : - Cocher_DO - Cocher_AP - Cocher_CP
Pour verrouiller tous les contrôles, j'utilise : Dim ctl As Control For Each ctl In Me.Controls ctl.Locked = True Next ctl
Si je passe ctl.Locked à False le groupe d'options ne se déverrouille pas alors que tous les autres champs sont déverrouillés. Si quelqu'un a une idée... Merci d'avance. Dan
Dan
Bonsoir Eric, Je me suis mal expliqué : Je cherche à tout verrouiller sauf le groupe d'options. Donc j'utilise Dim ctl As Control For Each ctl In Me.Controls ctl.Locked = True Next ctl
qui verrouille tout et ensuite je voudrais déverrouiller uniquement le groupe d'options qui se nomme :
- Type_Depense à l'intérieur, les boutons se nomment : - Cocher_DO - Cocher_AP - Cocher_CP
J'ai donc essayé de sélectionner le groupe d'options après avoir tout verrouiller de cette façon : Me.Type_Depense.Locked = False
mais ça n'a pas déverrouiller ce dernier.
C'est un peu plus clair ?
Merci encore
Dan
-----Message d'origine----- Bonsoir Dan
je viens de tester et ca marche très bien
Tu es sur que tu n'as pas aussi redéfini la propriété Enabled ?
A+ Eric
"Dan" écrivait news:1752f01c41d98
$540c6730$:
Bonjour, Comment verrouiller/déverrouiller les boutons situés dans
un groupe d'options Mon groupe d'options se nomme : - Type_Depense à l'intérieur, les boutons se nomment : - Cocher_DO - Cocher_AP - Cocher_CP
Pour verrouiller tous les contrôles, j'utilise : Dim ctl As Control For Each ctl In Me.Controls ctl.Locked = True Next ctl
Si je passe ctl.Locked à False le groupe d'options ne se
déverrouille pas alors que tous les autres champs sont déverrouillés. Si quelqu'un a une idée... Merci d'avance. Dan
.
Bonsoir Eric,
Je me suis mal expliqué :
Je cherche à tout verrouiller sauf le groupe d'options.
Donc j'utilise
Dim ctl As Control
For Each ctl In Me.Controls
ctl.Locked = True
Next ctl
qui verrouille tout et ensuite je voudrais déverrouiller
uniquement le groupe d'options qui se nomme :
- Type_Depense
à l'intérieur, les boutons se nomment :
- Cocher_DO
- Cocher_AP
- Cocher_CP
J'ai donc essayé de sélectionner le groupe d'options
après avoir tout verrouiller de cette façon :
Me.Type_Depense.Locked = False
mais ça n'a pas déverrouiller ce dernier.
C'est un peu plus clair ?
Merci encore
Dan
-----Message d'origine-----
Bonsoir Dan
je viens de tester et ca marche très bien
Tu es sur que tu n'as pas aussi redéfini la propriété
Enabled ?
Bonsoir Eric, Je me suis mal expliqué : Je cherche à tout verrouiller sauf le groupe d'options. Donc j'utilise Dim ctl As Control For Each ctl In Me.Controls ctl.Locked = True Next ctl
qui verrouille tout et ensuite je voudrais déverrouiller uniquement le groupe d'options qui se nomme :
- Type_Depense à l'intérieur, les boutons se nomment : - Cocher_DO - Cocher_AP - Cocher_CP
J'ai donc essayé de sélectionner le groupe d'options après avoir tout verrouiller de cette façon : Me.Type_Depense.Locked = False
mais ça n'a pas déverrouiller ce dernier.
C'est un peu plus clair ?
Merci encore
Dan
-----Message d'origine----- Bonsoir Dan
je viens de tester et ca marche très bien
Tu es sur que tu n'as pas aussi redéfini la propriété Enabled ?
A+ Eric
"Dan" écrivait news:1752f01c41d98
$540c6730$:
Bonjour, Comment verrouiller/déverrouiller les boutons situés dans
un groupe d'options Mon groupe d'options se nomme : - Type_Depense à l'intérieur, les boutons se nomment : - Cocher_DO - Cocher_AP - Cocher_CP
Pour verrouiller tous les contrôles, j'utilise : Dim ctl As Control For Each ctl In Me.Controls ctl.Locked = True Next ctl
Si je passe ctl.Locked à False le groupe d'options ne se
déverrouille pas alors que tous les autres champs sont déverrouillés. Si quelqu'un a une idée... Merci d'avance. Dan
.
Eric
Re Bonsoir"Dan"
Je suis surpris que ta proc ne bloque pas s'il y a des controles Label ou des CommandButton dans le formulaire.
Essaies ca :
Private Sub Commande1_Click() 'pour désactiver tout sauf le groupe et les cases option Dim c As Control For Each c In Me.Controls If c.Name <> "Cadre0" And Not TypeOf c Is Label And Not TypeOf c Is CommandButton And Not TypeOf c is OptionButton Then c.Locked = True End If Next c End Sub
A rajouter Enabled = true ou false sur les TextBox
A+ Eric
Dan écrivait news:15a2c01c41d9e$07198dd0$:
Bonsoir Eric, Je me suis mal expliqué : Je cherche à tout verrouiller sauf le groupe d'options. Donc j'utilise Dim ctl As Control For Each ctl In Me.Controls ctl.Locked = True Next ctl
qui verrouille tout et ensuite je voudrais déverrouiller uniquement le groupe d'options qui se nomme :
- Type_Depense à l'intérieur, les boutons se nomment : - Cocher_DO - Cocher_AP - Cocher_CP
J'ai donc essayé de sélectionner le groupe d'options après avoir tout verrouiller de cette façon : Me.Type_Depense.Locked = False
mais ça n'a pas déverrouiller ce dernier.
C'est un peu plus clair ?
Merci encore
Dan
-----Message d'origine----- Bonsoir Dan
je viens de tester et ca marche très bien
Tu es sur que tu n'as pas aussi redéfini la propriété Enabled ?
A+ Eric
"Dan" écrivait news:1752f01c41d98
$540c6730$:
Bonjour, Comment verrouiller/déverrouiller les boutons situés dans
un groupe d'options Mon groupe d'options se nomme : - Type_Depense à l'intérieur, les boutons se nomment : - Cocher_DO - Cocher_AP - Cocher_CP
Pour verrouiller tous les contrôles, j'utilise : Dim ctl As Control For Each ctl In Me.Controls ctl.Locked = True Next ctl
Si je passe ctl.Locked à False le groupe d'options ne se
déverrouille pas alors que tous les autres champs sont déverrouillés. Si quelqu'un a une idée... Merci d'avance. Dan
.
Re Bonsoir"Dan"
Je suis surpris que ta proc ne bloque pas s'il y a des controles Label ou
des CommandButton dans le formulaire.
Essaies ca :
Private Sub Commande1_Click() 'pour désactiver tout sauf le groupe et les
cases option
Dim c As Control
For Each c In Me.Controls
If c.Name <> "Cadre0" And Not TypeOf c Is Label And Not TypeOf c
Is CommandButton And Not TypeOf c is OptionButton Then
c.Locked = True
End If
Next c
End Sub
A rajouter Enabled = true ou false sur les TextBox
A+
Eric
Dan écrivait news:15a2c01c41d9e$07198dd0$a001280a@phx.gbl:
Bonsoir Eric,
Je me suis mal expliqué :
Je cherche à tout verrouiller sauf le groupe d'options.
Donc j'utilise
Dim ctl As Control
For Each ctl In Me.Controls
ctl.Locked = True
Next ctl
qui verrouille tout et ensuite je voudrais déverrouiller
uniquement le groupe d'options qui se nomme :
- Type_Depense
à l'intérieur, les boutons se nomment :
- Cocher_DO
- Cocher_AP
- Cocher_CP
J'ai donc essayé de sélectionner le groupe d'options
après avoir tout verrouiller de cette façon :
Me.Type_Depense.Locked = False
mais ça n'a pas déverrouiller ce dernier.
C'est un peu plus clair ?
Merci encore
Dan
-----Message d'origine-----
Bonsoir Dan
je viens de tester et ca marche très bien
Tu es sur que tu n'as pas aussi redéfini la propriété
Enabled ?
Je suis surpris que ta proc ne bloque pas s'il y a des controles Label ou des CommandButton dans le formulaire.
Essaies ca :
Private Sub Commande1_Click() 'pour désactiver tout sauf le groupe et les cases option Dim c As Control For Each c In Me.Controls If c.Name <> "Cadre0" And Not TypeOf c Is Label And Not TypeOf c Is CommandButton And Not TypeOf c is OptionButton Then c.Locked = True End If Next c End Sub
A rajouter Enabled = true ou false sur les TextBox
A+ Eric
Dan écrivait news:15a2c01c41d9e$07198dd0$:
Bonsoir Eric, Je me suis mal expliqué : Je cherche à tout verrouiller sauf le groupe d'options. Donc j'utilise Dim ctl As Control For Each ctl In Me.Controls ctl.Locked = True Next ctl
qui verrouille tout et ensuite je voudrais déverrouiller uniquement le groupe d'options qui se nomme :
- Type_Depense à l'intérieur, les boutons se nomment : - Cocher_DO - Cocher_AP - Cocher_CP
J'ai donc essayé de sélectionner le groupe d'options après avoir tout verrouiller de cette façon : Me.Type_Depense.Locked = False
mais ça n'a pas déverrouiller ce dernier.
C'est un peu plus clair ?
Merci encore
Dan
-----Message d'origine----- Bonsoir Dan
je viens de tester et ca marche très bien
Tu es sur que tu n'as pas aussi redéfini la propriété Enabled ?
A+ Eric
"Dan" écrivait news:1752f01c41d98
$540c6730$:
Bonjour, Comment verrouiller/déverrouiller les boutons situés dans
un groupe d'options Mon groupe d'options se nomme : - Type_Depense à l'intérieur, les boutons se nomment : - Cocher_DO - Cocher_AP - Cocher_CP
Pour verrouiller tous les contrôles, j'utilise : Dim ctl As Control For Each ctl In Me.Controls ctl.Locked = True Next ctl
Si je passe ctl.Locked à False le groupe d'options ne se
déverrouille pas alors que tous les autres champs sont déverrouillés. Si quelqu'un a une idée... Merci d'avance. Dan
.
Eric
re Ooops, je sais plus lire Tu auras corrigé par toi-même, je suppose, la proc je te parle de cases d'option alors que dans ta proc tu indiques des cases à cocher !!!
Donc la proc devient : Private Sub Commande1_Click() Dim c As Control For Each c In Me.Controls If c.Name <> "Cadre0" And Not TypeOf c Is Label And Not TypeOf c Is CommandButton And Not TypeOf c Is CheckBox Then c.Locked = True End If Next c End Sub
A+ Eric
"Dan" écrivait news:15a2c01c41d9e $07198dd0$:
Bonsoir Eric, Je me suis mal expliqué : Je cherche à tout verrouiller sauf le groupe d'options. Donc j'utilise Dim ctl As Control For Each ctl In Me.Controls ctl.Locked = True Next ctl
qui verrouille tout et ensuite je voudrais déverrouiller uniquement le groupe d'options qui se nomme :
- Type_Depense à l'intérieur, les boutons se nomment : - Cocher_DO - Cocher_AP - Cocher_CP
J'ai donc essayé de sélectionner le groupe d'options après avoir tout verrouiller de cette façon : Me.Type_Depense.Locked = False
mais ça n'a pas déverrouiller ce dernier.
C'est un peu plus clair ?
Merci encore
Dan
-----Message d'origine----- Bonsoir Dan
je viens de tester et ca marche très bien
Tu es sur que tu n'as pas aussi redéfini la propriété Enabled ?
A+ Eric
"Dan" écrivait news:1752f01c41d98 $540c6730$:
Bonjour, Comment verrouiller/déverrouiller les boutons situés dans un groupe d'options Mon groupe d'options se nomme : - Type_Depense à l'intérieur, les boutons se nomment : - Cocher_DO - Cocher_AP - Cocher_CP
Pour verrouiller tous les contrôles, j'utilise : Dim ctl As Control For Each ctl In Me.Controls ctl.Locked = True Next ctl
Si je passe ctl.Locked à False le groupe d'options ne se déverrouille pas alors que tous les autres champs sont déverrouillés. Si quelqu'un a une idée... Merci d'avance. Dan
.
re
Ooops, je sais plus lire
Tu auras corrigé par toi-même, je suppose, la proc
je te parle de cases d'option alors que dans ta proc tu indiques des
cases à cocher !!!
Donc la proc devient :
Private Sub Commande1_Click()
Dim c As Control
For Each c In Me.Controls
If c.Name <> "Cadre0" And Not TypeOf c Is Label And Not TypeOf c
Is CommandButton And Not TypeOf c Is CheckBox Then
c.Locked = True
End If
Next c
End Sub
Bonsoir Eric,
Je me suis mal expliqué :
Je cherche à tout verrouiller sauf le groupe d'options.
Donc j'utilise
Dim ctl As Control
For Each ctl In Me.Controls
ctl.Locked = True
Next ctl
qui verrouille tout et ensuite je voudrais déverrouiller
uniquement le groupe d'options qui se nomme :
- Type_Depense
à l'intérieur, les boutons se nomment :
- Cocher_DO
- Cocher_AP
- Cocher_CP
J'ai donc essayé de sélectionner le groupe d'options
après avoir tout verrouiller de cette façon :
Me.Type_Depense.Locked = False
mais ça n'a pas déverrouiller ce dernier.
C'est un peu plus clair ?
Merci encore
Dan
-----Message d'origine-----
Bonsoir Dan
je viens de tester et ca marche très bien
Tu es sur que tu n'as pas aussi redéfini la propriété Enabled ?
Bonjour,
Comment verrouiller/déverrouiller les boutons situés dans
un groupe d'options
Mon groupe d'options se nomme :
- Type_Depense
à l'intérieur, les boutons se nomment :
- Cocher_DO
- Cocher_AP
- Cocher_CP
Pour verrouiller tous les contrôles, j'utilise :
Dim ctl As Control
For Each ctl In Me.Controls
ctl.Locked = True
Next ctl
Si je passe ctl.Locked à False le groupe d'options ne se
déverrouille pas alors que tous les autres champs sont
déverrouillés. Si quelqu'un a une idée...
Merci d'avance.
Dan
re Ooops, je sais plus lire Tu auras corrigé par toi-même, je suppose, la proc je te parle de cases d'option alors que dans ta proc tu indiques des cases à cocher !!!
Donc la proc devient : Private Sub Commande1_Click() Dim c As Control For Each c In Me.Controls If c.Name <> "Cadre0" And Not TypeOf c Is Label And Not TypeOf c Is CommandButton And Not TypeOf c Is CheckBox Then c.Locked = True End If Next c End Sub
A+ Eric
"Dan" écrivait news:15a2c01c41d9e $07198dd0$:
Bonsoir Eric, Je me suis mal expliqué : Je cherche à tout verrouiller sauf le groupe d'options. Donc j'utilise Dim ctl As Control For Each ctl In Me.Controls ctl.Locked = True Next ctl
qui verrouille tout et ensuite je voudrais déverrouiller uniquement le groupe d'options qui se nomme :
- Type_Depense à l'intérieur, les boutons se nomment : - Cocher_DO - Cocher_AP - Cocher_CP
J'ai donc essayé de sélectionner le groupe d'options après avoir tout verrouiller de cette façon : Me.Type_Depense.Locked = False
mais ça n'a pas déverrouiller ce dernier.
C'est un peu plus clair ?
Merci encore
Dan
-----Message d'origine----- Bonsoir Dan
je viens de tester et ca marche très bien
Tu es sur que tu n'as pas aussi redéfini la propriété Enabled ?
A+ Eric
"Dan" écrivait news:1752f01c41d98 $540c6730$:
Bonjour, Comment verrouiller/déverrouiller les boutons situés dans un groupe d'options Mon groupe d'options se nomme : - Type_Depense à l'intérieur, les boutons se nomment : - Cocher_DO - Cocher_AP - Cocher_CP
Pour verrouiller tous les contrôles, j'utilise : Dim ctl As Control For Each ctl In Me.Controls ctl.Locked = True Next ctl
Si je passe ctl.Locked à False le groupe d'options ne se déverrouille pas alors que tous les autres champs sont déverrouillés. Si quelqu'un a une idée... Merci d'avance. Dan
