Recherche cellule -> Surbrillance ligne

Bonjour à toutes et à tous,

Je viens à vous en espérant trouver une solution simple et rapide

Le contexte : j'ai un tableau assez dense avec de nombreuses données (suivi de facturation : N° de commande, nom du fournisseur, date de commande, montant,...ects).

Je souhaiterais simplement identifier une ligne de commande rapidement : saisir le n° de commande (dans une cellule extérieure au tableau bien sûr) et ainsi mettre en surbrillance la ligne concernée.

Si je n'ai pas été assez clair n'hésitez pas à m'interroger, je n'ai malheureusement pas de modèle en exemple à vous fournir mais il n'y a rien de plus simple au niveau de la structure.

Je vous remercie pour votre aide.

Bonjour,

tu as 2 solutions :

• le filtre (voire le filtre avancé)
• la MFC

mets un exemple réduit du tableau ... cela sera plus facile pour te montrer !

N'ayant pas la possibilité d'importer voici un exemple de mon tableau :

N° de Commande | Date de commande | Date de livraison |.....................Objet............................| Periode de facturation | ...

123A598599393....................12/11/2033...................11/03/2044.................Vente Réf.A1234........................................Octobre 2017

3984874874878....................23/07/2013...................23/09/2023.................Vente Réf.B1234........................................Novembre 2018

Bonjour Univers, Steelson,

une solution VBA, incomplète sûrement, parmi d'autres... tu encodes ton n° dans [A1]...

Private Sub Worksheet_Change(ByVal Target As Range)
'
Application.EnableEvents = False
'
iRow = Range("B" & Rows.Count).End(xlUp).Row
If iRow < 2 Then iRow = 2
Range("A2:AA" & iRow).Interior.Color = xlNone
If Not Intersect(Target, Range("A1")) Is Nothing Then
    On Error Resume Next
    iRow1 = Range("B2:B" & iRow).Find(what:=CStr(Target.Value), lookat:=xlWhole).Row
    If iRow1 > 0 Then
        Rows(iRow1).Interior.Color = RGB(200, 200, 200)
        Application.ScrollRow = iRow
    Else
        MsgBox "Pas de correspondance!", vbInformation
    End If
    [A1] = ""
End If
Application.EnableEvents = True
'
End Sub

A+

exemple MFC

Je vous remercie tous pour votre efficacité.

Je vous souhaite une agréable soirée !