Discussion :

[qizRR]

Bonjour à tous, je vous explique mon problème.
J'aimerais que lorsque j'ajoute une ligne à ma BD, cela me modifie mon tableau.

J'ai un tableau de cette forme qui va me servir de source de données :



Et j'aimerais que cela s'affiche dans un tableau de ce type :



Pensez-vous que c'est faisable avec du VBA ?
Car j'ai des doutes...

[BENNASR]

Bonjour
Quelles sont tes attentes par rapport à sélection totale du tableau puis copie et collage spécial / valeur transposé ??
si non voir avec avec powerquery

[78chris]

Bonjour
De même que les lignes vides sont à proscrire dans un tableau structuré, les cellules fusionnées sont sources de problème et PowerQuery ne restituera jamais sous forme de cellules fusionnées.

A part tout coder par VBA... mais c'est assez usine à gaz...

[ARTURO83]

Bonjour,

Proposition:

Cliquez sur le bouton "Remplissage tableau" de la feuille "Restit"

qizRR_Remplissage tableau en fonction d'une BD.xlsm

Cdlt

[qizRR]

Bonjour,

Proposition:

Cliquez sur le bouton "Remplissage tableau" de la feuille "Restit"

qizRR_Remplissage tableau en fonction d'une BD.xlsm

Cdlt

Hello,

Merci beaucoup c'est exactement ce que je voulais.
Sais-tu comment je pourrais fusionner les cellules du haut ou les prénoms sont les mêmes ? Pour éviter la répétition et que cela fasse plus visuel..

Encore merci !
Bon après-midi.

[qizRR]

Hello,

Merci beaucoup c'est exactement ce que je voulais.
Sais-tu comment je pourrais fusionner les cellules du haut ou les prénoms sont les mêmes ? Pour éviter la répétition et que cela fasse plus visuel..

Encore merci !
Bon après-midi.

En utilisant ce code, je m'approche du résultat voulu mais la fusion des cellules va jusqu'à la dernière ligne de mon tableau et ne reste pas uniquement sur ma deuxième ligne :

Application.DisplayAlerts = False
i = 2
Do While Cells(2, i) <> ""
m = i
Do While Cells(2, i) = Cells(2, m)
i = i + 1
Loop
Cells(2, m).Resize(2, i - m).MergeCells = True
Loop