creation de feuilles selon condition

[belyazid]

salut et bon week-end
j'ai une base de données qui contient une seule feuille(global).
je voudrais à l'aide d'une macro créer 4feuille :
_ feuil1 (bureau1) contenant tous les gra(1,2,3 et4) pour les etab(youss,oubo,hass,deleg)
_ feuil2 (bureau2) contenant tous les gra(1,2,3 et4) pour les etab(cadi,biran,amir,khal)
_ feuil3(bureau3) contenant tous les gra(1,2,3 et4) pour les etab(ibni,inbia,hafs,lalla)
_ feuil4 (bureau4) contenant tous les gra(1,2,3 et4) pour les etab(wahd,mokh,charif)
ma base est plus grande que celle de fichier joint et je pourais ajouter d'autre etab
merci

 

[belyazid]

Re : creation de feuilles selon condition

salut
voici le fichier

 

[belyazid]

Re : creation de feuilles selon condition

re salut
j'ai zippe le fichier

 

[belyazid]

Re : creation de feuilles selon condition

re salut

si vous avez besoin d'éclaircissement,je prêt à les fournir et merci d'avance

 

[belyazid]

Re : creation de feuilles selon condition

bonsoir
si c'est pas faisable faites moi SVP
merci

 

[vbacrumble]

Re : creation de feuilles selon condition

Bonsoir

Tu as essayé le filtre automatique ?
(couplé au macro recorder)


Comme cela tu obtiendras un premier code VBA.

 

[belyazid]

Re : creation de feuilles selon condition

salut VBACrumble
tout d'abord merci pour ton attention à mon message.
je sais pas comment faire
merci

 

[belyazid]

Re : creation de feuilles selon condition

salut VBACrumble
qu'est ce qu'une macro recorder
et merci

 

[vbacrumble]

Re : creation de feuilles selon condition

Re


L'enregistreur de macros

(Outils/Macros/Nouvelle macro)

puis faire les manipulations que tu fais habituellement manuellement.

 

[belyazid]

Re : creation de feuilles selon condition

salut VBACrumble
je le ferais maintenant
merci

 

[belyazid]

Re : creation de feuilles selon condition

salut VBACrumble
j'ai suivi tes consignes mais j'ai un probleme car les noms des etab sont en arabe
et dans le code j'ai pas pu ecrire les noms des etab
merci infiniment.

 

[vbacrumble]

Re : creation de feuilles selon condition

Re


Voici un exemple de code généré par le macro recorder
(que j'ai testé le fichier que tu as joint à ton post

Sub Macro1()
[COLOR="Green"]'
' Macro16 Macro
' Macro enregistrée le 08/05/2009 par VBACrumble
[/COLOR]
Application.ScreenUpdating = False
    Range("A12:F172").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
        ("tri1"), CopyToRange:=Range("H12"), Unique:=False
    ActiveWindow.SmallScroll ToRight:=4
    Range("A12:F172").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
        ("tri2"), CopyToRange:=Range("O12"), Unique:=False
    Range("A12:F172").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
        ("tri3"), CopyToRange:=Range("V12"), Unique:=False
    Range("A12:F172").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
        ("tri4"), CopyToRange:=Range("AC12"), Unique:=False
    Range("H12:M48").Select
    Selection.Sort Key1:=Range("L13"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("O12:T67").Select
    Selection.Sort Key1:=Range("S13"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("V12:AA33").Select
    Selection.Sort Key1:=Range("Z13"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    ActiveWindow.SmallScroll ToRight:=7
    Range("AC12:AH172").Select
    Selection.Sort Key1:=Range("AG13"), Order1:=xlAscending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    ActiveWindow.ScrollColumn = 1
    Range("A12").Select
    Application.ScreenUpdating = True
End Sub

 

[belyazid]

Re : creation de feuilles selon condition

merci VBACrumble
je vais le tester et t'infomer
merci beaucoup

 

[belyazid]

Re : creation de feuilles selon condition

re salut
j'ai teste mais ca debugue sur la ligne

Range("A12:F172").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("tri1"), CopyToRange:=Range("H12"), Unique:=False
salutation

 

[vbacrumble]

Re : creation de feuilles selon condition

Re


C'est normal

Car ce sont des zones nommées contenant les critères pour le filtre
élaboré.


(PS: ce code VBA est une adaptation/simplification du code généré par le macro recorder.
C'est ce qui fait tout l'intérêt de l'enregistreur de macro )


Regarde la pièce jointe et lance la macro nommée : main

(Ne gère pas les erreurs, exemple si l'on relance une 2ème fois la macro
comme les feuilles bureau1, bureau2, bureau3, bureau4 existent déjà )

Je te laisse t'occuper de cela puisqu'il y a déjà la fonction idoine dans le module 1 de ton fichier original (que j'ai laissé dans cette PJ )