Prendre en compte les mots quelle que soit la casse Résolu/Fermé

Question

Bonsoir tout le monde, 
Je souhaite qu'une macro (à priori ListBox1_Click) m'affiche les noms commençant par la lettre tapée par l'utilisateur quel que soit la casse.

Explications suivie du fichier :
Lorsque j'ouvre le classeur, une macro (Workbook_Open) va récupéré les informations des colonnes A, B et C.
Puis, lorsque je clique sur une textbox, et que je tape la lettre M, par exemple, Excel m'affiche les lignes dans lesquelles on pouvait trouver cette lettre dans la colonne A.
Enfin, normalement.

Si, par malheur, le texte de la colonne A du fichier bdd.xlsx est écrit en minuscule, alors, la listbox considère qu'il n'y a rien... Dommage.

Il y a, je pense, deux possibilités :
- Soit faire en sorte que les Macros (je ne sais pas laquelle ne prend pas en compte les cellules en minuscule) prennent en compte les cellules quelle que soit la casse.
- Soit faire en sorte que le texte de la colonne A du fichier bdd se transforme en majuscule.

J'ai une nette préférence pour la première solution, qui permettrait à l'utilisateur d'utiliser sa propre base de donnée, et de réunir les macros dans un seul fichier.

Qu'en pensez-vous ? Et comment faire ?

https://www.cjoint.com/c/DJoweGL2FKI

Configuration: Windows 7 (64 bits)
Google Chrome 37
Intel(R) Core(TM) i3 CPU
2.4GHz
Mémoire 4,00 Go 
 
Bien à vous,
Naï
ps: je surveille tous mes sujets non résolus, si solution vous avez, je la lirais à coup sûr :)

pijaku · Answer

Bonjour,

Peut être simplement en ajoutant UCase().
Ta procédure TextBox1_Change :
Private Sub TextBox1_Change()
'sources :
'http://www.commentcamarche.net/forum/affich-14847865-recherche-semi-auto-dans-excel
'michel_m
Application.ScreenUpdating = False 'ne pas afficher le déroulé de la macro'
Dim lettre As String, cptr As Long, cptr_tablo As Long, derlig As Long, i As Long
Dim Tb()

lettre = UCase(TextBox1.Value)
If lettre = "" Then Exit Sub
For cptr = 1 To UBound(Sources, 1)
    If Sources(cptr, 1) Like lettre & "*" Then ' <== Ligne à modifier
        ReDim Preserve Tb(cptr_tablo)
        Tb(cptr_tablo) = Sources(cptr, 1) & " - " & Sources(cptr, 2) & " - " & Sources(cptr, 3)
        cptr_tablo = cptr_tablo + 1
    End If
Next
If cptr_tablo = 0 Then MsgBox "Aucun Nom commençant par : " & lettre: Exit Sub
With ListBox1
    .Clear
    For i = LBound(Tb) To UBound(Tb)
        .AddItem Tb(i)
    Next
    .Visible = True
End With
Application.ScreenUpdating = True 'afficher le résultat final'
End Sub 

Devient  : 
Private Sub TextBox1_Change()
'sources :
'http://www.commentcamarche.net/forum/affich-14847865-recherche-semi-auto-dans-excel
'michel_m
Application.ScreenUpdating = False 'ne pas afficher le déroulé de la macro'
Dim lettre As String, cptr As Long, cptr_tablo As Long, derlig As Long, i As Long
Dim Tb()

lettre = UCase(TextBox1.Value)
If lettre = "" Then Exit Sub
For cptr = 1 To UBound(Sources, 1)
    If UCase(Sources(cptr, 1)) Like lettre & "*" Then '<== utilisation de UCase
        ReDim Preserve Tb(cptr_tablo)
        Tb(cptr_tablo) = Sources(cptr, 1) & " - " & Sources(cptr, 2) & " - " & Sources(cptr, 3)
        cptr_tablo = cptr_tablo + 1
    End If
Next
If cptr_tablo = 0 Then MsgBox "Aucun Nom commençant par : " & lettre: Exit Sub
With ListBox1
    .Clear
    For i = LBound(Tb) To UBound(Tb)
        .AddItem Tb(i)
    Next
    .Visible = True
End With
Application.ScreenUpdating = True 'afficher le résultat final'
End Sub

Nai · Answer

Merci !
Ça fonctionne ! U = Upper, c'est ça ?

Prendre en compte les mots quelle que soit la casse

2 réponses

Discussions similaires

Newsletters