Recherche dans table et Tableau

Bonjour,

j'aimerai rajouter un champ recherche qui me permet d'indiquer en changeant de couleur les cellules qui contiennent la valeur.

La cellule reprend sa couleur initiale si la valeur est différente.

La fonction fonctionne correctement sur une colonne mais je n'arrive pas à trouver le code pour qu'elle s'effectue sur une plage.

J'aurai aussi besoin d'utiliser cette fonction pour un tableau.

Merci pour votre aide

Cordialement

Pilougne

Salut,

si j'ai bien compris, il te suffit d'ajouter... une boucle FOR NEXT ! M'enfin!

    If TextBox1 <> "" Then
        For ligne = 5 To 12
            For colonne = 3 To 5
                If Cells(ligne, colonne) Like "*" & TextBox1 & "*" Then
                    Cells(ligne, colonne).Interior.ColorIndex = 43
                    ListBox1.AddItem Cells(ligne, colonne)
                End If
            Next
        Next
    End If

A+

Bonjour,

C'est top ça fonctionne, j'avais tapé a peu prés le même code mais j'avais oublié de mettre le second Next et donc erreurs.

Peux tu me dire la syntaxe pour faire la même fonction en faisant référence à un tableau (object..).

Merci

Salut Pilougne,

c'est pareil! Tu fais juste référence à ton tableau plutôt qu'à une cellule...

Difficile sans un objectif précis...

Par exemple..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Dim tTableau() As Variant
tTableau = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
'
For x = 0 To 11
    If x Mod 2 = 0 Then Cells(x + 1, 1) = tTableau(x)
Next
'
End Sub

A+

Bonjour,

Peux-tu adapter ton code au tableau qui se trouve sur la 2ieme feuille de mon fichier.

Merci encore pour ton aide.