Discussion :

[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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[aitelhachmi]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Userform1.ComboBox_REF = Target.Value

juste avant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UserForm1.Show