Discussion :

[unparia]

a mon age ...diantre <-- et je pèse mes mots

J'aimerais bien avoir encore le tien

Ceci étant dit : qu'est-ce que tu mets, dans ton userform, sinon des Activex ?

[Daranc]

J'aimerais bien avoir encore le tien

Vu ! ...ça va je fait noisette (amande honorable)

[Kernelok]

@boisgontierjacques
Merci. Je vais tester ce we
Cordialement
K

[Kernelok]

Bonjour,


Rowsource a été supprimé.

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Range("A2:A20"), Target) Is Nothing And Target.Count = 1 Then
    UserForm1.Top = Target.Top + 110 - Cells(ActiveWindow.ScrollRow, 1).Top
    UserForm1.Left = 150
    UserForm1.Show
  End If
  Cancel = True
End Sub

Code du formulaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub UserForm_Initialize()
  Dim f
  Set f = Sheets("listes")
  Me.ComboBox1.List = f.Range("A2:A" & f.[A65000].End(xlUp).Row).Value
  If Val(Application.Version) > 10 Then SendKeys "{F4}"
End Su
 
Private Sub ComboBox1_Change()
  ActiveCell.Value = Me.ComboBox1
  Unload Me
End Sub

Boisgontier
http://boisgontierjacques.free.fr

@boisgontierjacques
Merci pour ton fichier mis à jour. Il m'a été très utile pour comprendre et l'adapter à mon sujet.
Encore un grand Merci
cordialement
k

[Kernelok]

et bonne année et dev IT 2018 à toutes et tous :-)