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

INFINITY100 · 29 Avril 2017

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

mapomme · 29 Avril 2017

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

INFINITY100 · 29 Avril 2017

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

mapomme · 29 Avril 2017

Re,

Voir fichier v2.

Il faut une validation ou sélectionner un autre contrôle sinon comment savoir si la saisie est terminée ?

mapomme · 29 Avril 2017

Re,

Un essai sans validation. Testez notamment les deux séquences (1, 11, 111) ou (3, 32, 321) pour voir...

INFINITY100 · 30 Avril 2017

Merci ma pomme c'est parfait

c'est exactement le résultat souhaité

1000 Mercis

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

INFINITY100

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

INFINITY100

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

INFINITY100

XLDnaute Occasionnel

Discussions similaires