Extraction excel

Résolu
lusitan -  
Bonjour,
J avais posé une question concernant un tableur personne ne le connais donc je vais essayer de refaire le meme avec excel mais j ai besoin d aide car je connais pas les macros
sur le tabeur joint j ai besoin de
Quand je saisie le numero de semaine dans la cellule jaune et que j appuie sur le bouton de commande ( qui est est lié a une macro de recopier de la page programme vers la page extraction toutes les cellules de la colonne A qui ont une croix ( ou autre si c est plus facile ) sous le meme numéro de semaine que dans la cellule jaune
pour la mise en forme du planning j ai deja des astuces.
Chaque semaine le nombre de cellules à copier est different donc il faudra effacer tout le contenu avant de coller les nouvelles valeurs
La cellule machine sera collée aussi si elle possede une croix
http://www.cijoint.fr/cjlink.php?file=cj200804/cijd4dReHQ.xls
Configuration: Windows XP
Internet Explorer 7.0

merci de votre aide

1 réponse

  1. LePierre
    bonjour

    voici ce que j'ai réalisé à partir de l'enregisteur de macros
    j'ai modifié ton tableau de données pour permmettre l'action du filtre (pas de lignes vides intercallées, pas de titre redondant)
    Ce code mériterait d'être optimisé pour accélérer le processus

    https://www.cjoint.com/?eopVQv4ZzU

    à plus
    0
    1. lusitan Auteur
      Bonjour
      C est nickel , je l ai récupéré ca marche , j ai juste retiré la copie des x , je vais essayer de modifier la macro de manière a ajouter le filtre et le retirer apres execution , sinon c est tip top
      merci beaucoup
      0
    2. lusitan Auteur
      @lusitanje rame , comment je peux modifier la macro pour mettre le filtre et l enlever , et revenir par defaut sur la page planning
      merci encore*
      0
    3. LePierre
      @lusitanbonjour

      voici le code qui devrait te convenir : 
      Sub CopyDataSemaine2()

    Application.ScreenUpdating = False
    
    'initialisation
    Sheets("extraction").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    
    Sheets("Programme").Select
    Range("B4").Select
    Selection.AutoFilter
    Semaine = Cells(1, 4).Value
    Col = Semaine + 1
    
    Selection.AutoFilter Field:=Col, Criteria1:="x"
    
    Range("A4:A14").Select
    Selection.Copy
    Sheets("extraction").Select
    Range("A4").Select
    ActiveSheet.Paste
    Range("A4").Value = "S" & Semaine
    Range("B1").Select
    
    Sheets("Programme").Select
    Selection.AutoFilter
    Range("E2").Select
    Sheets("extraction").Select
    Application.ScreenUpdating = True
    
End Sub

      à plus
      0
    4. lusitan Auteur
      @LePierreMerci, merci .....c est au top
      a bientot
      0