Bonjour le forum,
Dans une userform, j'ai une combobox qui m'affiche la liste des mes articles ("ARTICLE"), stockés dans un classeur different mais ouvert.
Je voudrais à présent, rajouter un Checkbox ou OptionButton afin de selectionner differentes listes soit "ARTICLE", "ARTICLE1", "ARTICLE2" etc ...
Comment modifier ce code selon les modifications recherchées,
Option Explicit
Dim WbkC As Workbook, ShtC As Worksheet
Private Sub userform_initialize()
Dim DerLig As Integer, NumPx As Integer, VArt As String
Set WbkC = Workbooks("DEVIS.xls")
Set ShtC = WbkC.Worksheets("ARTICLE")
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
Private Sub ComboBox1_Change()
Dim Lig As Integer
Lig = Me.ComboBox1.ListIndex
Me.TextBox1.Value = ShtC.Range("L" & 3 + Lig + 1).Value
End Sub
Cordialement, Géraldine
Dans une userform, j'ai une combobox qui m'affiche la liste des mes articles ("ARTICLE"), stockés dans un classeur different mais ouvert.
Je voudrais à présent, rajouter un Checkbox ou OptionButton afin de selectionner differentes listes soit "ARTICLE", "ARTICLE1", "ARTICLE2" etc ...
Comment modifier ce code selon les modifications recherchées,
Option Explicit
Dim WbkC As Workbook, ShtC As Worksheet
Private Sub userform_initialize()
Dim DerLig As Integer, NumPx As Integer, VArt As String
Set WbkC = Workbooks("DEVIS.xls")
Set ShtC = WbkC.Worksheets("ARTICLE")
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
Private Sub ComboBox1_Change()
Dim Lig As Integer
Lig = Me.ComboBox1.ListIndex
Me.TextBox1.Value = ShtC.Range("L" & 3 + Lig + 1).Value
End Sub
Cordialement, Géraldine