Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Transposition d'information sur une ligne

Transposition d'information sur une ligne

2 réponses
Avatar
Pacha
Bonjour,

Je dois ajouter une s=E9rie d'information dans une m=EAme cellule (pour
un article, avoir les couleur ensemble) =E0 partir d'un tableau
similaire =E0 celui-ci.

Article Couleur Total
789 rouge 1
895 rouge 1
1268 rouge 1
12345 bleu 1
12345 jaune 1
12345 rouge 1
12345 violet 1
889987 bleu 1
889987 rouge 1
889987 violet 1
1234567 bleu 1
Total 11

J'aimerais obtenir l'information (couleur disponible) comme suit dans
la m=EAme cellule, et par la suite pouvoir faire un Vlookup avec mon
autre fichier
(ma cl=E9 sera le no d'article)

Article Prix Couleur disponible
789 2.29 rouge
895 1.99 rouge
1268 2.25 rouge
12345 3.35 bleu, jaune, rouge, violet
889987 3.50 bleu, rouge, violet
1234567 2.30 bleu
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
JB
Bonjour,

http://cjoint.com/?fmgC0Eo7DP

Sub Concatene()
Range([A2], [B65000].End(xlUp)).Sort Key1:=[A2] 'tri
[A2].Select
listeArticle = 2
Do While ActiveCell <> ""
article = ActiveCell
couleur = ""
Do While ActiveCell = article
couleur = couleur & ActiveCell.Offset(0, 1) & ","
ActiveCell.Offset(1, 0).Select
Loop
Cells(listeArticle, 5) = article
Cells(listeArticle, 6) = Left(couleur, Len(couleur) - 1)
listeArticle = listeArticle + 1
Loop
End Sub

Cordialement JB
Avatar
Pacha
Merci JB,

Cette macro complète très bien celle de JLuc. Je suis très
impressionée du talent des personnes de ce groupe.
Merci pour l'aide....