Recherche de ligne dans un tableau excel

Salut,

Ah je vois que tu monde est arrivé sur la discussion, je mets tout de même un code basique facile à modifier, sans vouloir griller la politesse à mes amis que je salut avant de partir vers le soleil

si j'ai bien tout compris, sinon ignorez cette proposition

Sub test()
Range("A65536").End(xlUp).Select 'sélectionne la première cellule non vide colonne A
Do While ActiveCell <> Cells(1, ActiveCell.Column) 'boucle jusqu'a la première cellule de la colonne
Do While ActiveCell.Value <> "O" 'entre parenthèse le mot à chercher
If ActiveCell = Cells(1, ActiveCell.Column) Then Exit Sub 'si arrive à la première cellule de la colonne sorti de procédure
ActiveCell.Offset(-1, 0).Select
Loop
ActiveCell = ActiveCell.Offset(1, 0) 'si mot trouvé, copie la cellule inférieure
Loop
End Sub

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

bonjour

Comme toujours il y a plusieurs façon de le faire mais ceci me parait le plus simple :

Dim sel As Variant
    Set sel = Columns(1).Cells.Find("ta recherche")
    If Not sel Is Nothing Then ActiveCell.Value = sel.Offset(0, 1).Value

Tu recherches ta donnée dans la colonne 1 et si elle est trouvée "le contenu de la cellule qui suit celle qui contient le code sera copié et collé (= plus simple) dans la cellule où se trouve le curseur" (ActiveCell).