Autres Regrouper des colonnes en une seule

[Toubabou]

Bonjours à tous,

Je voudrais que la colonne B soit recopiée automatiquement à partir de B5 vers H5, ainsi que la colonne D et F.

J’ai bien vu des essais sur le site mais je n’arrive à les adapter à mon fichier

Pourriez vous m’aider ?

Merci beaucoup

 

[Staple1600]

Bonjour @Toubabou

Avec Office 365, cette formule fait le job
=DANSCOL(B4:G53;3;VRAI)

NB: Quelle est ta version d'Excel ?

 

[Toubabou]

Bonjour,
Je suis en 2021

 

[Staple1600]

Re

Est-ce que tu as essayé la formule ?

 

[Toubabou]

oui désolé ne fonctionne pas

 

[Phil69970]

Bonjour @Toubabou et Staple

Je te propose ce fichier

Merci de ton retour

@Phil69970

 

[Toubabou]

Tip top, juste que cela prends en compte la ligne ou se trouve les XXX, YYY et ZZZ
MAis sinon tiptop

peut on rendre la macro automatique?

 

[Phil69970]

Re

peut on rendre la macro automatique?

Cliquer sur le bouton ne semble pas trop compliqué il me semble.
Pour moi les xxx yyy et zzz font parti des noms sinon tu les supprimes.
Sinon quand le mettre à jour mais cela me parait pas indispensable.

@Phil69970

 

[Staple1600]

Re, Bonjour Phil69970

oui désolé ne fonctionne pas

Ce n'est pas que cela ne fonctionne pas, c'est simplement que cette formule n'est pas disponible dans Excel 2021

Voila le résultat de cette formule dans 365
NB: La colonne résultat ne doit pas être fusionnée

EDITION: Bonjour mapomme

 

[mapomme]

Bonjour à tous,

Avec une formule en H4 à recopier vers le bas jusqu'à obtenir des cellules vides.

=SI(LIGNES($1:1)<=NBVAL(B$4:B$999);INDEX(B$4:B$999;LIGNES($1:1));SI(LIGNES($1:1)<=NBVAL(B$4:B$999)+NBVAL(D$4:D$999);INDEX(D$4:D$999;LIGNES($1:1)-NBVAL(B$4:B$999));SI(LIGNES($1:1)<=NBVAL(B$4:B$999)+NBVAL(D$4:D$999)+NBVAL(F$4:F$999);INDEX(F$4:F$999;LIGNES($1:1)-NBVAL(B$4:B$999)-NBVAL(D$4:D$999));"")))

 

[mapomme]

Re,

Le demandeur ayant entre temps modifié sa demande (ne pas prendre la ligne 4), voici la v2 qui exclut la ligne 4 (il suffisait dans la formule en H4 de remplacer $4 par $5) puis de recopier la formule vers le bas).

=SI(LIGNES($1:1)<=NBVAL(B$5:B$999);INDEX(B$5:B$999;LIGNES($1:1));SI(LIGNES($1:1)<=NBVAL(B$5:B$999)+NBVAL(D$5:D$999);INDEX(D$5:D$999;LIGNES($1:1)-NBVAL(B$5:B$999));SI(LIGNES($1:1)<=NBVAL(B$5:B$999)+NBVAL(D$5:D$999)+NBVAL(F$5:F$999);INDEX(F$5:F$999;LIGNES($1:1)-NBVAL(B$5:B$999)-NBVAL(D$5:D$999));"")))