Discussion :

[tanjona78]

Bonjour à tous,

J'espère que je trouverai de l'aide parmi vous, en tous cas, voici mon problème. Ce dont j'aurais besoin c'est d'une macro en VBA qui puisse faire ce qui suit :

J'ai ça :

Colonne A
533.55.160.45
533.57.17E.45
533.57.17C.45
533.57.17H.45
533.55.163.45


Et je voudrais arriver à ça :

Colonne A
533.55.160.45
533.57.17E.45
533.57.17C.45
533.57.17H.45
533.55.163.45

Colonne B
533.57.17E.45|533.57.17C.45|533.57.17H.45|533.55.163.45
533.55.160.45|533.57.17C.45|533.57.17H.45|533.55.163.45
533.57.17E.45|533.55.160.45|533.57.17H.45|533.55.163.45
533.55.160.45|533.57.17E.45|533.57.17C.45|533.55.163.45
533.57.17H.45|533.57.17C.45|533.57.17E.45|533.55.160.45

Sachant que A2 est la concaténation de l'ensemble des codes de A1 avec des barres verticales en guise de séparateurs. Pour chaque liste de code on exclue le code de la colonne A correspondant.

L'automatisation de cette tâche est cruciale pour moi car je suis webmaster et ces codes sont enfait des références produit qui respectent la synthaxe suivante :
- 3 caractères pour la marque
- 2 caractères pour la catégorie
- 3 caractères pour le produit
- 2 caractères pour la famille de produit

Merci d'avance de votre aide.
Je me tiens à votre disposition pour tout renseignements sur jeanluc dot rakotovao at gmail dot com.

Bien cordialement.

Jean-Luc

[rjamin]

Bonjour,

Essayer avec ces formules tapées en B1, B2 etc.

Code :

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

1
2
3
4
5
=A2&"|"&CAR(10)&A3&"|"&CAR(10)&A4&"|"&CAR(10)&A5
=A1&"|"&CAR(10)&A3&"|"&CAR(10)&A4&"|"&CAR(10)&A5
=A1&"|"&CAR(10)&A2&"|"&CAR(10)&A4&"|"&CAR(10)&A5
=A1&"|"&CAR(10)&A2&"|"&CAR(10)&A3&"|"&CAR(10)&A5
=A1&"|"&CAR(10)&A2&"|"&CAR(10)&A3&"|"&CAR(10)&A4

Je sais que cela n'est pas vraiment ce que vous voulez mais peut-être que ça vous donnera des idées.

[tanjona78]

Merci à vous !

En effet ce n'est pas tout à fait ce que je cherchais mais ça m'a permis de simplifier mon problème.

Il faudrait que je puisse concaténer des cellules en les sélectionnant grâce à la souris, et là ... BINGO !!!!

Merci d'avance.

Cdt.

Jean-Luc

[mercatog]

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
Sub RefProduits()
Dim Tbl()
Dim Tmp As String
Dim LastLig As Long, i As Long, j As Long
 
With Sheets("Feuil2")   'à adapter
   LastLig = .Cells(Rows.Count, "A").End(xlUp).Row
   Tbl = Application.Transpose(.Range("A2:A" & LastLig))
   For i = 1 To LastLig - 1
      For j = 1 To LastLig - 1
         If j <> i Then Tmp = Tmp & "|" & Tbl(j)
      Next j
      .Range("B" & i + 1).Value = Mid(Tmp, 2)
      Tmp = ""
   Next i
End With

[tanjona78]

Merci,

J'essaie ça !

Cdt.

Jean-Luc