concatener des cellules

Le
morgane
Bonjour,

j'ai un fichier avec cette structure

Colonne A Colonne B

Num client txt

txt

Num client txt

txt

txt

Je voudrais rassembler tous les commentaires sur la ligne du client et
supprimer les lignes devenues inutiles.

merci pour l'aide que vous voudrez bien m'apporter.

Morgane
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #4481791
Salut morgane
Ta demande n'est pas trés claire
Ce que je crois avoir compris :
Colonne A les numéros clients
colonne B les commentaires clients
Pour un même numéro client plusieurs commentaires sur des lignes différentes
à rassemblés sur une seule ligne
Solution Macro
Tous les commentaires rassemblés sur une même ligne mais dans cellules
différentes :
Sheets("Onglet").Select
For Each c In Worksheets("Onglet").Range([A1], [A65535].End(xlUp))
If c.Address <> Range("A65535").End(xlUp).Address Then
c.Offset(0, 2).Select
For Each d In Worksheets("Onglet").Range(c.Offset(1, 0), [A65535].End(xlUp))
If d = c Then
ActiveCell = d.Offset(0, 1)
ActiveCell.Offset(0, 1).Select
d.EntireRow.Clear
End If
Next
End If
Next
Tous les commentaires rassemblés sur une même ligne dans 1 seule cellule:
Sheets("Onglet").Select
Commentaire = ""
For Each c In Worksheets("Onglet").Range([A1], [A65535].End(xlUp))
If c.Address <> Range("A65535").End(xlUp).Address Then
c.Offset(0, 1).Select
For Each d In Worksheets("Onglet").Range(c.Offset(1, 0), [A65535].End(xlUp))
If d <> "" And d = c Then
Commentaire = Commentaire & "-" & d.Offset(0, 1)
d.EntireRow.Clear
End If
Next
ActiveCell = ActiveCell & Commentaire
End If
Commentaire = ""
Next


Estc ce bien celà ???
Dis moi !!!



Bonjour,

j'ai un fichier avec cette structure

Colonne A Colonne B

Num client txt

txt

Num client txt

txt

txt

Je voudrais rassembler tous les commentaires sur la ligne du client et
supprimer les lignes devenues inutiles.

merci pour l'aide que vous voudrez bien m'apporter.

Morgane




Publicité
Poster une réponse
Anonyme