Chercher dans une collone un mot et renvoyer toutes les lignes où apparaissent ce mot.

vgendron à dit:

Bonjour
il faudrait que tu postes un fichier excel en guise d'exemple SANS données confidentielles
pas besoin de mettre les 500 lignes.. une dizaine suffit, il faut juste que cela soit représentatif de ton fichier final
représentatif = bon nombre de colonnes, avec les bons noms aux bons endroits..
ex. si on te fait une formule en colonne J qui travaille sur les colonnes A et C.. et au final. les infos sont en colonnes D et E...
autant avoir le bon fichier tout de suite

Cliquez pour agrandir...

job75 à dit:

Bonjour Alexandreee, vgendron, JB,

Si l'on s'en tient au problème posé il suffit de filtrer le tableau sur la colonne E :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [G1]) Is Nothing Then Exit Sub
Dim P As Range
Application.ScreenUpdating = False
AutoFilterMode = False
[A:E].AutoFilter 5, "*" & [G1] & "*" 'filtre automatique
Set P = UsedRange
With Sheets("Résultat")
    .Cells.Delete 'RAZ
    P.EntireRow.Copy .[A1]
    .Activate 'facultatif
End With
AutoFilterMode = False
End Sub

Cette macro n'est même pas indispensable, l'opération peut se faire manuellement.

A+

Cliquez pour agrandir...

1 Private Sub Worksheet_Change(ByVal Target As Range)
2 If Intersect(Target, [M1]) Is Nothing Then Exit Sub
3 Dim P As Range
4 Application.ScreenUpdating = False
5 AutoFilterMode = False
6 [A:E].AutoFilter 5, "*" & [M1] & "*" ')
7 Set P = UsedRange
8 With Sheets("Résultat")
9 .Cells.Delete 'RAZ
10  P.EntireRow.Copy .[A1]
11  .Activate '
12 End With
13 AutoFilterMode = False
14 End Sub