Bonjour à tous,

J'ai une combobox qui s'affiche à l'écran quand je sélectionne une cellule et disparait quand je valide.
Si il y a du texte de dans, est-il possible de le sélectionner complétement ? et non que le curseur se mette à la fin.

J'ai tester cela mais ca ne fonctionne pas :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub ComboBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
If ComboBox1.Value & "" <> "" Then
    Me.ComboBox1.SelStart = 0
    Me.ComboBox1.SelLength = Len(Me.ComboBox1.Value)
End If
 
End Sub
De plus, j'ai fais une recherche intuitive. Le problème c'est que la liste s'affiche pas toujours sous la combobox. Est-il possible de lui dire de s'afficher toujours sous la combobox ?
Faire que DropDown s'affiche toujours sous la combobox.
Voici mon code :

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
Function IntuitiveComboBox()
    Dim i As Long
    Dim str As String
    Dim matchFound As Boolean
 
     Me.ComboBox1.DropDown
     str = Me.ComboBox1.Text
 
    For i = 0 To Me.ComboBox1.ListCount - 1
 
        If InStr(1, Me.ComboBox1.List(i), str, vbTextCompare) > 0 Then
            Me.ComboBox1.ListIndex = i
            matchFound = True
            Exit For
        End If
    Next i
 
    If Not matchFound Then
        Me.ComboBox1.ListIndex = -1
    End If
End Function

Merci pour votre aide et bonne soirée