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.
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.