XL 2013 SPLIT CELLULE/AVEC FORMULE (VBA OU AUTRE)

[max.lander]

Bonjour à tous,

Je récupéré dans des cellules des valeurs par formules.
Je souhaite en modifier l'affichage, en effet je souhaite passer à la ligne après le sigle "/"

L'affichage actuelle est: DEMONTAGE/RANGEMENT/EXPLOITATION/TRI

L'idéal serait d’obtenir un affichage par cellule avec un retour à la ligne chaque cellule, type :

DEMONTAGE
RANGEMENT
EXPLOITATION
TRI

Avec vous des idées pour résoudre mon problème ?

Un fichier exemple est en PJ

Merci,

 

[Modeste geedee]

Bonsour®

L'idéal serait d’obtenir un affichage par cellule avec un retour à la ligne chaque cellule,

=SIERREUR(SUBSTITUE(INDEX(BDD!$D$2:$D$19;SOMMEPROD(($A10=BDD!$A$2:$A$19)*(BDD!$B$2:$B$19=Visuel!$B10)*(Visuel!D$8<=BDD!$F$2:$F$19)*(BDD!$E$2:$E$19<=Visuel!D$8)*LIGNE(BDD!$G$2:$G$19))-1);"/";CAR(10));"")

Mais ... 🙄
il faut activer le renvoi à la ligne pour chaque cellule concernée

 

[job75]

Bonjour max.lander, Modeste geedee,

Affecter à la barre de défilement la macro :

Sub test()
Sheets("BDD").[D:D].Replace "/", vbLf
Cells.WrapText = True
Rows.AutoFit
End Sub

A+

 

[max.lander]

Bonjour à tous,

Merci Modeste Geedee, Job75 vos solutions fonctionnent à merveille !

A bientôt,