G
Gullycousse
Guest
Bonjour à tous,
Quelqu'un pourrait m'aider et corriger mon erreur dans le fichier car je n'arrive pas à choisir dans ma combobox1 afin de remplir les autres champs automatiquement???
Private Sub ComboBox1_Change()
Sheets("Vendor").Activate
Range([B4], [B65536].End(xlUp)).Select
For Each cell In Selection
If cell.Value = Me.ComboBox1.Text Then
Me.TextBox1.Text = cell.Offset(0, 1).Value
Me.TextBox2.Text = cell.Offset(0, 2).Value
Me.TextBox3.Text = cell.Offset(0, 3).Value
Me.TextBox4.Text = cell.Offset(0, 4).Value
Me.TextBox22.Text = cell.Offset(0, 5).Value
Me.TextBox26.Text = cell.Offset(0, 6).Value
Else
End sub
Merci d'avance
Quelqu'un pourrait m'aider et corriger mon erreur dans le fichier car je n'arrive pas à choisir dans ma combobox1 afin de remplir les autres champs automatiquement???
Private Sub ComboBox1_Change()
Sheets("Vendor").Activate
Range([B4], [B65536].End(xlUp)).Select
For Each cell In Selection
If cell.Value = Me.ComboBox1.Text Then
Me.TextBox1.Text = cell.Offset(0, 1).Value
Me.TextBox2.Text = cell.Offset(0, 2).Value
Me.TextBox3.Text = cell.Offset(0, 3).Value
Me.TextBox4.Text = cell.Offset(0, 4).Value
Me.TextBox22.Text = cell.Offset(0, 5).Value
Me.TextBox26.Text = cell.Offset(0, 6).Value
Else
End sub
Merci d'avance
Dernière modification par un modérateur: