Conversion de CSV en lignes et non en colonnes

J'ai un fichier avec des références uniques dans la colonne A (par exemple, des noms de sociétés) et une ou plusieurs valeurs renvoyées liées à cette valeur unique dans la colonne B (par exemple, des comptes). Celles-ci sont séparées par des virgules, certaines sociétés n’ont qu’un seul compte, d’autres en ont plusieurs. En utilisant "texte en colonnes", j'obtiens ensuite tous les numéros de compte dans des colonnes séparées situées sur la même ligne que le nom de la société.

Ce que je voudrais plutôt faire, c’est d’obtenir chaque numéro de compte sur une nouvelle ligne, chacun avec le nom de la société correspondante; j’ai alors une feuille de 2 colonnes de largeur pouvant être consultée au niveau du compte individuel tout en renvoyant à la bonne entreprise. Est-ce possible?

Vous pouvez utiliser des formules Excel pour délimiter "manuellement" vos données. Si vous utilisez cette formule, la première occurrence d'une virgule sera trouvée, puis ajustée à cette occurrence:

=IF(A1="","",IFERROR(MID(A1,1,FIND(",",A1)-1),A1))

Sous la cellule où se trouvent nos données initiales (dans notre cas, A1 correspond à nos données initiales), nous devons indexer les données pour ne pas inclure ce que nous venons de supprimer:

=MID(A1,LEN(B1)+2,LEN(A1))

Voici tout cela fonctionne ensemble:

@Jonnie, si vous utilisiez TextToColumns pour répartir les numéros de compte sur différentes colonnes. Ensuite, allez dans le menu 'Écran' et cliquez sur l'icône au dessus de Macro à droite. Entrez un nom pour la macro et cliquez sur 'créer'. Ensuite, collez le code ci-dessous entre les deux lignes avec sub. Fermez la fenêtre VBA pour revenir à vos données. Cliquez n'importe où dans les données. Cliquez à nouveau sur l'icône de la macro, choisissez votre macroname et cliquez sur Exécuter.

Dim data As Range
Dim i As Integer
Dim j As Integer

Set data = ActiveCell.CurrentRegion 'Selecting the active region

For i = data.Rows.Count To 1 Step -1 'for all row (start at bottom)
    For j = 3 To data.Columns.Count 'for all columns (start at third column)
        If Not IsEmpty(data(i, j)) Then 'if there is a value
            data.Rows(i + 1).Insert 'insert a new row below
            data(i + 1, 1) = data(i, 1) 'copy the company
            data(i + 1, 2) = data(i, j) 'copy the account number
            data(i, j).Clear 'delete the original value
        End If
    Next j
Next i

Cela devrait donner une liste de

company A; accno 1
company A; accno 2
company B; accno 3
company C; accno 4