Discussion :

[kyozoone]

Bonjour à tous,

Je cherche une manière d'effectuer un recherche sur toutes mes lignes de la
feuil1, si trouve la valeur demandée (texte ou nombre) alors copie la ligne entière contenant cette valeur sur feuil 2.

Merci d'avance pour votre aide !

[rjamin]

Bonjour,

La valeur cherchée est-elle unique ?

[kyozoone]

Merci pour ton retour rapide, oui la valeur est unique, en fait
j'aimerais faire une boucle auto de cette macro, sur toutes les lignes. Et Quelle me copie la ligne ou elle trouve l'info.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Macro1()
 
    Rows("1:1").Select
    Selection.Find(What:="HCP", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Rows("1:1").Select
    Selection.Copy
    Sheets("Feuil1").Select
    ActiveSheet.Paste
End Sub