Ignorer majuscule et minuscule...vba excelRésolu

Question

Bonjour,je voudrais savoir s'il y avait un moyen d'ignorer les majuscules et minuscules dansdes chaines de caract&#232;res???
je m'explique:j'ai ecris une macro qui permet de faire une recherche dans une feuille CLIENT.Le but est d'afficher dans une zone de liste d&#233;roulante les noms des clients commancant par les premi&#232;res lettres des noms que je saisie dans une zone de texte.
Le probl&#232;me c'est que mon programme prend en compte si j'ai saisi des majuscules ou des minuscules lors de la recherche des noms.Et moi j'aimerais ignorer cela.
Pouvez vs m'aider SVP???

michelxld · Answer

bonjour


tu peux aussi ins&#233;rer en tout d&#233;but de module :

Option Compare Text

bon apres midi
michel

erti1711 · Answer

bonjour voici mon code pour le moment concernant la recher des clients


Private Sub cmd_Click()
    Dim oCel As Range
    
   ListeClt.lstclt.Clear
    
    If txtrech.Text = "" Then
        txtrech.SetFocus
        MsgBox "Aucun crit&#232;re de recherche saisi !", vbCritical
        Exit Sub
    End If
    Worksheets("CLIENT").Select
    If (rdcodclt.Enabled = True) Then 'recherche par code client
        txtrech.Text = UCase(txtrech.Text)
        For Each oCel In ActiveSheet.Range("A2:A" & ActiveSheet.Range("A65536").End(xlUp).Row)
            If oCel.Value Like txtrech.Text & "*" Then
                ListeClt.lstclt.AddItem oCel.Value
            End If
        Next oCel
        ElseIf (rdnom.Enabled = True) Then 'recherche par noms
            For Each oCel In ActiveSheet.Range("B2:B" & ActiveSheet.Range("B65536").End(xlUp).Row)
                If oCel.Value Like txtrech.Text & "*" Then
                    ListeClt.lstclt.AddItem oCel.Value
                End If
            Next oCel
    End If
    If ListeClt.lstclt.ListCount = 0 Then
        With txtrech
            .SelStart = 0
            .SelLength = Len(txtrech.Text)
            .SetFocus
        End With
        MsgBox "Aucun client trouv&#233; !", vbCritical
    Else
        ListeClt.lstclt.ListIndex = 0
        ListeClt.Show
        ListeClt.lstclt.Enabled = True
    End If
    RechercheClient.Hide
    Unload RechercheClient
End Sub

Il sert a quoi le Option Compare Text?Ou le placez svp?
Commant faire pour ignorer les majuscules et minuscules?SVP
Par exemple j'ai un client DUPOND et Dupont
Je saisi dup et ca doit m'afficher les 2.
Merci

michelxld · Answer

rebonjour 

comme je l'indiquais dans le message pr&#233;c&#233;dent , Option Compare Text doit etre plac&#233; en tout d&#233;but de module .

ci dessous un extrait de l'aide en ligne Excel :


L'instruction Option Compare Text fournit des comparaisons de cha&#238;nes bas&#233;es sur un ordre de tri qui ne distingue pas les majuscules des minuscules et qui est d&#233;termin&#233; par les [javascript:hhobj_9.Click() param&#232;tres r&#233;gionaux] de votre syst&#232;me. Si les caract&#232;res ci-dessus sont tri&#233;s &#224; l'aide de l'instruction Option Compare Text, l'ordre de tri de texte suivant est utilis&#233; :

(A=a) < ( &#192;=&#224;) < (B=b) < (E=e) < (&#202;=&#234;) < (Z=z) < (&#216;=&#248;) 


bon apres midi
michel

erti1711 · Answer

Bonjour j'ai fais comme vs me l'aviez dit c a d q g plac&#233; Option Compare Text en d&#233;but de module mais cela ne marche pas.
La recherche des clients s'effectue lorsque je clik sur le bouton OK d' un Userform

Ignorer majuscule et minuscule...vba excel

4 réponses

Discussions similaires