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

max.lander · 16 Janvier 2017

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 · 16 Janvier 2017

Bonsour®

max.lander à dit:
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 · 16 Janvier 2017

Bonjour max.lander, Modeste geedee,

Affecter à la barre de défilement la macro :

Code:

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

A+

max.lander · 18 Janvier 2017

Bonjour à tous,

Merci Modeste Geedee, Job75 vos solutions fonctionnent à merveille !

A bientôt,

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

max.lander

XLDnaute Occasionnel

Pièces jointes

Modeste geedee

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

max.lander

XLDnaute Occasionnel

Discussions similaires