1 pièce(s) jointe(s)
Auto-remplir ComboBox d'un UserForm à partir de ActiveCell
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.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| 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.
Pièce jointe 582289
