Auto-remplir ComboBox d'un UserForm à partir de ActiveCell

[aitelhachmi]

Bonjour,

J'ai crée un UserForm, et j'ai appliqué le code suivant pour l'ouvrir à partir de la feuille concernée par double clic sur une plage de cellules.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim derlig As Long

derlig = Range("B" & Rows.Count).End(xlUp).Row

If Not Application.Intersect(Target, Range("B4:B" & derlig)) Is Nothing Then

UserForm1.Show

End If

End Sub

Mon soucis est le suivant :

J'aimerais que la valeur de ActiveCell s'écrit automatiquement dans ComboBox_REF juste après l'ouverture de UserForm.

 

[aitelhachmi]

C'est bon, j'ai trouvé la solution

 Userform1.ComboBox_REF = Target.Value

juste avant :

UserForm1.Show