interdire saisie dans TextBox

[lynyrd]

Bonjour le forum
Est t'il possible d'interdire la saisie dans les TextBox si la date selectionnée en ComboBox1 est antérieure à la date du jour?
Merci

 

[Risleure]

Re : interdire saisie dans TextBox

Bonjour lynyrd, le Forum

a l'initialisation de l'UF, tu désactives les CB

Private Sub UserForm_Initialize()
Label182.Caption = "mode : Recherche"
 'en dessous les combobox
 TextBox3.Enabled = False
 TextBox4.Enabled = False
 TextBox5.Enabled = False
 '.....
initialisecombo
 End Sub

Ensuite tu testes la date et si OK tu réactives les CB

....
 TextBox3.Enabled = True
 TextBox4.Enabled = True
 TextBox5.Enabled = True
 '.....

A+

 

[lynyrd]

Re : interdire saisie dans TextBox

Merci risleure de t'interesser au sujet.
Mon VBA est plus que limité,comment je dois tester la date?
Merci.

 

[pedrag31]

Re : interdire saisie dans TextBox

Bonjour Lynyrd, Bonjour Risleure, Bonjour le forum,

Une autre proposition avec calendrier en PJ a tester...

Bonne journée, 🙂

 

[lynyrd]

Re : interdire saisie dans TextBox

Je n'arive pas à tester la date du combobox1 par rapport à la date du jour.
Quelqu'un aurait t'il une idée?
Merci.

 

[YANN-56]

Re : interdire saisie dans TextBox

Bonsoir lynyrd, aux participants, et à ceux qui passeront par ici,

Tu dois faire une comparaison après une traduction en numérique
de la Value de ton ComboBox, et celle de l'instant présent.

Par la suite il y a plein de façon de rendre inaccessible le TextBox.
Celle que je préfère est de rendre visible ou non une image transparente
qui a sa même emprise, (Donc; on ne pourra pas y entrer)

A voir.

Amicalement.

Yann

 

[lynyrd]

Re : interdire saisie dans TextBox

Jean marcel, merci de t'interesser au problème,mais n'est pas ce que je souhaite faire.
Il faut permettre la saisie à la date du jour et la refuser pour les autres dates
Merci.

 

[lynyrd]

Re : interdire saisie dans TextBox

Désolé jean marcel
on ne peut toujours rien saisir à la date du jour et les valeurs à la date du 04/10/2010 n'apparaissent plus.

 

[lynyrd]

Re : interdire saisie dans TextBox

Un grand merci jean marcel,c'est exactement cela
A+

 

[lynyrd]

Re : interdire saisie dans TextBox

Encore un dernier souci
en entrant un mot de passe (en loccurence"patrice")dans la textbox11,je souhaiterais enlever les "verrous" et pouvoir renseigner les textbox même si la date de la combobox1 n'est pas la date du jour.
Merci

 

[Provence Vintage]

Re : interdire saisie dans TextBox

Soir lynyrd, le fil,

Si j'ai bien compris ta demande
(saisie en minuscule)

Bonne fin de soirée
a+


Cijoint.fr - Service gratuit de dépôt de fichiers

 

[lynyrd]

Re : interdire saisie dans TextBox

Non c'est pas ca.
A la date du jour,tout le monde peut renseigner les textbox
A une date autre que la date du jour,l'administrateur doit entrer un mot de passe pour renseigner les textbox.
Merci

 

[Provence Vintage]

Re : interdire saisie dans TextBox

re

peux -être que celà devrait aller maintenant!
(pour virer le son, aller dans ThisWorkbook)

Bonne nuit
Cijoint.fr - Service gratuit de dépôt de fichiers

 

[lynyrd]

Re : interdire saisie dans TextBox

Bonjour
Merci à tous pour l'aide que vous m'avez apporté,le projet fonctionne parfaitement.
J'aurai une dernière requête à vous demander.
Dans la Feuil2 (Feuille cachée par un mot de passe "patrice"),j'ai ajouté en colonne"J" une tâche à réaliser.
Est t'il possible depuis le formulaire en sélectionnant une date dans la ComboBox1 qu'une MsgBox s'affiche en indiquant la tâche à réaliser.
Merci.

 

[Si...]

Re : interdire saisie dans TextBox

Bonjour

Peut-être ainsi :

Private Sub ComboBox1_Click()
  Dim i As Byte
  CommandButton3.Visible = True
  Label182.Caption = "mode : Modification"
  With ComboBox1
    For i = 1 To 8
      Controls("TextBox" & i) = Sheets("Feuil2").Cells(.List(.ListIndex, 1), i)
    Next i
    LabelDate.Caption = Sheets("Feuil2").Cells(.List(.ListIndex, 1), 1)
    [B]MsgBox Sheets("Feuil2").Cells(.List(.ListIndex, 1), "I")[/B]
  End With
  [I]For i = 1 To 8
    Controls("TextBox" & i).Enabled = LabelDate = Date
  Next i[/I]
End Sub

la fin permet une simplification.