Recherche d'une date (ds 6 colonnes) et afficher la valeur

re

mais bien sur !

cordialement

Suggestion ... puisque tu utilises un tableau, emploie [Tabhisto[Date du dernier paiement]].Column, [Tabhisto].Row et [Tabhisto].Rows.Count. Ce sont des références structurées qui s'appliquent aux objets Tableaux (ListObjet en VBA) et permettent d'accéder plus facilement à des éléments de ces derniers

Private Sub TextBox1_Change()

    Application.ScreenUpdating = False

    Colonne = [Tabhisto[Date du dernier paiement]].Column

    Range(Cells([Tabhisto].Row, Colonne), Cells([Tabhisto].Row + [Tabhisto].Rows.Count, Colonne)).Interior.ColorIndex = 2

    If TextBox1 <> "" Then
        For ligne = [Tabhisto].Row To [Tabhisto].Row + [Tabhisto].Rows.Count
            If Cells(ligne, Colonne) Like "*" & TextBox1 & "*" Then
                Cells(ligne, Colonne).Interior.ColorIndex = 43
            End If
        Next
    End If

    On Error Resume Next

End Sub

Tu n'oublieras pas des lignes !!

Ah oui merci beaucoup Steelson !! Ca fonctionne aussi