XL 2013 Tableau excel

[rima21]

Bonjour la communauté,
mon problème est un bête, je veux convertir ce tableau à cette forme,avez vous des solutions?

 

[sylvanu]

Bonjour Zineb,
Un essai en PJ avec :

=SIERREUR(INDEX($B$2:$B$8;PETITE.VALEUR(SI($A$2:$A$8=$D5;LIGNE(INDIRECT("1:"&LIGNES($A$2:$A$8))));COLONNE()-4));"")

A valider avec Ctrl+Maj+Entrée

 

[chris]

Bonjour à tous

Une solution POwerQuery (intégré à Excel 2016 et +, en add on sur 2010 et 2013)

Actualiser par Données, Actualiser Tout

 

[rima21]

Bonjour Zineb,
Un essai en PJ avec :

=SIERREUR(INDEX($B$2:$B$8;PETITE.VALEUR(SI($A$2:$A$8=$D5;LIGNE(INDIRECT("1:"&LIGNES($A$2:$A$8))));COLONNE()-4));"")

A valider avec Ctrl+Maj+Entrée

j'ai essayé mais ça n'a pas marché avec moi, Si vous pouvez faire un coup d'oeil svp

 

[sylvanu]

Si vous pouvez faire un coup d'oeil

Un coup d'oeil à quoi ?
Vous auriez un fichier test ?

 

[rima21]

Un coup d'oeil à quoi ?
Vous auriez un fichier test ?

Je n'arrive pas à le téléverser malgré l'avoir converti, Il est très volumineux

 

[sylvanu]

Juste un fichier test, vous le simplifier. Vous pouvez supprimer des lignes.
Sinon passez par https://www.cjoint.com/

 

[rima21]

ZINEB.xlsx

Le service des pièces jointes, CJoint.com est un service de partage de fichier gratuit pour partager vos documents dans vos courriels, sur les forums ou dans vos petites annonces.

www.cjoint.com

 

[sylvanu]

Désolé, avec autant de données les formules matricielles sont extrêmement lourdes.
Pour seulement 1300 lignes ça met plus de trois minutes.
Deux solutions pragmatiques :
1- Peut on passer par du VBA ?
2- Passer par POwerQuery comme préconisé par Chris.

En PJ le fichier avec seulement 1300 lignes de recherche. Bon courage pour l'ouvrir.

 

[job75]

Bonsoir ZINEB91, sylvanu, chris,

Oui pour aller vite il faut PowerQuery ou une macro VBA, voyez le fichier joint avec celle-ci :

Sub Ventiler()
Dim d As Object, tablo, resu(), n&, i&, x$, lig&, dest As Range
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
With Sheets("Feuil1") 'à adapter
    tablo = .[A1].CurrentRegion.Resize(, 2) 'matrice, plus rapide
    ReDim resu(1 To UBound(tablo), 1 To 2)
    resu(1, 1) = "Code": resu(1, 2) = "Contact 1" 'titres
    n = 1
    For i = 2 To UBound(tablo)
        x = tablo(i, 1)
        If d.exists(x) Then
            lig = d(x)
            resu(lig, 2) = resu(lig, 2) & Chr(1) & tablo(i, 2) 'concaténation
        Else
            n = n + 1
            d(x) = n 'mémorise le n° de ligne
            resu(n, 1) = x
            resu(n, 2) = tablo(i, 2)
        End If
    Next
    '---restitution---
    Application.ScreenUpdating = False
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    Set dest = .[D1] '1ère cellule de destination, à adapter
    dest.EntireColumn.Resize(, .Columns.Count - dest.Column + 1).ClearContents 'RAZ
    dest(1, 3).Resize(, .Columns.Count - dest.Column - 1).Delete xlToLeft 'supprime les titres
    dest.Resize(n, 2) = resu
    dest(1, 2).Resize(n).TextToColumns dest(1, 2), xlDelimited, Other:=True, OtherChar:=Chr(1) 'commande Convertir
    i = dest.CurrentRegion.Columns.Count
    If i > 2 Then dest(1, 2).AutoFill dest(1, 2).Resize(, i - 1)
    With .UsedRange: End With 'actualise la barre de défilement horizontale
End With
End Sub

Il n'était pas nécessaire d'utiliser cjoint, le fichier n'est pas très gros.

A+

A+

 

[chris]

Re à tous

Il y a boire et à manger dans la colonne contact...

J'ai modifié la requête pour traiter en texte.

Edit : et adapté pour plus de 3 contacts

 

[job75]

Il y a boire et à manger dans la colonne contact...

Que veux tu dire ? Il n'y a pas de ligne en doublon dans le tableau source.

Tout ce que je vois c'est qu'il y a 15698 contacts en colonne B et que tu en crées seulement 15445 en E:G.

A+

 

[chris]

RE job75

Il y a par exemple

0668284124²

0655591080COMMERCIA

0522579568/FAX0522571062 MrSOUFIANE

Tu as raison : j'avais testé 2 requêtes et pas opté pour la meilleure : il y a jusqu'à 8 contacts par Code...

Je remets le bon fichier dans le fil précédent

 

[rima21]

Merci beaucoup pour vos réponses