Microsoft 365 Information dans Textbox en fonction de résultat d'une autre textbox

romubzh35

XLDnaute Occasionnel
Bonjour à toutes et à tous,
Sur mon userform ma textbox6 affiche le premier caractère de ma textbox5.
Je voudrais afficher une information dans ma textbox7 qui est déterminée par le caractère de la textbox6.
Si il s'agit d'un V alors "Ok, merci de poursuivre en cliquant sur le bouton "VALIDER" ci dessous."
Si il s'agit d'une autre lettre alors "Merci de vérifier que vous avez lu le code barre vendeur situé en bas à droite de l'étiquette."
Si il n'y a pas de caractère alors "Si code barre illisible alerter le gap leader, ne plus imprimer d'étiquettes"
Pourriez vous m'aider pour la réaliser de cela svp
Les règles se situent dans l'onglet "Feuil2".
merci d'avance.
 

Pièces jointes

  • Poka yoké etiquette.xlsm
    40.6 KB · Affichages: 2

Eric C

XLDnaute Barbatruc
Bonjour le forum
Bonjour romubzh35

Essaie ceci :
VB:
Private Sub TextBox6__AfterUpdate()
TextBox6.Value = Left(TextBox5.Value, 1)
End Sub

Private Sub TextBox6_Change()
TextBox6.Value = Left(TextBox5.Value, 1)
If TextBox6.Value = V Then CommandButton1.Visible = True
If TextBox6.Value = "V" Then
TextBox7.Value = "Ok, merci de poursuivre en cliquant sur le bouton VALIDER ci dessous"
Else
TextBox7.Value = "Merci de vérifier que vous avez lu le code barre vendeur situé en bas à droite de l'étiquette"
End If

End Sub
Bonne fin d'après-midi à toutes & à tous
@+ Eric c
 

Eric C

XLDnaute Barbatruc
Re le fil

Supprime le module Userform1_Activate(), il ne sert à rien - Je t'ai mis le code pour que le CommandButton1 et non _1 (!!) soit visible si "V" est affiché dans la TextBox6 :

VB:
Private Sub TextBox6_Change()
TextBox6.Value = Left(TextBox5.Value, 1)
If TextBox6.Value = V Then CommandButton1.Visible = True
If TextBox6.Value = "V" Then
TextBox7.Value = "Ok, merci de poursuivre en cliquant sur le bouton VALIDER ci dessous"
CommandButton1.Visible = True
Else
TextBox7.Value = "Merci de vérifier que vous avez lu le code barre vendeur situé en bas à droite de l'étiquette"
End If
End Sub
Bonne continuation
@+ Eric c
 

Discussions similaires

Statistiques des forums

Discussions
313 279
Messages
2 096 780
Membres
106 748
dernier inscrit
Abdel93