Selection de toutes les lignes contenant un mot

Bonjour

mon problème est le suivant :

A B C D E

1 AC 52 701 250 0

2 BD 25 FINI 41 5 625

3 IV 21 FINI 56 3 120

4 ZE 2 1536 9 125

5 ZE 5 FINI 2 17 28

Comment pourrais je extraire par une macro les lignes contenant le mot FINI et les intégrer sur une autre feuille.

Merci

Bonjour

Faisable par filtre avancé, lui-même automatisable par VBA

Joins un fichier exemple

Bonsoir 78chris

Tout d'abord merci encore une fois de partager tes connaissances .

Le fichier ci joint est à l'origine un peu long (20 à 70000 lignes) donc j'ai copié une section.

J'ai travaillé un fichier original par différentes macro pour arriver à ces colonnes.

Maintenant je dois sélectionner toutes les lignes qui contiennent le mot Total et les classer par ordre chronologique sur une autre feuille , et enlever le mot Total.

Et là je butte....

Merci beaucoup de ton aide.

Bonsoir,

-Le mot FINI n'apparaît pas

• Essai avec extraction du mot carte en colonne 4
• 0,04 sec pour 1000 lignes

Sub ExtraitLignesMot()
  Set f = Sheets("feuil1")
  mot = "carte": colonne = 4
  Application.DisplayAlerts = False
  Application.ScreenUpdating = False
  bd = f.Range("A1:F" & f.[A65000].End(xlUp).Row)
  mot = "*" & mot & "*"
  For i = 1 To UBound(bd)
    If bd(i, colonne) Like mot Then temp = temp & i & ","
  Next i
  a = Application.Index(bd, Application.Transpose(Split(temp, ",")), Array(1, 2, 3, 4, 5, 6))
  f.Cells(ligne + 1, "k").Resize(UBound(a) - 1, UBound(a, 2)) = a
End Sub

Ceuzin

Bonjour

Avec un filtre avancé (la zone de critères peut être déplacée ailleurs)

J'ai mis des titres de colonnes un peu au hasard : si tu changes mettre en cohérence, BD, critère et Plage d'extraction

Oui çà marche aussi c'est vraiment super.

Vous me sortez d'une galère de 2 jours , et je vous en remercie bien