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

aitelhachmi Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   -  
aitelhachmi Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   -
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.




Configuration: Windows / Firefox 81.0

1 réponse

aitelhachmi Messages postés 24 Date d'inscription   Statut Membre Dernière intervention  
 
C'est bon , j'ai trouvé la solution :

 Userform1.ComboBox_REF = Target.Value


juste avant :

UserForm1.Show
0