Zone de recherche / activer la recherche sur 3 colonnes

Bonjour à tous,

novice en vba, j'éprouve quelques difficultés à voir précisément ce qui ne va pas dans mon code. J'ai fait une zone de recherche et elle fonctionne parfaitement lorsque je la cible sur une seule colonne mais je ne parviens pas à englober les colonnes 2 à 6.

Private Sub TextBox1_Change()

Application.ScreenUpdating = False

Range("B2:G100").Interior.ColorIndex = xlColorIndexNone

ListBox1.Clear

If TextBox1 <> "" Then

For ligne = 2 To 100

If Range("B:G") Like "*" & TextBox1 & "*" Then

Range("B:G").Interior.ColorIndex = 20

ListBox1.AddItem Range("B:G")

End If

Next

End If

End Sub

merci pour l'aide que vous pourrez m'apporter

Bonjour,

If TextBox1 <> "" Then
    For ligne = 2 To 100
        For col = 2 To 7
            If Cells(lign, col) Like "*" & TextBox1 & "*" Then
                Range("B" & ligne).Resize(, 6).Interior.ColorIndex = 20
                ListBox1.AddItem Range("B" & ligne).Resize(, 6)
                Exit For
            End If
        Next col
    Next ligne
End If

+Remarques :

Utiliser la balise code

Indenter son code

Déclarer ses variables

Doter ses expressions de qualificateurs d'objets

Soit : code mieux écrit et moins approximatif.

Cordialement.

Merci pour ces bons conseils. Ceci étant il n'affiche rien dans ma listbox1

    If TextBox1 <> "" Then
        For ligne = 2 To 100
        For col = 2 To 7
            If Cells(ligne, col) Like "*" & TextBox1 & "*" Then
                Range("B" & ligne).Resize(, 6).Interior.ColorIndex = 20
                ListBox1.AddItem Range("B" & ligne).Resize(, 6)     
                Exit For
            End If
        Next col
        Next ligne

End If
End Sub

merci

Et en enlevant la boucle For col ?

Non malheureusement

Alors, sans fichier... !

voici le fichier:

27inventory.xlsm (72.66 Ko)

Dans ce cas, combiner AddItem et List...

Aussi régler ColumnCount sur 6 colonnes.

Reste à régler largeur de chaque colonne (dans fenêtre de propriété).

Cordialement.

Un grand merci à toi. Bon week-end.

Rechercher des sujets similaires à "zone recherche activer colonnes"