Deux fois

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

---

• Partager ce contenu :