slt
existe t'il une solution
dans une liste de noms par exemple
faire une recherche des que l'on tape la 1er lettre la
recherche comment et ainsi de suite avec la dexieme lettre
etc
par avance merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Hervé
Salut Frédéric, Pour voir la sélection changer au fur et à mesure de la saisie, il te faut utiliser un TextBox de la barre d'outils "Boîte à outils Contrôles" afin d'utiliser son évennement "Change" :
Private Sub TextBox1_Change() Dim Cel As Range Dim Plage As Range Set Plage = Range([A1], [A65536].End(xlUp)) Plage.Interior.ColorIndex = 0 Plage.Font.ColorIndex = 1 If TextBox1.Text = "" Then Exit Sub For Each Cel In Plage If Cel Like TextBox1.Text & "*" Then Cel.Interior.ColorIndex = 11 Cel.Font.ColorIndex = 2 Exit For End If Next Cel Set Cel = Nothing Set Plage = Nothing End Sub
Hervé.
"ptifred" a écrit dans le message news: 97e001c478b8$01e16200$
slt existe t'il une solution dans une liste de noms par exemple faire une recherche des que l'on tape la 1er lettre la recherche comment et ainsi de suite avec la dexieme lettre etc par avance merci
Salut Frédéric,
Pour voir la sélection changer au fur et à mesure de la saisie, il te faut
utiliser un TextBox de la barre d'outils "Boîte à outils Contrôles" afin
d'utiliser son évennement "Change" :
Private Sub TextBox1_Change()
Dim Cel As Range
Dim Plage As Range
Set Plage = Range([A1], [A65536].End(xlUp))
Plage.Interior.ColorIndex = 0
Plage.Font.ColorIndex = 1
If TextBox1.Text = "" Then Exit Sub
For Each Cel In Plage
If Cel Like TextBox1.Text & "*" Then
Cel.Interior.ColorIndex = 11
Cel.Font.ColorIndex = 2
Exit For
End If
Next Cel
Set Cel = Nothing
Set Plage = Nothing
End Sub
Hervé.
"ptifred" <frederick.lefebvre@tele2.fr> a écrit dans le message news:
97e001c478b8$01e16200$a401280a@phx.gbl...
slt
existe t'il une solution
dans une liste de noms par exemple
faire une recherche des que l'on tape la 1er lettre la
recherche comment et ainsi de suite avec la dexieme lettre
etc
par avance merci
Salut Frédéric, Pour voir la sélection changer au fur et à mesure de la saisie, il te faut utiliser un TextBox de la barre d'outils "Boîte à outils Contrôles" afin d'utiliser son évennement "Change" :
Private Sub TextBox1_Change() Dim Cel As Range Dim Plage As Range Set Plage = Range([A1], [A65536].End(xlUp)) Plage.Interior.ColorIndex = 0 Plage.Font.ColorIndex = 1 If TextBox1.Text = "" Then Exit Sub For Each Cel In Plage If Cel Like TextBox1.Text & "*" Then Cel.Interior.ColorIndex = 11 Cel.Font.ColorIndex = 2 Exit For End If Next Cel Set Cel = Nothing Set Plage = Nothing End Sub
Hervé.
"ptifred" a écrit dans le message news: 97e001c478b8$01e16200$
slt existe t'il une solution dans une liste de noms par exemple faire une recherche des que l'on tape la 1er lettre la recherche comment et ainsi de suite avec la dexieme lettre etc par avance merci
