Discussion :

[nattalia]

Bonjour
Je cherche a faire une amélioration a mon document excel VBA pharmacie.
J'aimerais pouvoir faire ma recherche de médicament via le combobox sans prendre en compte les accents. Si je cherche "déroxat" ou "deroxat" dans les médicament peros (par exemple), que ça marche pareil.
J'ai essayé certains codes cherché sur internet, mais aucun ne fonctionnent.

Voir la pièce jointe.

Merci pour votre aide.

Nat
pharmacie_V7.xlsm

[jurassic pork]

Hello,
tu peux essayer dans la chaîne de recherche de remplacer les lettres accentuées (et aussi les lettres succeptibles d'avoir un accent) par le caractère de recherche générique ?

Exemple :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Private Sub ComboBox1_Change()
Dim derling As Integer
Dim mavar As String
Dim ligne_nom As Integer
AccChars = Array("A", "À", "Á", "Â", "C", "Ç", "E", "È", "É", "Ê", "Ë", "Î", "Ô", "Û", _
                 "a", "à", "á", "â", "c", "ç", "e", "è", "é", "ê", "ë", "î", "ô", "û")
Dim A
Dim ws As Worksheet
Set ws = Worksheets("peros")
 
 
If Not ComboBox1.Enabled Then Exit Sub
 
 
derling = Worksheets("peros").Range("A1").End(xlDown).Row
 
 
With ws.Range("A2:A" & derling)
 
 
mavar = ComboBox1.Value
    For Each A In AccChars
        mavar = Replace(mavar, A, "?")
    Next A
Set c = .Find(mavar, LookIn:=xlValues, LookAt:=xlWhole)
 
 
If Not c Is Nothing Then
 
 
ligne_nom = c.Row
TextBox3.Value = ws.Range("B" & c.Row)
TextBox4.Value = ws.Range("C" & c.Row)
TextBox5.Value = ws.Range("D" & c.Row)
TextBox6.Value = ws.Range("E" & c.Row)
 
 
Else
TextBox3.Value = "Médicament non trouvé !"
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
 
 
End If
End With
End Sub

Ami calmant, J.P

[nattalia]

Bonjour
J'ai fait un copier coller de votre code en remplacement de celui d'origine, mais les accents sont toujours présents. Dois-je modifier quelque chose à mon code Private sub Userforme_Initialize également ???
Merci et à bientôt
Nat