Discussion :

[salykato13920]

Bonjour,

J'ai besoin de l'aide des spécialistes macros VBA pour Excel.

En pièce jointe mon fichier.

J'explique.
En feuil1 de ce fichier, l'exemple d'une extraction qui m'arrive chaque jour et que je dois traiter.
Apparaissent des données sur des lignes.
Dans certaines cellules se trouvent des données uniques (exemple en A2 - Identifiant avec 1 seul numéro) et dans certaines autres cellules des données multiples (exemple en B2, 3 noms différents).

Je cherche une macro qui pourrait me donner le résultat que je souhaite et que je montre sur la feuil2.
Que les données multiples soient divisées en plusieurs lignes et que les données uniques du coup apparaissent sur chaque lignes.

Le pbroblème a peut être déjà été évoqué et réglé sur le forum.
Je vous prie de me pardonner si je n'ai pas su faire une recherche par les bons mots clés.

En vous remerciant pour votre aide.

[Invité]

Bonjour,

Sans macro, un TCD ne ferait pas l'affaire ?

Pièce jointe 594353

[salykato13920]

Bonjour,

Merci de votre réponse.

Le problème, bien que le TCD soit efficace, c'est que je dois retransmettre un fichier excel type base de données exploité par ailleurs.
Et pas de TCD.

Merci.

[salykato13920]

Up !

Bonjour, je viens de trouver un code qui m'irait bien.
Le truc c'est qu'il marche sur la cellule dans laquelle je suis positionné.
Quelqu'un saurait l'adapter pour que chaque cellule d'une ligne soit testée puis toutes les lignes ?
Merci

Le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub copiecolle()
Dim a As Integer, b As Integer, colonne As Integer
Dim rang As Long
colonne = 1
With ActiveCell
    a = InStr(.Value, Chr(10))
    If a = 0 Then
        Sheets(2).Cells(1, 1) = .Value
        Exit Sub
    Else
        Sheets(2).Cells(1, 1) = Left(.Value, a - 1)
    End If
    a = 0
    Do
        a = InStr(a + 1, .Value, Chr(10))
        b = InStr(a + 1, .Value, Chr(10))
        If b = 0 Then b = Len(.Value) + 1
        colonne = colonne + 1
        Sheets(2).Cells(1, colonne) = Mid(.Value, a + 1, b - a - 1)
    Loop Until b = Len(.Value) + 1
End With
End Sub