Verouillage textbox et combobox

Bonjour

Je rencontre un problème sur mon userform.

il sert à la saisie d'information mais j'aimerais que lorsque je coche la case "verrouiller" toutes les textbox et combobox soient désactivés sauf la textbox 1

cela permettra (pas encore le cas) de saisir un N° de de dossier et de voir les infos sans pouvoir les modifier.

j'ai trouver un code que j'ai adapter, cela fonctionne sauf pour les textbox sur lequel j'ai un événement au clic (call calendrier) cela fonctionne toujours donc on peut modifier la date et les combo (sont bien desactivé) mais si on mets la souris dessus et on appuie sur une touche il affiche une valleur de la liste ou la change.

je ne veux pas le enabled car le text est grisé.

a part interdire le keypress sur toutes les textbox je ne vois pas mais ca fait long

pour les combo je ne sais pas comment interdire à ce moment là le clic sur le textbox ou l'appel de la fonction (call)

merci d'avance

Salut tihneeos,

A part ajouter ceci systématiquement pour chaque contrôle (hormis TextBox1, évidemment)...

If CheckBox1.Value = True Then
    Me.TextBox1.SetFocus
    Exit Sub
End If

A+

bonne idée je test ça

merci

Bonjour à tous,

Que penser de cet essai ... ?

Private Sub CheckBox1_Click()
Dim objControl As Control
 If CheckBox1.Value = True Then
    For Each objControl In UserForm1.Controls
        If TypeOf objControl Is msforms.TextBox And _
           objControl.Name <> "TextBox1" Then
         objControl.Enabled = False
     ElseIf TypeOf objControl Is msforms.ComboBox Then
          objControl.Enabled = False
'''          TextBox1.Locked = False
         End If
    Next objControl
    Else
    For Each objControl In UserForm1.Controls
        If TypeOf objControl Is msforms.TextBox Then
         objControl.Enabled = True
     ElseIf TypeOf objControl Is msforms.ComboBox Then
          objControl.Enabled = True
         End If
    Next objControl
    End If
End Sub

ric

Bon et bien j'ai opter pour la version de curulis. j'ai tenté ta version ric mais sur mouseup j'avais quand même l'appel de la fonction malgré que la textbox etait lock.

là maintenant c'est bon, petit code rapide à insérer si le user evolu.

merci à vous

rapide et efficace.