Discussion :

[Chocca]

Bonjour à tous,

Je voudrais faire une macro pour transférer automatiquement plusieurs colonnes en fonction d'un mot contenu dans le nom de la colonne.

J'ai un fichier avec plusieurs colonnes, et j'ai plusieurs colonnes avec dans le titre de la colonne le mot photo (photo1, photo2, photo_lib,...).
Je n'ai pas toujours le même nombre de colonnes et pas toujours dans le même ordre.

Je voudrais avoir une macro qui me permette de transférer toutes les colonnes qui contiennent le mot photo dans un deuxième onglet.

Merci d'avance pour votre aide.

Bonne journée,

SK

[78chris]

Bonjour

Si le nombre de colonne est variable, le filtre avancé est délicat.

Mais avec 2016, PowerQuery, intégré, fera cela très bien... sauf si le résultat doit être complété manuellement d'autres données

[Chocca]

Bonjour Chris,

Je n'ai jamais utilisé Power Query, pourriez-vous svp me donner plus de détails sur les étapes à faire ?

Merci par avance.

[78chris]

Bonjour

• Soit 1 soit 2
  
  1. mettre ta source sous forme de tableau, Nommer le tableau puis Données, A partir d'un tableau
     cela ouvre l'interface PowerQuery
     
     
  2. Créer une plage nommée par formule de la plage Source par formule de façon à ce qu'elle soit dynamique.
     Exemple Nom Source, Formule

     Code :

     Sélectionner tout - Visualiser dans une fenêtre à part

     =DECALER(Feuil1!$A$1;0;0;NBVAL(Feuil1!$A:$A);NBVAL(Feuil1!$1:$1))

     Ensuite : Données, Nouvelle requête, A partir d'autres sources, Requête vide : cela ouvre l'interface PowerQuery
     Dans la barre de formule taper
     

     Code :

     Sélectionner tout - Visualiser dans une fenêtre à part

     = Excel.CurrentWorkbook(){[Name="Source"]}[Content]

• Tes données sources vont apparaitre au centre
• A droite tu as 3 lignes d'actions : supprime Type Modifié et renomme En-têtes promus en PreviousStep
• Supprime une colonne (peu importe laquelle) et remplace le code de cette action dans la barre de formule par
  

  Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

  = Table.RemoveColumns(PreviousStep , List.Select(Table.ColumnNames(PreviousStep ), each Text.Contains(Text.Upper(_),"PHOTO")=false))

Sortir par Fermer et charger dans, Table : choisir l'emplacement du tableau

Il suffira d'utiliser Données, Actualiser Tout en cas d'évolution de la source pour mettre à jour la restitution

[Menhir]

Je voudrais avoir une macro qui me permette de transférer toutes les colonnes qui contiennent le mot photo dans un deuxième onglet.

Il y a plus simple : copier tout l'onglet et supprimer les colonnes qui ne contiennent pas "photo" dans le titre.
Pour ça, faire une boucle For To allant du dernier numéro de colonne jusqu'à 1 avec un Step -1.
Pour supprimer une colonne : Columns(x).Delete (x étant le numéro de la colonne ou une variable qui contient ce numéro.

[78chris]

RE

Il y a plus simple : copier tout l'onglet et supprimer les colonnes qui ne contiennent pas "photo" dans le titre.
Pour ça, faire une boucle For To allant du dernier numéro de colonne jusqu'à 1 avec un Step -1.
Pour supprimer une colonne : Columns(x).Delete (x étant le numéro de la colonne ou une variable qui contient ce numéro.

3 manips en PowerQuery c'est fait en 5mn et actualisable si nécessaire...