XL 2013 coche verrouillage textbox

S

Santulud

XLDnaute Occasionnel

• 30 Octobre 2019

• #2

bonsoir,

a tester

 

Pièces jointes

• Facilitation Pilote.xls

  831.5 KB · Affichages: 15

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 30 Octobre 2019

• #3

Bonsoir le forum
Bonsoir poussain
Oupsss : pas rafraîchi, bonsoir Santulud (Tu as fait le travail complet, j'avais compris pour 1 TextBox).
Essaie ceci :

VB:

Private Sub CheckVol1_Click()
If CheckVol1 = True Then
Txtvol1.Locked = True
Else: Txtvol1.Locked = False
End If
End Sub

@+ Eric c

 

Vote positif 0 Vote négatif

P

poussain

XLDnaute Nouveau

• 30 Octobre 2019

• #4

Bonsoir Eric et merci pour votre prompt réponse.
J'ai inséré ce code mais cela n'empeche pas le double clic de modifier le contenu et de remplacer le texte existant par le préformatage des paramètres. et c'est précisément ce que je souhaite ( inhiber le double clic quand checkbox est coché
En revanche j'observe que la coche empêche toute autre modification.
Merci pour votre aide.

 

Vote positif 0 Vote négatif

S

Santulud

XLDnaute Occasionnel

• 30 Octobre 2019

• #5

Pas de souci @Eric C, on a du faire en même temps

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Octobre 2019

• #6

Bonsoir le fil

=>poussain
[Pour infos]
Premier réflexe que normalement nous devrions tous avoir...
(extrait de la charte du forum)

Pour tous

1 - Conformité RGPD
Tout message ou fichier déposé sur ce site ne doit pas comporter de données à caractère personnel (DCP).
Il convient d’anonymiser toutes les données permettant d’identifier directement ou indirectement une personne.
XLD ne saurait être tenu responsable au cas où un visiteur du site posterait des données non conformes à la législation en vigueur.
Si vous détectez une non conformité, merci d'alerter le webmaster de ce site : webmaster@excel-downloads.com, nous supprimerons les données dans les plus brefs délais.

Cliquez pour agrandir...

PS: Pour supprimer le fichier, il suffit de cliquer sur Editer puis Gérer les pièces jointes.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Octobre 2019

• #7

Re

Sinon, pour la question de la CheckBox, j'aurai vu la chose ainsi

VB:

Private Sub CheckVol1_Click()
Dim CTRL As Control
If CheckVol1.Value Then
For Each CTRL In Me.Frame1.Controls
If TypeOf CTRL Is MSForms.TextBox Then
CTRL.Object.Enabled = False
End If
Next
End If
End Sub

 

Vote positif 0 Vote négatif

P

poussain

XLDnaute Nouveau

• 30 Octobre 2019

• #8

Bonsoir JM,
Merci pour votre réponse ;c'est bien pris pour l’anonymat du fichier, il n'y a aucune donnée sensible quoiqu'il en soit.
J'ai inséré le code mais mon souci est que je ne peux plus ecrire dans les TEXTBOX ( txtVOL) libres.
L'idée est bien d'inhiber les TEXTBOX ( TXVOL) déjà renseigné quitte à ce que je positionne un checkbox par texbox.
Merci.
Ph.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Octobre 2019

• #9

Re

Au niveau anonymat, on peut faire mieux, non ?
Formulaire de Fiche de facilitation pilotes ACAF L*GN*S ' Author : P*******e POUSSAIN
Const appTitle As String = "Fiche facilitation pilotes aéroclub Air France L*gne*s"


Pour tes TextBox, c'est mieux ainsi?

VB:

Private Sub CheckVol1_Click()
Dim CTRL As Control
If CheckVol1.Value Then
For Each CTRL In Me.Frame1.Controls
If TypeOf CTRL Is MSForms.TextBox Then
Select Case Len(CTRL)
Case 0
CTRL.Object.Enabled = True
Case Else
CTRL.Object.Enabled = False
End Select
End If
Next
End If
End Sub

 

Vote positif 0 Vote négatif

P

poussain

XLDnaute Nouveau

• 30 Octobre 2019

• #10

Merci ! comme cela c'est effectivement fonctionnel et cela évitera les effacement intempestifs.
Je note que pour l'anonymat il faut aussi penser au code..
Merci pour votre aide et conseils avisés.
Philippe.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Octobre 2019

• #11

Re

Ce n'est pas qu'il faille penser à ceci ou à cela
Il y a juste que la RGPD s'impose aux sites web depuis le 25 mai 2018.

Le règlement général sur la protection des données - RGPD

Modifié par Rectificatif au règlement (UE) 2016/679 du Parlement européen et du Conseil du 27 avril 2016 relatif à la protection des personnes physiques à l’égard du traitement des données à caractère personnel et à la libre circulation de ces données, et abrogeant la directive 95/46/CE...

www.cnil.fr

D'où le rajout dans la charte du forum.

Donc tout est plus simple, quand les demandeurs joignent des fichiers exemples juste créés pour illustrer leurs questions.

Ici un classeur avec un userform avec une frame contenant 3, 4 TextBox et un CheckBox suffisait
(Le fichier que tu as posté est bien ton appli originale, non?
Au demeurant, joliment pensée

 

Vote positif 0 Vote négatif

David Aubert

XLDnaute Barbatruc

Administrateur

Modérateur

• 31 Octobre 2019

• #12

Bonjour à tous,
Comme expliqué par Staple, il y a des noms dans le fichier publié dans ton messages initial.
Si ces noms ne sont pas fictifs, et cela semble être le cas, merci de supprimer immédiatement cette pièce jointe.
Si ces noms sont fictifs alors pas de problèmes.
Si tu as un soucis pour supprimer la pièce jointe dis le moi, je ferai le nécessaire.
Merci
Bonne journée
David

 

Vote positif 0 Vote négatif

P

poussain

XLDnaute Nouveau

• 31 Octobre 2019

• #13

Bonjour David j'ai retiré le fichier initial.
Bonne journée.
Philippe.

 

Vote positif 0 Vote négatif

M

Marmaduc

XLDnaute Nouveau

• 2 Novembre 2019

• #14

Essaies ça

Private Sub CheckVol1_Click()

If CheckVol1.Value <> Empty Then
Txtvol1.Enable= True
Else
Txtvol1..Enable = False
End If

End Sub

 

Vote positif 0 Vote négatif