Bonjour,
j'ai une treeview qui représente l'arborescence d'une entreprise, je voudrais effectuer une recherche dans l'arbo sans prendre en compte les majuscules et les espaces. le code que je possède pour le moment ne recherche que si le mot correspond exactement à ce qui est dans l'arborescence. autrement dit quand je recherche le mot Mécaniques il faut taper Mécaniques, si je tape mecaniques(minuscules et sans accent) il ne le trouve pas voilà merci d'avance.
le code :
rivate Sub CommandButton3_Click()
Dim nodX As Node
Dim Cible As String
Cible = InputBox("Veuillez saisir le mot recherché", "Recherche")
If Cible = "" Then Exit Sub
For Each nodX In TreeView1.Nodes
If nodX.Text = Cible Then
nodX.Selected = True
TreeView1.SetFocus
Exit Sub
End If
Next
MsgBox "Valeur " & Cible & " non trouvée dans l'arborescence."
End Sub
j'ai une treeview qui représente l'arborescence d'une entreprise, je voudrais effectuer une recherche dans l'arbo sans prendre en compte les majuscules et les espaces. le code que je possède pour le moment ne recherche que si le mot correspond exactement à ce qui est dans l'arborescence. autrement dit quand je recherche le mot Mécaniques il faut taper Mécaniques, si je tape mecaniques(minuscules et sans accent) il ne le trouve pas voilà merci d'avance.
le code :
rivate Sub CommandButton3_Click()
Dim nodX As Node
Dim Cible As String
Cible = InputBox("Veuillez saisir le mot recherché", "Recherche")
If Cible = "" Then Exit Sub
For Each nodX In TreeView1.Nodes
If nodX.Text = Cible Then
nodX.Selected = True
TreeView1.SetFocus
Exit Sub
End If
Next
MsgBox "Valeur " & Cible & " non trouvée dans l'arborescence."
End Sub