Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FFO
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
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.
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.