Excel : déconcatener et ordonner

Résolu
kitpost -  
 kitpost -
Bonjour,





J'ai une problèmatique assez complexe.

J'ai des clients qui choississent plusieurs attributs pour filtrer des produits dans des pages.
Je récupère les attributs choisis dans des fichiers excel séparés par des "$".
Ces attributs peuvent être plusieurs et comportent une valeur.

Ex :
A1 : Âge:6mois-1an$Couleur:vert
A2 : Taille:S
A3 : Couleur:Jaune$Taille:M

Je souhaiterai obtenir à la fin un tableau recap du genre avec en colonne les attributs et dans les lignes correspondantes la valeur de l'attribut
si colonne B = âge; colonne C = taille; colonne D = couleur

B1 = 6mois-1an et D1 = vert
C2 = S
D3 = jaune et C3 = M


J'ai déjà trouvé quelques bidouilles et réussi à obtenir le résultat voulu mais sur de petits volumes.
J'ai environ 30 attributs différents sélectionnables (soit 30 colonnes) pour 11 000 sélections différentes (soit 11 000 lignes).

Quelqu'un aurait-il une piste ?
Je précise que je me débrouille avec excel (mais visiblement pas assez) et que je ne connais pas grand chose au VBA.
A voir également:

5 réponses

Réponse 1 / 5
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Re,

J'avais mal placé la correction.
Ca devrait aller mieux avec ça : 
Function extraitAtt(cellule As Range, attribut As String)
    Dim p As Long
    p = InStr(UCase(cellule.Value), UCase(attribut) & ":")
    If p > 0 Then
        extraitAtt = Split(Mid(cellule, p + Len(attribut) + 1), "$")(0)
    Else
        extraitAtt = ""
    End If
End Function

eric
1
kitpost
 
Cette fois-ci, je n'arrive plus à trouver d'erreur !

Merci encore beaucoup, ton aide a été plus que précieuse.
0
Réponse 2 / 5
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Bonjour,

Une proposition avec une fonction personnalisée en vba : 
Function extraitAtt(cellule As Range, attribut As String) 
    Dim p As Long 
    p = InStr(UCase(cellule.Value), UCase(attribut)) 
    If p > 0 Then 
        extraitAtt = Split(Mid(cellule, p + Len(attribut) + 1), "$")(0) 
    Else 
        extraitAtt = "" 
    End If 
End Function

Ex syntaxe :
=extraitAtt($A2;"Taille")
ou
=extraitAtt($A2;B$1)
à recopier vers la droite et vers le bas

https://www.cjoint.com/?ALts4hZVGmZ

eric
0
Réponse 3 / 5
kitpost
 
Bonjour Eric,

Merci beaucoup pour cette réponse, beaucoup plus rapide et surtout beaucoup plus optimale que celle que j'espérais.

1 remarque cependant (ça ne serait pas drôle sinon) que je n'avais pas spécifiée au départ.
Dans mes attributs comme "Tailles" par exemple, il m'arrive d'avoir "Type" et "Type de sport" par exemple.
Avec ton programme, dans la colonne Type j'obtiens "de sport : Basket" et dans la colonne "Type de sport" j'obtiens "Basket". Je ne devrais obtenir que la deuxième partie.
Aurais-tu une solution pour cette spécificité ?
Je ne sais absolument pas si c'est complexe ou non dans le codage.

Si jamais c'était complexe à faire, tant pis, je te remercie déjà beaucoup pour ton aide, tu as réussi à débloquer un sujet plus que complexe pour moi.

Merci encore,
0
Réponse 4 / 5
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Bonjour,

Tu peux déposer un fichier exemple ou une ligne de donnée avec ce pb, je n'arrive pas à reproduire...

Ou bien essaie avec : 
Function extraitAtt(cellule As Range, attribut As String) 
    Dim p As Long 
    p = InStr(UCase(cellule.Value & ":"), UCase(attribut)) 
    If p > 0 Then 
        extraitAtt = Split(Mid(cellule, p + Len(attribut) + 1), "$")(0) 
    Else 
        extraitAtt = "" 
    End If 
End Function

eric
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
kitpost
 
Voici l'exemple : http://cjoint.com/?0Lumfwowujx

Je teste ta nouvelle solution de suite.

Merci
0
kitpost
 
Non, le rajout du & ":" ne corrige pas ce problème
0