Discussion :

[Reis71]

Bonjour,

Je sollicite votre aide dans mon UserForm une liste déroulante (Combobox) la recherche par sélection ne passe pas.
En gardant le choix clic, dans mon combobox "via le Scroll bar" quand je choisi par sélection n'importe quel nom les informations ne s'affichent pas.
Si vous pourriez m'aider

Merci
@+

USERFORM CLIENT.xlsm

[hyperion13]

Salut
A tester

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ComboBox1_Change()
Dim Ligne As Long, Ind As Integer
 
Set rng = Sheets("CLIENT").Range("A2", Sheets("CLIENT").Range("A" & Rows.Count).End(xlUp))
For Ind = 1 To 6
    If Me.ComboBox1.ListIndex = -1 Then Exit Sub
        Me.Controls("TextBox" & Ind).Value = rng.Offset(Me.ComboBox1.ListIndex, Ind).Resize(1, 1)
Next Ind
End Sub

[BENNASR]

bonjour
tester :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Option Explicit
 
Dim ws As Worksheet
 
Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   ' ComboBox1 = ""
  '  ComboBox1.ForeColor = &H0&
     ' ComboBox1.ColumnCount = 1
  'Set ws = Sheets("CLIENT")
 ' Me.ComboBox1.List = ws.Range("T_Client").Value
End Sub
 
Private Sub CommandButton1_Click()
ComboBox1.Text = "Sélectionner ou tapez le nom du Client"
'ComboBox1.ForeColor = &H808080
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
  ComboBox1.Value = "Sélectionner ou tapez le nom du Client"
  ComboBox1.ColumnCount = 1
  Set ws = Sheets("CLIENT")
  Me.ComboBox1.List = ws.Range("T_Client").Value
End Sub
Private Sub ComboBox1_Change()
Dim Ligne As Long, i As Integer
  If Me.ComboBox1.ListIndex = -1 Then Exit Sub
  Ligne = ComboBox1.ListIndex + 2
  For i = 1 To 6
    Me.Controls("TextBox" & i) = ws.Cells(Ligne, i + 1)
  Next i
  End Sub
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 '   If ComboBox1.Value = "Selectionner ou taper le nom Client" Then ComboBox1.Value = ""
  '  ComboBox1.ForeColor = &H0&
End Sub

[EricDgn]

Bonjour,

C'est le fait de placer un message dans la liste déroulante qui provoque le problème. Je proposerais de mettre ce message d'aide en dehors de cette liste, et de l'afficher/masquer selon son utilité.

Cordialement.

[Reis71]

Bonjour hyperion13, BENNASR et EricDgn,

Je vous remercie à vous pour vos aides,

Bon week-end

Reis71