USRFM Combobox Sélection répond pas

Version imprimable

12/01/2023, 11h41
Reis71

1 pièce(s) jointe(s)

USRFM Combobox Sélection répond pas

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
@+

Pièce jointe 632376

Salut
A tester

Code:

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

bonjour
tester :

Code:

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

12/01/2023, 15h00
EricDgn

1 pièce(s) jointe(s)

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.
12/01/2023, 19h47
Reis71

Bonjour hyperion13, BENNASR et EricDgn,

Je vous remercie à vous pour vos aides,

Bon week-end

Reis71