Afficher les données dans les TextBox en fonction d'une Textbox

INFINITY100

XLDnaute Occasionnel
Bonjour

Voila dans le fichier joint j'ai une macro qui fonctionne très bien avec le combobox seulement cherche à modifier un détail qui est bien au lieu d'un ComboBox je voudrai que ça sera avec une TextBox
c'est à dire par exemple si je tape dans la TextBox3 le numéro 1 il m'affiche automatiquement les donnés tél que fait le combobox

Voila je joins le fichier pour être plus claire

Merci à vous tous

Cordialement
 

Pièces jointes

  • TEST.xlsm
    20.7 KB · Affichages: 26

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour INFINITY1000,

Tapez un nombre dans le contrôle Textbox3 puis appuyez sur entrée ou cliquer sur un autre contrôle.


VB:
Private Sub TextBox3_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim i&
ComboBox1.ListIndex = -1: TextBox1 = "": TextBox2 = ""
  For i = 0 To ComboBox1.ListCount - 1
    If Val(TextBox3) = ComboBox1.List(i) Then
      ComboBox1.ListIndex = i
      Exit Sub
    End If
  Next i
  MsgBox "Le n° " & TextBox3 & " est inconnu!", vbCritical
  Cancel = True
End Sub
 

Pièces jointes

  • INFINITY1000- TextBox & ComboBox- v1.xlsm
    22.4 KB · Affichages: 25
Dernière édition:

INFINITY100

XLDnaute Occasionnel
Merci ma pomme c'est presque le résultat voulu en effet ce que je veux exactement c'est m'en passer carrément du combobox c'est a dire dès que je tape par exemple dans textbox3 le chiffre 1 les données s’affichent automatiquement sans validation

merci encore
 

Pièces jointes

  • INFINITY1000- TextBox & ComboBox- v1.xlsm
    19.8 KB · Affichages: 23

Discussions similaires