Copie d'une ligne dans autres feuilles

nad25 -  
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai une feuille "principale" et des feuilles "secondaires" dans un classeur Excel. Dans la feuille "principale" j'ai plusieures colones d'informations: nom, poste, mission, etc... Et les feuilles "secondaires" sont les différents postes (poste1, poste2, etc)
Je voudrais créer une macro qui copie la ligne de la feuille principale vers la feuille du poste concerné. C'est à dire que si dans une ligne de la feuille principale dans la colonne "poste" c'est poste3, ça copie cette ligne dans la feuille appellée poste3.

Merci beaucoup pour votre aide

2 réponses

  1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Salut,

    regarde le fichier joint qui copie les E de la colonne J dans l'onglet Et
    et les F dans l'onglet Fr
    et remplace les E et F dans le premier tableau par transféré pour ne pas transférer plusieurs fois les données

    https://www.cjoint.com/?eAs6YBX3aC
    0
    1. nad25
       
      Merci beaucoup, ça marche.
      Mais comment faire si j'ai par exemple 20 "postes" ?
      Suis je obligé de copier coller le code 20 fois ou il y a t il une astuce?
      0
    2. nad25
       
      Par exemple en nommant la feuille du meme nom que le critere. Ce serait peut-être l'astuce...? Mais je ne sais pas comment ecrire le code....
      Merci beaucoup
      0
  2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Re,

    Je ne comprends pas très bien ce que tu veux dire par 20 postes, si c'est vingt ordinateurs, il suffit de créer un fichier en complétant éventuellement le code dans le cas de feuilles supplémentaires et de copier ce fichier les ordis ou de copier ce code sur les fichiers contenus sur les autres ordis à condition que les critères soit identiques ou les adapter

    dans le code
    Sheets("Et").Select "Et" est le nom d'un onglet suffit de remplacer Et par le nom d'un de tes onglet et éventuellement à jour du code
    de même

    dans cette ligne
    Selection.AutoFilter Field:=10, Criteria1:="E"

    le "E" est le critère recherché colonne J il suffit de changer l'adresse de la colonne et ton critère de recherche idem pour le "F"

    si tu n'y arrive pas, soit tu donnes plus de détail sur la composition de ton fichier soit tu peux mettre ton fichier sans note confidentielles sur un post ou un message privé (clic sur mon pseudo)

    https://www.cjoint.com/
    0