Deux fois
Le
lelg79

Bonjour,
J'ai des onglets style base de données qui contiennent tous les mêmes d=
onnées et je dois envoyer à chaque service les seules données qui le =
concerne. Le service est identifié par le nom de l'onglet. Dans certains =
onglets le tri est fait à partir du chiffre inscrit dans la colonne C, da=
ns la colonne K pour les autres.
J'ai créé laborieusement cette macro pour automatiser le truc
Sub Fichier_ed_evs()
Application.ScreenUpdating = False
For i = [a1000].End(3).Row To 1 Step -1
Sheets("LYON").Select
If Cells(i, 3) <> 95522 Then Rows(i).Delete
Sheets("VALENCE").Select
If Cells(i, 3) <> 95523 Then Rows(i).Delete
Sheets("VIENNE").Select
If Cells(i, 3) <> 95524 Then Rows(i).Delete
Sheets("MACON").Select
If Cells(i, 3) <> 95525 Then Rows(i).Delete
Sheets("SAINT ETIENNE").Select
If Cells(i, 3) <> 95526 Then Rows(i).Delete
Sheets("RHONE ALPES").Select
If Cells(i, 11) <> 95532 Then Rows(i).Delete
Sheets("LYON NORD").Select
If Cells(i, 11) <> 95533 Then Rows(i).Delete
Sheets("LYON SUD").Select
If Cells(i, 11) <> 95534 Then Rows(i).Delete
Sheets("DROME").Select
If Cells(i, 11) <> 95535 Then Rows(i).Delete
Sheets("LOIRE").Select
If Cells(i, 11) <> 95536 Then Rows(i).Delete
Sheets("FORMATION").Select
If Cells(i, 11) <> 95539 Then Rows(i).Delete
Next
End Sub
Je ne comprends par pourquoi il faut que je lance deux fois la macro pour q=
ue le résultat soit conforme dans les six derniers onglets où la donn=
ée est dans la colonne K (i, 11).
--
Merci d'avance
Laurent
J'ai des onglets style base de données qui contiennent tous les mêmes d=
onnées et je dois envoyer à chaque service les seules données qui le =
concerne. Le service est identifié par le nom de l'onglet. Dans certains =
onglets le tri est fait à partir du chiffre inscrit dans la colonne C, da=
ns la colonne K pour les autres.
J'ai créé laborieusement cette macro pour automatiser le truc
Sub Fichier_ed_evs()
Application.ScreenUpdating = False
For i = [a1000].End(3).Row To 1 Step -1
Sheets("LYON").Select
If Cells(i, 3) <> 95522 Then Rows(i).Delete
Sheets("VALENCE").Select
If Cells(i, 3) <> 95523 Then Rows(i).Delete
Sheets("VIENNE").Select
If Cells(i, 3) <> 95524 Then Rows(i).Delete
Sheets("MACON").Select
If Cells(i, 3) <> 95525 Then Rows(i).Delete
Sheets("SAINT ETIENNE").Select
If Cells(i, 3) <> 95526 Then Rows(i).Delete
Sheets("RHONE ALPES").Select
If Cells(i, 11) <> 95532 Then Rows(i).Delete
Sheets("LYON NORD").Select
If Cells(i, 11) <> 95533 Then Rows(i).Delete
Sheets("LYON SUD").Select
If Cells(i, 11) <> 95534 Then Rows(i).Delete
Sheets("DROME").Select
If Cells(i, 11) <> 95535 Then Rows(i).Delete
Sheets("LOIRE").Select
If Cells(i, 11) <> 95536 Then Rows(i).Delete
Sheets("FORMATION").Select
If Cells(i, 11) <> 95539 Then Rows(i).Delete
Next
End Sub
Je ne comprends par pourquoi il faut que je lance deux fois la macro pour q=
ue le résultat soit conforme dans les six derniers onglets où la donn=
ée est dans la colonne K (i, 11).
--
Merci d'avance
Laurent
Essaie avec une seule feuille de données. Fais un filtre automatique
pour chaque service successivament, copie les lignes filtrées et
colle-les dans une feuille spécifique à chaque service.
Si tu veux plus d'aide, poste un classeur exemple (une feuille).
Cordialement.
Daniel
Le 05/12/2013 13:16, DanielCo a écrit :
Merci, mais bon, c'est justement pour m'éviter ces manip' que j'ai eu
l'idée de faire une macro ;o)
--
Laurent
Bien sûr que tu utilises le filtre auto avec une macro.
Daniel