B
Bouba
Guest
Bonjour à tous
j'ai ecris le code suivant mais il y a une erreur qq part pouvez m'aider svp
merci
Option Explicit
Private Sub userform_activate()
Dim DercellA As String
DercellA = Range("Fiches Fournisseurs!B8").End(xlDown).Address
ComboBox1.RowSource = "Fiches Fournisseurs!B8:" & DercellA
End Sub
Private Sub combobox1_change()
Dim lig As Long
lig = ComboBox1.Value + 1
TextBox6.Value = Cells(lig, 6)
TextBox8.Value = Cells(lig, 8)
TextBox9.Value = Cells(lig, 9)
TextBox10.Value = Cells(lig, 10)
End Sub
j'ai ecris le code suivant mais il y a une erreur qq part pouvez m'aider svp
merci
Option Explicit
Private Sub userform_activate()
Dim DercellA As String
DercellA = Range("Fiches Fournisseurs!B8").End(xlDown).Address
ComboBox1.RowSource = "Fiches Fournisseurs!B8:" & DercellA
End Sub
Private Sub combobox1_change()
Dim lig As Long
lig = ComboBox1.Value + 1
TextBox6.Value = Cells(lig, 6)
TextBox8.Value = Cells(lig, 8)
TextBox9.Value = Cells(lig, 9)
TextBox10.Value = Cells(lig, 10)
End Sub