test text contenu dans une cellule par macro

[akibodo]

Bonjour à tous,

Ce site sur Excel reste vraiment mon préféré, malheureusement dans le cas présent je ne trouve pas se que je cherche et pourtant je ne pense pas que se soit difficile, mais je trouve pas, y a des jour comme ça ...

J'ai donc un Userform, dessus un textbox et une Listbox, sur la Feuil1 en colonne A1 une liste de mot (dans le futur ça peut être un mot composé comme "salle à manger").

Le but est simple lorsque l'utilisateur tape sa recherche dans la textbox, tous les mots en colonne A1 qui contienne le texte taper s'ajoute à la Listbox ou se retire si ils ne correspondent plus.

Je met une "ébauche" qui contient déjà un bout de vba et qui rendra je l'espère la compréhension de mon soucis plus explicite,

merci d'avance,

 

[Papou-net]

Re : test text contenu dans une cellule par macro

Bonsoir akibodo,

Essaies en modifiant le code de ton TextBox comme çà :

Private Sub TextBox1_Change()
' si Textbox vide, vier la listbox
If TextBox1.Value = "" Then
    ListBox1.Clear
    Exit Sub
End If
' déterminer si une des cellules en A1 contient le texte contenu en Textbox1
    ListBox1.Clear
    For i = 1 To derlig
        If TextBox1 = Left(Cells(i, 1), Len(TextBox1)) Then
            ' si oui, l'ajouter à la Listbox1
            ListBox1.AddItem Cells(i, 1).Value
        Else
        End If
    Next i
End Sub

Espérant t'avoir aidé.

Cordialement.

 

[kjin]

Re : test text contenu dans une cellule par macro

Bonsoir,
PJ à adapter
A+
kjin

 

[akibodo]

Re : test text contenu dans une cellule par macro

Re à tous,

merci à vous deux,

Kjin ta solution fonctionne parfaitement, merci ! 🙂

A+