Function SansAccent(C$) As String
Dim A$, S$, U%, I%
A = "ÀÁÂÃÄÅÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝ": S = "AAAAAAEEEEIIIINOOOOOUUUUY"
For I = 1 To Len(C)
U = InStr(1, A, Mid(C, I, 1), 0): If U Then Mid(C, I, 1) = Mid(S, U, 1)
Next I
SansAccent = C
End Function
Private Sub CommandButton3_Click()
Dim nodX As Node, Cible As String
Cible = InputBox("Veuillez saisir le mot recherché", "Recherche")
If Cible = "" Then Exit Sub
For Each nodX In TreeView1.Nodes
If SansAccent(UCase(Trim(nodX.Text))) = SansAccent(UCase(Trim(Cible))) Then
nodX.Selected = True: TreeView1.SetFocus: Exit Sub
End If
Next nodX
MsgBox "Valeur " & Cible & " non trouvée dans l'arborescence."
End Sub