Faire apparaitre un textbox en fonction de

Myst

XLDnaute Occasionnel
Bonjour
il me faudrait un coups de mains pour faire apparaitre un textbox
J'ai un userform1 contenant 2 textbox , le premier ou je saisie une valeur qui doit être entre des tolérances mini et maxi situées en A2 et B2 de la page2
Si la valeur saisie ne se situe pas entre les tolérances ,le textbox passe en rouge et un message indique de saisir une deuxième valeur dans le textbox2
Je valide les deux valeur en cliquant sur le bouton1 "Valider" et elles vont se copier dans la colonne A et B de la page1

Je voudrais que la textbox2 soit invisible dans l'userform1 et qu'elle n'apparaisse que lorsqu'une valeur hors tolérances est saisie dans la textbox1
J’espère avoir bien résumé
merci
 

Pièces jointes

  • Classeur1.xlsm
    24.4 KB · Affichages: 44
  • Classeur1.xlsm
    24.4 KB · Affichages: 40
  • Classeur1.xlsm
    24.4 KB · Affichages: 58

fanfan38

XLDnaute Barbatruc
Re : Faire apparaitre un textbox en fonction de

Bonjour
Ajoute cette macro dans les macros de ton userform
Private Sub UserForm_Activate()
Label2.Visible = False
TextBox2.Visible = False
End Sub

et ensuite dans tes conditions
si pas ok
Label2.Visible = true
TextBox2.Visible = true

et la 2eme textbox apparaitra...

A+ François
 

Speel

XLDnaute Occasionnel
Re : Faire apparaitre un textbox en fonction de

Bonjour,

ajoutes dans l'userform :
VB:
Private Sub UserForm_Initialize()
TextBox2.Visible = False
Label2.Visible = False
End Sub

et modifies :

VB:
 Private Sub TextBox1_AfterUpdate()
If TextBox1 = "" Then Exit Sub
 If CDbl(TextBox1.Value) < Feuil2.Range("A2").Value Then
  Cancel = True
  TextBox1.BackColor = &HFF&
  TextBox1.SetFocus
  MsgBox "La valeur saisie est inférieure a la tolérance mini,vous pouvez saisir une contre mesure dans la case N°2", vbOKOnly + vbExclamation, "ERREUR"
    TextBox2.Visible = True
    Label2.Visible = True
  Else
  TextBox1.BackColor = &H80000005
 End If
 If TextBox1 = "" Then Exit Sub
 If CDbl(TextBox1.Value) > Feuil2.Range("B2").Value Then
  Cancel = True
  TextBox1.BackColor = &HFF&
  TextBox1.SetFocus
  MsgBox "La valeur saisie est supérieure a la tolérance maxi,vous pouvez saisir une contre mesure dans la case N°2", vbOKOnly + vbExclamation, "ERREUR"
    TextBox2.Visible = True
    Label2.Visible = True
  Else
 End If
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG