XL 2016 Saisie intuitive résolue mais renvoi du choix du combobox dans textbox

Nicolaroute

XLDnaute Nouveau
Bonjour le forum,

Je n'ai pas encore fini mon BDC, je vous explique précisément ma difficulté du jour :

Dans ma feuille ShwArticles, j'ai créer un userform pour mettre à jour le prix de ces articles. Combobox3, Textbox2.
J'ai fait quelques recherches sur la saisie intuitive que je trouve plus rapide pour trouver l'article et cela à bousculé un peu mes codes d'avant!!
Pourriez vous m'aider SVP??
les détails: quand je choisi l'article dans le combobox3 ( Code_Article) je voudrais au click que la Texbox2 affiche le prix et que la cellule correspondante dans la feuille s'active.
Ensuite apres la mise à jour du prix Bouton OK, changer le prix dans la cellule;
Voici le code que j'ai repris et modifier à Mr Boisgontier. Que je remercie au passage pour son travail.


Private Sub UserForm_Initialize()
Set f = Sheets("ShwArticles")
a = Application.Transpose([Code_Article])
Me.ComboBox3.List = a

End Sub

Private Sub ComboBox3_Change()
If Me.ComboBox3.ListIndex = -1 And IsError(Application.Match(Me.ComboBox3, a, 0)) Then
Me.ComboBox3.List = Filter(a, Me.ComboBox3.Text, True, vbTextCompare)
Me.ComboBox3.DropDown
Else
If Me.ComboBox3.ListIndex <> -1 Then Cells(Me.ComboBox3.ListIndex + 1, 3).Select " c'est là que ça coince!!
End If
Ligne = Me.ComboBox3.ListIndex

'Me.TextBox2 = f.Cells(Ligne, 3).Value "????
' f.Cells(Ligne, 3).Select

End Sub

Private Sub ComboBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = 13 Then ActiveCell = Application.Proper(Me.ComboBox3.List)
End Sub


Private Sub CommandButton1_Click()
f.Cells(Ligne, 3).Value = CDbl(Me.TextBox2.Value)
Selection.Interior.ColorIndex = 40

merci par avance.
 

Discussions similaires

  • Question
Microsoft 365 ListBox TextBox
Réponses
2
Affichages
110
Haut Bas