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

[romubzh35]

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.

 

[Eric C]

Bonjour le forum
Bonjour romubzh35

Essaie ceci :

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]

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 :

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