XL 2016 Lister les titres d'un tableau en fonction des paramètres

chris

XLDnaute Barbatruc

• 13 Mai 2022

• #2

Bonjour

Faisable par Powerquery intégré à Excel


Actualiser par Données, Actualiser tout quant la source évolue

 

Pièces jointes

• TransposerTitres_PQ.xlsx

  19.6 KB · Affichages: 3

Vote positif 0 Vote négatif

B

bnolwalid

XLDnaute Junior

• 13 Mai 2022

• #3

Bonjour Chris,
Merci de ton retour rapide.
Pourriez-vous me dire ce que vous avez utilisé comme technique car quand je remplace par les vraies données, ça ne fonctionne pas.


Crdlmt

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 13 Mai 2022

• #4

RE

PowerQuery se base sur les titres des colonnes comme le montre l'image que j'ai jointe, donc si tes titres ne sont pas les mêmes cela ne peut fonctionner.

Ce pourquoi on demande de joindre un fichier représentatif ou à minima une copie d'écran...

 

Vote positif 0 Vote négatif

B

bnolwalid

XLDnaute Junior

• 13 Mai 2022

• #5

Re Hello,
Malheureusement, mes titres et paramètres changent d'une tout le temps c'est pour celà que je voulais rester sur un exemple générique.
du coup une solution par macro ou par formule?
merci encore une fois de ton aide

Crdlmt

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Mai 2022

• #6

Bonjour bnolwalid, chris,

Pour ceux qui préfèrent le VBA voyez le fichier joint et cette macro dans le code de la feuille "Résultat" :

VB:

Private Sub Worksheet_Activate()
Dim tablo, ncol%, colmax%, i&, col%, j%
tablo = Sheets("BDD").[A1].CurrentRegion 'matrice, plus rapide
If Not IsArray(tablo) Then tablo = [A1:B1] 'sécurité si la feuille est vide
ncol = UBound(tablo, 2)
colmax = 1
For i = 2 To UBound(tablo)
    col = 1
    For j = 1 To ncol
        If tablo(i, j) = 1 Then 'on s'appuie sur le chiffre 1
            col = col + 1
            tablo(i, col) = tablo(1, j)
            If col > colmax Then colmax = col
        End If
    Next j
    For j = col + 1 To ncol
        tablo(i, j) = "" 'RAZ à droite
Next j, i
For j = 2 To colmax: tablo(1, j) = j - 1: Next j
'---restitution---
Application.ScreenUpdating = False
If FilterMode Then ShowAllData 'si la feuille est filtrée
UsedRange.EntireColumn.Delete 'RAZ
With [A1] '1ère cellule de restitution
    .Resize(i - 1, colmax) = tablo
    .CurrentRegion.Borders.Weight = xlThin 'bordures
End With
End Sub

Elle se déclenche quand on active la feuille.

Elle est très rapide car elle utilise un tableau VBA.

Edit : par sécurité j'ai ajouté If Not IsArray(tablo) Then tablo = [A1:B1]

A+

 

Pièces jointes

• TransposerTitres(1).xlsm

  24.1 KB · Affichages: 1

Dernière édition: 13 Mai 2022

Vote positif 0 Vote négatif

B

bnolwalid

XLDnaute Junior

• 13 Mai 2022

• #7

Bonjour Job75,
ça fonctionne comme attendu.
Super!
merci messieurs pour votre aide
bon vendredi

Crdlmt

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Mai 2022

• #8

Par sécurité sur la macro précédente j'ai ajouté la ligne :

VB:

If Not IsArray(tablo) Then tablo = [A1:B1] 'sécurité si la feuille est vide

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 13 Mai 2022

• #9

RE à tous

bnolwalid à dit:

Malheureusement, mes titres et paramètres changent d'une tout le temps c'est pour celà que je voulais rester sur un exemple générique.

Cliquez pour agrandir...

Y a t'il un seul tableau dans le classeur ?
Si oui et est-il ou peut-il être mis sous forme de tableau structuré ?
Si oui PowerQuery reste possible

 

Vote positif 0 Vote négatif

B

bnolwalid

XLDnaute Junior

• 13 Mai 2022

• #10

chris à dit:

RE à tous

Y a t'il un seul tableau dans le classeur ?
Si oui et est-il ou peut-il être mis sous forme de tableau structuré ?
Si oui PowerQuery reste possible

Cliquez pour agrandir...

Bonjour Chris,
oui il y a un seul tableau.
non il n'est pas mis sous structure tableau mais je peux le faire.
Ok merci pour la technique PowerQuery je ne connaissais pas.

Bonne journée

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 13 Mai 2022

• #11

RE

Dans ce cas ceci traite toute les lignes et colonnes quelque soit le nom du tableau

 

Pièces jointes

• TransposerTitres2_PQ.xlsx

  20.4 KB · Affichages: 4

Vote positif 0 Vote négatif