Discussion :

[sebsv650]

Bonjour

j'utilise dans un userform une listbox et une textbox
pour faire de la saisi semi auto et ainsi rechercher une valeur
voir code si dessous

ma liste de valeur sont des référence exemple (V6K15632)

mon probleme est lorsque je recherche dans ma liste une valeur en tapan un v minuscule cela fonctionne, mais si je tape un V majucule cela ne fonctionne pas et toute ma liste disparais

pourquoi et comment faire pour que cela fonctionne?

ou si quel qu'un connait un moyen plus simple de faire de la saisie semi auto dans une listbox

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 TextBox1_Change() 'choix référence saisie prod
 
 
        ListBox2.Clear
    For Each Cel In ThisWorkbook.Worksheets("data").Range("G2:G2000")
        If LCase(Cel.Value) Like TextBox1.Text & "*" Then
            ListBox2.AddItem Cel.Value
        End If
    Next Cel
 
 
End Sub

merci par avance

[NVCfrm]

bonsoir sebsv650,

Pour te simplifier la tache déclare en tête de module ceci:

Code :

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

Option Compare Text

ensuite remplace dans ton code le:

Code :

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

LCase(Cel.Value)

par :

Code :

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

Cel.Value

[sebsv650]

merci ca fonctionne nikel