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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #25843122
Bonjour,
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


Bonjour,


J'ai des onglets style base de données qui contiennent tous les mêmes donné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, dans 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 que
le résultat soit conforme dans les six derniers onglets où la donnée est dans
la colonne K (i, 11).
--- Laurent ---
Le #25844352
Bonjour,

Le 05/12/2013 13:16, DanielCo a écrit :
Bonjour,
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




Merci, mais bon, c'est justement pour m'éviter ces manip' que j'ai eu
l'idée de faire une macro ;o)

--
Laurent
DanielCo
Le #25845102
Merci, mais bon, c'est justement pour m'éviter ces manip' que j'ai eu l'idée
de faire une macro ;o)



Bien sûr que tu utilises le filtre auto avec une macro.
Daniel
Publicité
Poster une réponse
Anonyme