Bonjour,
Voici mon problème. J'ai un USF avec une combobox qui reprend une liste dans une feuille "RGRS" colonne A et je voudrais que la valeur située dans la colonne B correspondant au choix de la combo s'affiche dans une textbox .
J'ai cherche et trouvé pleins d'exemple mais je n'ai pas réussi à l'adapter à mon code.
Option Explicit
Private WS1 As Worksheet
Private WS2 As Worksheet
Const G As String = "MISE A JOUR"
Private Sub Label3_Click()
End Sub
Private Sub UserForm_Initialize()
Dim Lf_données As Long
Dim DerLg, i
Set WS1 = ThisWorkbook.Worksheets("RGRS")
Set WS2 = ThisWorkbook.Worksheets("rapport")
Lf_données = WS1.Range("A65536").End(xlUp).Row
DerLg = WS1.Range("A2200").End(xlToLeft).Row
With WS1
For i = 2 To DerLg
ComboBox1.AddItem .Cells(i, 1)
Next i
End With
ComboBox1.Value = ""
Me.Caption = G
End Sub
Merci pour votre aide
Voici mon problème. J'ai un USF avec une combobox qui reprend une liste dans une feuille "RGRS" colonne A et je voudrais que la valeur située dans la colonne B correspondant au choix de la combo s'affiche dans une textbox .
J'ai cherche et trouvé pleins d'exemple mais je n'ai pas réussi à l'adapter à mon code.
Option Explicit
Private WS1 As Worksheet
Private WS2 As Worksheet
Const G As String = "MISE A JOUR"
Private Sub Label3_Click()
End Sub
Private Sub UserForm_Initialize()
Dim Lf_données As Long
Dim DerLg, i
Set WS1 = ThisWorkbook.Worksheets("RGRS")
Set WS2 = ThisWorkbook.Worksheets("rapport")
Lf_données = WS1.Range("A65536").End(xlUp).Row
DerLg = WS1.Range("A2200").End(xlToLeft).Row
With WS1
For i = 2 To DerLg
ComboBox1.AddItem .Cells(i, 1)
Next i
End With
ComboBox1.Value = ""
Me.Caption = G
End Sub
Merci pour votre aide