XL 2019 Cellule répartie en 4

sylvanu à dit:

Fonction perso :
La syntaxe est =Separe(Chaine,N°) , par ex :
=separe($B7;2) va prendre la chaine B7 et en extraire l'item N°2 soit "J1202 - Pharmacie"
Le code est :

VB:

Function Separe(C$, N%)
    Tablo = Split(C, Chr(10))
    If N <= 1 + UBound(Tablo) Then
        Separe = Tablo(N - 1)
    End If
    If Separe = 0 Then Separe = ""
End Function

On récupère la chaine à traiter C$, les sauts de ligne dans les cellules est le caractère ASCII 10.
Donc on sépare cette chaine avec le Split. Par ex pour B11 on obtient le tableau suivant :
Regarde la pièce jointe 1155133
ensuite il suffit de lire l'item demandé, et de le remonter avec : Separe = Tablo(N - 1)
Si le Tablo ne contenait rien alors il remonte 0, d'où la ligne If Separe = 0 Then Separe = "" .
( pour les fonctions perso, un petit tuto si ça vous interesse : LIEN

Macro : ( d'ailleurs en commentant, j'ai vu qu'il restait un résidu inutile, d'où cette nouvelle PJ )

Code:

Sub Découpe()
    Dim DL%, C%, L%, Tablo
    Application.ScreenUpdating = False                  ' Fige l'écran
    DL = Range("B65500").End(xlUp).Row                  ' Recherche de la dernière ligne utilisée
    For L = 7 To DL                                     ' De la ligne 7 à la fin
        Tablo = Split(Cells(L, 2), Chr(10))             ' On sépare la chaine avec les reours à la ligne
        For C = 0 To UBound(Tablo)                      ' Pour tous les éléments du tableau ( Ubound donne la taille )
            Cells(L, C + 3) = Tablo(C)                  ' On écrit l'item désiré
        Next C
    Next L
    [A1].Select                                         ' On sélectionne A1, par pure esthètique.
End Sub

Cliquez pour agrandir...

sylvanu à dit:

A votre avis, pourquoi nous avons tous proposé du VBA ?
Car en formules c'est ch...t. 😡
En PJ un essai avec :

VB:

Item 1:
=SI(B7="";"";SIERREUR(STXT($B7;1;CHERCHE(CAR(10);$B7));$B7))
Item 2:
=SIERREUR(SI(CHERCHE(CAR(10);STXT(B7;NBCAR(C7);1000))>1;SIERREUR(STXT(STXT(STXT(B7;NBCAR(C7);1000);1+CHERCHE(CAR(10);STXT(B7;NBCAR(C7);1000));1000);1;CHERCHE(CAR(10);STXT(STXT(B7;NBCAR(C7);1000);1+CHERCHE(CAR(10);STXT(B7;NBCAR(C7);1000));1000)));"");SIERREUR(STXT(STXT(B7;1+NBCAR(C7);1000);1;CHERCHE(CAR(10);STXT(B7;1+NBCAR(C7);1000)));STXT(STXT(B7;1+NBCAR(C7);1000);1;1000)));"")
Item 3:
=SIERREUR(STXT(STXT(B7;1+NBCAR(C7)+NBCAR(D7);1000);1;CHERCHE(CAR(10);STXT(B7;1+NBCAR(C7)+NBCAR(D7);1000)));STXT(STXT(B7;1+NBCAR(C7)+NBCAR(D7);1000);1;1000))
Item 4:
=SIERREUR(STXT(STXT(B7;1+NBCAR(C7)+NBCAR(D7);1000);CHERCHE(CAR(10);STXT(B7;1+NBCAR(C7)+NBCAR(D7);1000));1000);"")

Evidemment indigeste, ingérable, et surtout non maintenable.

Je n'assure pas la maintenance de ça ! 😂

NB: je ne connais pas LAMBDA, je suis toujours sous XL2007. 🙂

Cliquez pour agrandir...

• Une formule pour l'élément extrait n° 1 (colonne C) en C7 à recopier vers le bas
• Une autre formule pour les autres éléments extraits n° 2 à 4 (ou plus le cas échéant), en D7, à recopier vers le bas et vers la droite

=GAUCHE(B7;CHERCHE(CAR(10);B7 & CAR(10))-1)

=SIERREUR(GAUCHE(STXT($B7&CAR(10);CHERCHE("|";SUBSTITUE($B7&CAR(10);CAR(10);"|";COLONNES($A:A)))+1;999);CHERCHE(CAR(10);STXT($B7&CAR(10);CHERCHE("|";SUBSTITUE($B7&CAR(10);CAR(10);"|";COLONNES($A:A)))+1;999);1));"")

mapomme à dit:

Bonsoir à tous,

Une version par formules.

• Une formule pour l'élément extrait n° 1 (colonne C) en C7 à recopier vers le bas
• Une autre formule pour les autres éléments extraits n° 2 à 4 (ou plus le cas échéant), en D7, à recopier vers le bas et vers la droite

La formule en C7 à recopier vers le bas:

VB:

=GAUCHE(B7;CHERCHE(CAR(10);B7 & CAR(10))-1)

La formule en D7 à recopier vers le bas et vers la droite :

VB:

=SIERREUR(GAUCHE(STXT($B7&CAR(10);CHERCHE("|";SUBSTITUE($B7&CAR(10);CAR(10);"|";COLONNES($A:A)))+1;999);CHERCHE(CAR(10);STXT($B7&CAR(10);CHERCHE("|";SUBSTITUE($B7&CAR(10);CAR(10);"|";COLONNES($A:A)))+1;999);1));"")

Voir classeur joint.

Et comme ne disait pas @sylvanu, j'assure la maintenance de ça !😜😂

Cliquez pour agrandir...

mapomme à dit:

Bonsoir à tous,

Une version par formules.

• Une formule pour l'élément extrait n° 1 (colonne C) en C7 à recopier vers le bas
• Une autre formule pour les autres éléments extraits n° 2 à 4 (ou plus le cas échéant), en D7, à recopier vers le bas et vers la droite

La formule en C7 à recopier vers le bas:

VB:

=GAUCHE(B7;CHERCHE(CAR(10);B7 & CAR(10))-1)

La formule en D7 à recopier vers le bas et vers la droite :

VB:

=SIERREUR(GAUCHE(STXT($B7&CAR(10);CHERCHE("|";SUBSTITUE($B7&CAR(10);CAR(10);"|";COLONNES($A:A)))+1;999);CHERCHE(CAR(10);STXT($B7&CAR(10);CHERCHE("|";SUBSTITUE($B7&CAR(10);CAR(10);"|";COLONNES($A:A)))+1;999);1));"")

Voir classeur joint.

Et comme ne disait pas @sylvanu, j'assure la maintenance de ça !😜😂

Cliquez pour agrandir...

mapomme à dit:

Re,

Une version avec une seule formule.
La formule en C7 est à recopier vers la droite et vers le bas :

VB:

=SIERREUR(GAUCHE(STXT(CAR(10)&$B7&CAR(10);CHERCHE("|";SUBSTITUE(CAR(10)&$B7&CAR(10);CAR(10);"|";COLONNES($A:A)))+1;999);CHERCHE(CAR(10);STXT(CAR(10)&$B7&CAR(10);CHERCHE("|";SUBSTITUE(CAR(10)&$B7&CAR(10);CAR(10);"|";COLONNES($A:A)))+1;999);1));"")

Cliquez pour agrandir...