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

aitelhachmi

XLDnaute Nouveau
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.

VB:
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.

REFcombo.JPG
 

Discussions similaires

Réponses
7
Affichages
292

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 837
dernier inscrit
Ugo