XL 2019 Cellule répartie en 4

[EliotNaiss]

Bonjour à vous.
Je viens chercher de l'aide car je ne m'en sors pas

Dans une cellule j'ai des informations issues d'extraction.
C'est du genre, au maxi sur 4 lignes, a priori avec des retours lignes

:

"Non renseigné
F1602 - Électricité bâtiment
N4101 - Conduite de transport de marchandises sur longue distance
N4105 - Conduite et livraison par tournées sur courte distance"

ou

"G1602 - Personnel de cuisine
F1602 - Électricité bâtiment
N4101 - Conduite de transport de marchandises sur longue distance
N4105 - Conduite et livraison par tournées sur courte distance"

Selon le contenu je veux répartir la donnée en 4 cellules...

Ce qui pourrait donner avec 1 ligne renseignée :

Nonrenseigné

ou

G1602 - Personnel de cuisine

Ce qui pourrait donner avec 2 lignes renseignées :

Nonrenseigné

F1602 - Électricité bâtiment

ou

G1602 - Personnel de cuisine

F1602 - Électricité bâtiment

Ce qui pourrait donner avec 3 lignes renseignées :

Nonrenseigné

F1602 - Électricité bâtiment

N4101 - Conduite de transport de marchandises sur longue distance

ou

G1602 - Personnel de cuisine

F1602 - Électricité bâtiment

N4101 - Conduite de transport de marchandises sur longue distance

Ce qui pourrait donner avec 4 lignes renseignées :

Nonrenseigné

F1602 - Électricité bâtiment

N4101 - Conduite de transport de marchandises sur longue distance

N4105 - Conduite et livraison par tournées sur courte distance

ou

G1602 - Personnel de cuisine

F1602 - Électricité bâtiment

N4101 - Conduite de transport de marchandises sur longue distance

N4105 - Conduite et livraison par tournées sur courte distance

Mon tableau d'origine est assez grand, je cherche la formule idéale, et peut-être serait-il possible d'en faire une fonction ?

Grand merci pour le temps que vous pourrez passer sur mon cas

Bien à vous

 

[djidji59430]

C'est du genre, au maxi sur 4 lignes, a priori avec des retours lignes

:

Bonjour à tous,

Joindre un fichier test avec 2-3 cellules "a priori" representatives

Crdlmt

 

[EliotNaiss]

Ok je prépare ceci, merci

 

[EliotNaiss]

Voici un échantillon.
Merci par avance

 

[djidji59430]

Bonjour à tous,

En utilisant données==>obtenir des données

 

[EliotNaiss]

Bonjour à tous,

En utilisant données==>obtenir des données

Merci pour ce retour rapide, mais ... ce n'est pas ce que je veux faire .
En fait il ne doit pas y avoir d'intervention manuelle sur ce tableau, il me faut des formules (ou fonction "perso") afin de mettre à jour automatiquement ces 4 cellules.

 

[sylvanu]

Bonjour tout le monde,
Un peu à labour, mais comme c'est fait je livre.

 

[sylvanu]

il me faut des formules (ou fonction "perso") afin de mettre à jour automatiquement ces 4 cellules.

Alors une version avec fonction perso :

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

Syntaxe : =Separe(Chaine;Niveau)
Mais à mon avis moins intéressante, vous serez obligé de propager les formules sur la longeur du tableau.

 

[EliotNaiss]

Bonjour tout le monde,
Un peu à labour, mais comme c'est fait je livre.

Alors là, même à la bourre (même pas vrai), c'est une super manière de faire !
J'apprécie le process et essayerai de m'en inspirer mais comme j'ai répondu à Djidji59430, mon tableau est déjà tracé avec les 4 colonnes, et la colonne "BASE"ne doit pas être écrasée.

 

[EliotNaiss]

Alors une version avec fonction perso :

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

Syntaxe : =Separe(Chaine;Niveau)
Mais à mon avis moins intéressante, vous serez obligé de propager les formules sur la longeur du tableau.

Merci, je consulte, et reviens

 

[sylvanu]

mon tableau est déjà tracé avec les 4 colonnes, et la colonne "BASE"ne doit pas être écrasée.

Alors une version bouton sans écrasé base et avec colonnes déjà tracées.

 

[EliotNaiss]

Merci, je consulte, et reviens

Merci Sylvanu
C'est exactement pile poil ce que je cherchais !!
Serait-il possible de documenter la démarche, je ne pige pas trop
Merci.

 

[sylvanu]

Laquelle, bouton ou fonction perso ? Quelle PJ ?

 

[EliotNaiss]

Laquelle, bouton ou fonction perso ? Quelle PJ ?

Fonction perso et pourquoi pas la dernière "bouton sans écraser"

 

[sylvanu]

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 :

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 :

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 )

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