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

mapomme

XLDnaute Barbatruc

Supporter XLD

• 29 Avril 2017

• #2

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: 29 Avril 2017

Vote positif 0 Vote négatif

I

INFINITY100

XLDnaute Occasionnel

• 29 Avril 2017

• #3

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

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 29 Avril 2017

• #4

Re,

Voir fichier v2.

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

 

Pièces jointes

• INFINITY1000- TextBox & ComboBox- v2.xlsm

  21 KB · Affichages: 26

Dernière édition: 29 Avril 2017

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 29 Avril 2017

• #5

Re,

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

 

Pièces jointes

• INFINITY1000- TextBox & ComboBox- v3.xlsm

  22 KB · Affichages: 37

Vote positif 0 Vote négatif

I

INFINITY100

XLDnaute Occasionnel

• 30 Avril 2017

• #6

Merci ma pomme c'est parfait

c'est exactement le résultat souhaité

1000 Mercis 😉

 

Vote positif 0 Vote négatif