VBA, copier ligne entière sous condition

[titi_lg]

Bonsoir,

Je souhaiterais créer une macro, qui dans un premier temps copie la première ligne de la feuil1 vers la feuil2.
Ensuite rechercher sur la feuil1, dans la colonne "I" le mot "SERIGHAP", et copier la ligne entière vers la feuil2 autant de fois que le mot est présent. Et ainsi de suite pour chaque mots différent de la colonne "I". Les onglets porteront le même nom.
Je sais faire l'inverse en copiant le tableau entier sur une nouvelle feuille puis en supprimant les lignes qui ne contiennent pas certains mots, en utilisant la formule ci-dessous :

Workbooks("Gestion du carnet.xls").Activate
Sheets("Trié").Select
Cells.Select
Selection.ClearContents

Sheets("Import").Select
Cells.Select
Selection.Copy
Sheets("Trié").Select
Cells.Select
ActiveSheet.Paste

Dim i As Integer
i = 1
Do While Sheets("Trié").Cells(i, 1) <> ""
i = i + 1
Loop

Dim Ligne As Integer
For Ligne = 1 To i 'parcourt les lignes du tableau de la feuille 2

If Sheets("Trié").Cells(Ligne, 9) = "SERIGHAP" Or Sheets("Trié").Cells(Ligne, 9) = "CONTROLE" Then
Sheets("Trié").Cells(Ligne, 9).EntireRow.Select
Selection.Delete Shift:=xlUp
Ligne = Ligne - 1
End If
Next Ligne


Mais je n'arrive pas à trouver celle qui me copiera dans une nouvelle feuille, une ligne entière si un mot est présent dans une colonne.

A l'heure actuelle je fais un filtre, et copie dans un nouvel onglet chaque lignes.
Mais il y a plus de 50 mots différents, ce qui me prend un peu de temps.
Mon fichier peux atteindre plus de 3000 lignes.

Merci d'avance a ceux qui voudrons bien se pencher sur mon problème.
Thierry.

 

[pierrejean]

Re : VBA, copier ligne entière sous condition

Bonjour titi_lg

Il est bien rare que l'on puisse travailler sur une image !!!
Peux-tu poster un fichier exemple ( exempt de données confidentielles) ?

 

[Efgé]

Re : VBA, copier ligne entière sous condition

Bonjour titi_lg , Bonjour pierrejean, Une nouvelle méthode "imagée" : ) ) Cordialement

 

[titi_lg]

Re : VBA, copier ligne entière sous condition

Bonsoir pierrejean & Efgé ,
Merci à vous de m'avoir consacré un peu de temps.

=> pierrejean, ci-joint une partie de mon fichier sous excel.
=> Efgé, merci pour le fichier, je vais essayer de le recopier et voir ce que ça donne.

Merci.

 

[Efgé]

Re : VBA, copier ligne entière sous condition

Re à tous
Je précise que la colonne 9 prise comme base dans le premier exemple s'avère être la colonne 6 ....
Cordialement

 

[titi_lg]

Re : VBA, copier ligne entière sous condition

Wouahhh !!!!!!

Impressionant d'efficacité ... ... ...
En une seconde tout est trié ... ... ... Je n'en reviens pas ... ... ... Je suis sur le c..

MERCI, mille MERCI ... ... ...

Moi qui galère depuis plusieurs mois en faisant mes tris (comme un imbécile), je ne regrette pas de m'être inscrit sur ce site...

Encore MERCI Efgé