Bonjour,
Comment modifier ce code qui m'attribue une liste (à chaque initialize) à une ComboBox :
Private Sub UserForm_Initialize()
Dim DerLig As Integer, NumPx As Integer, VArt As String
Set WbkC = Workbooks("DEVIS.xls")
Set ShtC = WbkC.Worksheets("CORNIERE")
DerLig = ShtC.Range("A65536").End(xlUp).Row
For NumPx = 4 To DerLig
VArt = ShtC.Range("A" & NumPx).Value
Me.ComboBox1.AddItem VArt
Next NumPx
End Sub
afin de pouvoir inserer (lors d'une réouverture de UserForm) les infos des TextBox deja saisi lors d'une ouverture anterieure
TextBoxQ1.Text = .Range("B45").Value
TextBoxQ2.Text = .Range("B46").Value
Merci,
Comment modifier ce code qui m'attribue une liste (à chaque initialize) à une ComboBox :
Private Sub UserForm_Initialize()
Dim DerLig As Integer, NumPx As Integer, VArt As String
Set WbkC = Workbooks("DEVIS.xls")
Set ShtC = WbkC.Worksheets("CORNIERE")
DerLig = ShtC.Range("A65536").End(xlUp).Row
For NumPx = 4 To DerLig
VArt = ShtC.Range("A" & NumPx).Value
Me.ComboBox1.AddItem VArt
Next NumPx
End Sub
afin de pouvoir inserer (lors d'une réouverture de UserForm) les infos des TextBox deja saisi lors d'une ouverture anterieure
TextBoxQ1.Text = .Range("B45").Value
TextBoxQ2.Text = .Range("B46").Value
Merci,