Extraire à partir d'une liste

Bonjour,

je suis sous Excel 2003 et je voudrais savoir comment faire la manip suiv ante

j'ai une liste de personnes qui sont habilitées à valider des facture s sur
certains départements pour la société A ou B jusqu'à un montant X

ce que je voudrais faire c'est des fiches récapitulatives :

dans l'idéal en haut de ma récap je mets le nom de la personne pour q ui on
veut faire cette récap et ensuite dans le tableau en dessous cela me so rt les
différents départements avec leur description ainsi que le montant au quel ils
sont autorisés

donc j'ai le tableau avec les colonnes suivantes : Département /
Description / Montant autorisé.

L'un de vous aurait il une idée ?

Merci d'avance
Audrey

Bonjour,

Un simple filtre auto ne suffit pas?

JB

Bonjour,

je suis sous Excel 2003 et je voudrais savoir comment faire la manip suivante

j'ai une liste de personnes qui sont habilitées à valider des factures sur
certains départements pour la société A ou B jusqu'à un montant X

ce que je voudrais faire c'est des fiches récapitulatives :

dans l'idéal en haut de ma récap je mets le nom de la personne pour qui on
veut faire cette récap et ensuite dans le tableau en dessous cela me sort les
différents départements avec leur description ainsi que le montant auquel ils
sont autorisés

donc j'ai le tableau avec les colonnes suivantes : Département /
Description / Montant autorisé.

L'un de vous aurait il une idée ?

Merci d'avance
Audrey

Malheureusement je ne pense pas vu qu'il faut que je mette le résultat dans
un autre document excel

Bonjour,

Un simple filtre auto ne suffit pas?

JB

Bonjour,

je suis sous Excel 2003 et je voudrais savoir comment faire la manip suivante

j'ai une liste de personnes qui sont habilitées à valider des fac tures sur
certains départements pour la société A ou B jusqu'à un monta nt X

ce que je voudrais faire c'est des fiches récapitulatives :

dans l'idéal en haut de ma récap je mets le nom de la personne po ur qui on
veut faire cette récap et ensuite dans le tableau en dessous cela m e sort les
différents départements avec leur description ainsi que le montan t auquel ils
sont autorisés

donc j'ai le tableau avec les colonnes suivantes : Département /
Description / Montant autorisé.

L'un de vous aurait il une idée ?

Merci d'avance
Audrey

Essai avec création d'onglets ( on peut également créer des
classeurs)

http://cjoint.com/?kFrDXu2gcE

Sub essai()
Application.DisplayAlerts = False
[A1:D1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[H1],
Unique:=True
For Each c In Range("H2", [H65000].End(xlUp))
Sheets(1).[H2] = c
On Error Resume Next
Sheets(c.Value).Delete
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = c
Sheets(1).[A1:D1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets(1).Range("H1:H2"), CopyToRange:=[A1]
[A:A].Delete
Next c
End Sub

JB

Malheureusement je ne pense pas vu qu'il faut que je mette le résultat dans
un autre document excel

Bonjour,

Un simple filtre auto ne suffit pas?

JB

Bonjour,

je suis sous Excel 2003 et je voudrais savoir comment faire la manip suivante

j'ai une liste de personnes qui sont habilitées à valider des factures sur
certains départements pour la société A ou B jusqu'à un montant X

ce que je voudrais faire c'est des fiches récapitulatives :

dans l'idéal en haut de ma récap je mets le nom de la personne pour qui on
veut faire cette récap et ensuite dans le tableau en dessous cela me sort les
différents départements avec leur description ainsi que le montant auquel ils
sont autorisés

donc j'ai le tableau avec les colonnes suivantes : Département /
Description / Montant autorisé.

L'un de vous aurait il une idée ?

Merci d'avance
Audrey

Bonsoir je te remercie de ton aide super précieuse
il y avait un petit dysfonctionnement que j'ai réglé
je sais pas faire des macros comme ça mais je sais les modifier pour les
arranger (c'était juste une question de plage de cellules)

Merci

Essai avec création d'onglets ( on peut également créer des
classeurs)

http://cjoint.com/?kFrDXu2gcE

Sub essai()
Application.DisplayAlerts = False
[A1:D1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[H1 ],
Unique:=True
For Each c In Range("H2", [H65000].End(xlUp))
Sheets(1).[H2] = c
On Error Resume Next
Sheets(c.Value).Delete
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = c
Sheets(1).[A1:D1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets(1).Range("H1:H2"), CopyToRange:=[A1]
[A:A].Delete
Next c
End Sub

JB

Malheureusement je ne pense pas vu qu'il faut que je mette le résul tat dans
un autre document excel

Bonjour,

Un simple filtre auto ne suffit pas?

JB

Bonjour,

je suis sous Excel 2003 et je voudrais savoir comment faire la ma nip suivante

j'ai une liste de personnes qui sont habilitées à valider des factures sur
certains départements pour la société A ou B jusqu'à un m ontant X

ce que je voudrais faire c'est des fiches récapitulatives :

dans l'idéal en haut de ma récap je mets le nom de la personn e pour qui on
veut faire cette récap et ensuite dans le tableau en dessous ce la me sort les
différents départements avec leur description ainsi que le mo ntant auquel ils
sont autorisés

donc j'ai le tableau avec les colonnes suivantes : Département /
Description / Montant autorisé.

L'un de vous aurait il une idée ?

Merci d'avance
Audrey

Version classeurs:

Sub essai2()
Application.DisplayAlerts = False
ClasseurMaitre = ActiveWorkbook.Name
[A1:D1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[H1],
Unique:=True
For Each c In Range("H2", [H65000].End(xlUp))
Sheets(1).[H2] = c
Workbooks.Add
Workbooks(ClasseurMaitre).Sheets(1).[A1:D1000].AdvancedFilter _
Action:=xlFilterCopy, _

CriteriaRange:=Workbooks(ClasseurMaitre).Sheets(1).Range("H1:H2"),
CopyToRange:=[A1]
[A:A].Delete
ActiveWorkbook.SaveAs Filename:=c.Value
ActiveWorkbook.Close
Next c
End Sub

JB

Bonsoir je te remercie de ton aide super précieuse
il y avait un petit dysfonctionnement que j'ai réglé
je sais pas faire des macros comme ça mais je sais les modifier pour les
arranger (c'était juste une question de plage de cellules)

Merci

Essai avec création d'onglets ( on peut également créer des
classeurs)

http://cjoint.com/?kFrDXu2gcE

Sub essai()
Application.DisplayAlerts = False
[A1:D1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[H1],
Unique:=True
For Each c In Range("H2", [H65000].End(xlUp))
Sheets(1).[H2] = c
On Error Resume Next
Sheets(c.Value).Delete
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = c
Sheets(1).[A1:D1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets(1).Range("H1:H2"), CopyToRange:=[A1]
[A:A].Delete
Next c
End Sub

JB

Malheureusement je ne pense pas vu qu'il faut que je mette le résultat dans
un autre document excel

Bonjour,

Un simple filtre auto ne suffit pas?

JB

Bonjour,

je suis sous Excel 2003 et je voudrais savoir comment faire la manip suivante

j'ai une liste de personnes qui sont habilitées à valider des factures sur
certains départements pour la société A ou B jusqu'à un montant X

ce que je voudrais faire c'est des fiches récapitulatives :

dans l'idéal en haut de ma récap je mets le nom de la personne pour qui on
veut faire cette récap et ensuite dans le tableau en dessous cela me sort les
différents départements avec leur description ainsi que le montant auquel ils
sont autorisés

donc j'ai le tableau avec les colonnes suivantes : Département /
Description / Montant autorisé.

L'un de vous aurait il une idée ?

Merci d'avance
Audrey

Me revoilà
je voulais savoir comment je peux faire pour créer un onglet pour chaque
personne et indiquer le nom de la personne dans la case A9 de la feuille
modèle qui devra être dupliquée autant de fois qu'il y aura de nom différents
ensuite les données départements / description / montant autorisé dans cet
ordre
respectivement dans les colonnes A, C et F

j'espère que je n'abuse pas trop mais ça m'aiderait beaucoup
Merci
Audrey

Version classeurs:

Sub essai2()
Application.DisplayAlerts = False
ClasseurMaitre = ActiveWorkbook.Name
[A1:D1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[H1],
Unique:=True
For Each c In Range("H2", [H65000].End(xlUp))
Sheets(1).[H2] = c
Workbooks.Add
Workbooks(ClasseurMaitre).Sheets(1).[A1:D1000].AdvancedFilter _
Action:=xlFilterCopy, _

CriteriaRange:=Workbooks(ClasseurMaitre).Sheets(1).Range("H1:H2"),
CopyToRange:=[A1]
[A:A].Delete
ActiveWorkbook.SaveAs Filename:=c.Value
ActiveWorkbook.Close
Next c
End Sub

JB

Bonsoir je te remercie de ton aide super précieuse
il y avait un petit dysfonctionnement que j'ai réglé
je sais pas faire des macros comme ça mais je sais les modifier pour les
arranger (c'était juste une question de plage de cellules)

Merci

Essai avec création d'onglets ( on peut également créer des
classeurs)

http://cjoint.com/?kFrDXu2gcE

Sub essai()
Application.DisplayAlerts = False
[A1:D1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[H1],
Unique:=True
For Each c In Range("H2", [H65000].End(xlUp))
Sheets(1).[H2] = c
On Error Resume Next
Sheets(c.Value).Delete
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = c
Sheets(1).[A1:D1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets(1).Range("H1:H2"), CopyToRange:=[A1]
[A:A].Delete
Next c
End Sub

JB

Malheureusement je ne pense pas vu qu'il faut que je mette le résultat dans
un autre document excel

Bonjour,

Un simple filtre auto ne suffit pas?

JB

Bonjour,

je suis sous Excel 2003 et je voudrais savoir comment faire la manip suivante

j'ai une liste de personnes qui sont habilitées à valider des factures sur
certains départements pour la société A ou B jusqu'à un montant X

ce que je voudrais faire c'est des fiches récapitulatives :

dans l'idéal en haut de ma récap je mets le nom de la personne pour qui on
veut faire cette récap et ensuite dans le tableau en dessous cela me sort les
différents départements avec leur description ainsi que le montant auquel ils
sont autorisés

donc j'ai le tableau avec les colonnes suivantes : Département /
Description / Montant autorisé.

L'un de vous aurait il une idée ?

Merci d'avance
Audrey

pour les données en A C F c'est à partir de la ligne 15

Me revoilà
je voulais savoir comment je peux faire pour créer un onglet pour cha que
personne et indiquer le nom de la personne dans la case A9 de la feuille
modèle qui devra être dupliquée autant de fois qu'il y aura de no m différents
ensuite les données départements / description / montant autorisé dans cet
ordre
respectivement dans les colonnes A, C et F

j'espère que je n'abuse pas trop mais ça m'aiderait beaucoup
Merci
Audrey

Version classeurs:

Sub essai2()
Application.DisplayAlerts = False
ClasseurMaitre = ActiveWorkbook.Name
[A1:D1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[ H1],
Unique:=True
For Each c In Range("H2", [H65000].End(xlUp))
Sheets(1).[H2] = c
Workbooks.Add
Workbooks(ClasseurMaitre).Sheets(1).[A1:D1000].AdvancedFilter _
Action:=xlFilterCopy, _

CriteriaRange:=Workbooks(ClasseurMaitre).Sheets(1).Range("H1:H2"),
CopyToRange:=[A1]
[A:A].Delete
ActiveWorkbook.SaveAs Filename:=c.Value
ActiveWorkbook.Close
Next c
End Sub

JB

Bonsoir je te remercie de ton aide super précieuse
il y avait un petit dysfonctionnement que j'ai réglé
je sais pas faire des macros comme ça mais je sais les modifier p our les
arranger (c'était juste une question de plage de cellules)

Merci

Essai avec création d'onglets ( on peut également créer des
classeurs)

http://cjoint.com/?kFrDXu2gcE

Sub essai()
Application.DisplayAlerts = False
[A1:D1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange: =[H1],
Unique:=True
For Each c In Range("H2", [H65000].End(xlUp))
Sheets(1).[H2] = c
On Error Resume Next
Sheets(c.Value).Delete
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = c
Sheets(1).[A1:D1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets(1).Range("H1:H2"), CopyToRange: =[A1]
[A:A].Delete
Next c
End Sub

JB

Malheureusement je ne pense pas vu qu'il faut que je mette le r ésultat dans
un autre document excel

Bonjour,

Un simple filtre auto ne suffit pas?

JB

Bonjour,

je suis sous Excel 2003 et je voudrais savoir comment faire la manip suivante

j'ai une liste de personnes qui sont habilitées à valid er des factures sur
certains départements pour la société A ou B jusqu' à un montant X

ce que je voudrais faire c'est des fiches récapitulatives :

dans l'idéal en haut de ma récap je mets le nom de la p ersonne pour qui on
veut faire cette récap et ensuite dans le tableau en dess ous cela me sort les
différents départements avec leur description ainsi que le montant auquel ils
sont autorisés

donc j'ai le tableau avec les colonnes suivantes : Départ ement /
Description / Montant autorisé.

L'un de vous aurait il une idée ?

Merci d'avance
Audrey

Bonjour,

Il faudrait un échantillon de la BD:

Sub CréeOngletsModèle()
Application.DisplayAlerts = False
[A1:D1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[H1],
Unique:=True
For Each c In Range("H2", [H65000].End(xlUp))
Sheets(1).[H2] = c
On Error Resume Next
Sheets(c.Value).Delete
On Error GoTo 0
Sheets("Modèle").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = c
Sheets(1).[A1:D1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets(1).Range("H1:H2"), CopyToRange:=[A7:C7]
[B2] = c.Value
Next c
End Sub

http://cjoint.com/?lboHumcEyL

JB

pour les données en A C F c'est à partir de la ligne 15

Me revoilà
je voulais savoir comment je peux faire pour créer un onglet pour chaque
personne et indiquer le nom de la personne dans la case A9 de la feuille
modèle qui devra être dupliquée autant de fois qu'il y aura de nom différents
ensuite les données départements / description / montant autorisé dans cet
ordre
respectivement dans les colonnes A, C et F

j'espère que je n'abuse pas trop mais ça m'aiderait beaucoup
Merci
Audrey

Version classeurs:

Sub essai2()
Application.DisplayAlerts = False
ClasseurMaitre = ActiveWorkbook.Name
[A1:D1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[H1],
Unique:=True
For Each c In Range("H2", [H65000].End(xlUp))
Sheets(1).[H2] = c
Workbooks.Add
Workbooks(ClasseurMaitre).Sheets(1).[A1:D1000].AdvancedFilter _
Action:=xlFilterCopy, _

CriteriaRange:=Workbooks(ClasseurMaitre).Sheets(1).Range("H1:H2"),
CopyToRange:=[A1]
[A:A].Delete
ActiveWorkbook.SaveAs Filename:=c.Value
ActiveWorkbook.Close
Next c
End Sub

JB

Bonsoir je te remercie de ton aide super précieuse
il y avait un petit dysfonctionnement que j'ai réglé
je sais pas faire des macros comme ça mais je sais les modifier pour les
arranger (c'était juste une question de plage de cellules)

Merci

Essai avec création d'onglets ( on peut également créer des
classeurs)

http://cjoint.com/?kFrDXu2gcE

Sub essai()
Application.DisplayAlerts = False
[A1:D1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[H1],
Unique:=True
For Each c In Range("H2", [H65000].End(xlUp))
Sheets(1).[H2] = c
On Error Resume Next
Sheets(c.Value).Delete
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = c
Sheets(1).[A1:D1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets(1).Range("H1:H2"), CopyToRange:=[A1]
[A:A].Delete
Next c
End Sub

JB

Malheureusement je ne pense pas vu qu'il faut que je mette le résultat dans
un autre document excel

Bonjour,

Un simple filtre auto ne suffit pas?

JB

Bonjour,

je suis sous Excel 2003 et je voudrais savoir comment faire la manip suivante

j'ai une liste de personnes qui sont habilitées à valider des factures sur
certains départements pour la société A ou B jusqu'à un montant X

ce que je voudrais faire c'est des fiches récapitulatives :

dans l'idéal en haut de ma récap je mets le nom de la personne pour qui on
veut faire cette récap et ensuite dans le tableau en dessous cela me sort les
différents départements avec leur description ainsi que le montant auquel ils
sont autorisés

donc j'ai le tableau avec les colonnes suivantes : Département /
Description / Montant autorisé.

L'un de vous aurait il une idée ?

Merci d'avance
Audrey

merci encore,
je te joins un "extrait" de la base ce sont des données bidon et du
formulaire à remplir qui lui est le vrai

il faut que tu saches que certaines personnes vont presque avoir 100 lign es
dans leur fiche...

http://cjoint.com/?lcbxmLZPu8

MErci
Audrey

Bonjour,

Il faudrait un échantillon de la BD:

Sub CréeOngletsModèle()
Application.DisplayAlerts = False
[A1:D1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[H1 ],
Unique:=True
For Each c In Range("H2", [H65000].End(xlUp))
Sheets(1).[H2] = c
On Error Resume Next
Sheets(c.Value).Delete
On Error GoTo 0
Sheets("Modèle").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = c
Sheets(1).[A1:D1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets(1).Range("H1:H2"), CopyToRange:=[A7:C 7]
[B2] = c.Value
Next c
End Sub

http://cjoint.com/?lboHumcEyL

JB

pour les données en A C F c'est à partir de la ligne 15

Me revoilà
je voulais savoir comment je peux faire pour créer un onglet pour chaque
personne et indiquer le nom de la personne dans la case A9 de la fe uille
modèle qui devra être dupliquée autant de fois qu'il y aura d e nom différents
ensuite les données départements / description / montant autori sé dans cet
ordre
respectivement dans les colonnes A, C et F

j'espère que je n'abuse pas trop mais ça m'aiderait beaucoup
Merci
Audrey

Version classeurs:

Sub essai2()
Application.DisplayAlerts = False
ClasseurMaitre = ActiveWorkbook.Name
[A1:D1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange: =[H1],
Unique:=True
For Each c In Range("H2", [H65000].End(xlUp))
Sheets(1).[H2] = c
Workbooks.Add
Workbooks(ClasseurMaitre).Sheets(1).[A1:D1000].AdvancedFilte r _
Action:=xlFilterCopy, _

CriteriaRange:=Workbooks(ClasseurMaitre).Sheets(1).Range("H1:H2 "),
CopyToRange:=[A1]
[A:A].Delete
ActiveWorkbook.SaveAs Filename:=c.Value
ActiveWorkbook.Close
Next c
End Sub

JB

Bonsoir je te remercie de ton aide super précieuse
il y avait un petit dysfonctionnement que j'ai réglé
je sais pas faire des macros comme ça mais je sais les modifi er pour les
arranger (c'était juste une question de plage de cellules)

Merci

Essai avec création d'onglets ( on peut également créer des
classeurs)

http://cjoint.com/?kFrDXu2gcE

Sub essai()
Application.DisplayAlerts = False
[A1:D1000].AdvancedFilter Action:=xlFilterCopy, CopyToRa nge:=[H1],
Unique:=True
For Each c In Range("H2", [H65000].End(xlUp))
Sheets(1).[H2] = c
On Error Resume Next
Sheets(c.Value).Delete
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = c
Sheets(1).[A1:D1000].AdvancedFilter Action:=xlFilterCo py, _
CriteriaRange:=Sheets(1).Range("H1:H2"), CopyToRang e:=[A1]
[A:A].Delete
Next c
End Sub

JB

Malheureusement je ne pense pas vu qu'il faut que je mette le résultat dans
un autre document excel

Bonjour,

Un simple filtre auto ne suffit pas?

JB

Bonjour,

je suis sous Excel 2003 et je voudrais savoir comment f aire la manip suivante

j'ai une liste de personnes qui sont habilitées à v alider des factures sur
certains départements pour la société A ou B jusq u'à un montant X

ce que je voudrais faire c'est des fiches récapitulat ives :

dans l'idéal en haut de ma récap je mets le nom de la personne pour qui on
veut faire cette récap et ensuite dans le tableau en dessous cela me sort les
différents départements avec leur description ainsi que le montant auquel ils
sont autorisés

donc j'ai le tableau avec les colonnes suivantes : Dé partement /
Description / Montant autorisé.

L'un de vous aurait il une idée ?

Merci d'avance
Audrey