Discussion :

[roro69]

Bonjour et merci de votre aide et du temps consacré
Voici mon souci dans 3 colonne excel j'ai des données rangés comme ceci:

ColA        ColB      ColC
4            188        193  
5            188        193  
6            187        193  
7            101        116  
7            186        193  
8              93       124  
8            185        193  
9            90          127  
9            184         193  
9            85           131  
10           184        192   
11          83          133  
11          183        192  
11          80         137 
12          184        192   
12         83          133  
12        183        192  
12         80         137
13           188        193  
13           188        193  
13          187        193  
13           101        116  
13           186        193  
13              93       124  
14           101        116 
........ect

J'aimerais transposé ces valeurs en fonction des valeurs répété en colonne A Comme ceci

ColA        ColB      ColC       ColD       ColE       ColF          ColG        ColH        ColI      ColJ       ColK
4            188        193  
5            188        193  
6            187        193  
7            101        116       186        193 
8              93       124        185        193
9            90          127        184       193        85            131
10           184        192   
11          83          133        183        192        80             37
12          184        192         83        133        183          192         80           137
13           188        193        188       193        187         193         101          106        93       124
14           101        116 
........ect

Merci de votre aide et du temps consacré

[eric4459]

Bonjour,
Essayes ceci:

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
23
24
25
26
27
28
29
30
Option Explicit
 
Sub test_Concatener()
Dim wkst1 As Worksheet
Dim wkst2 As Worksheet
Dim Base As Range
Dim Resultat As Range
Dim i As Integer
Dim j As Integer
Dim Nbligne1 As Integer
Set wkst1 = ThisWorkbook.Sheets("Feuil1")
Set wkst2 = ThisWorkbook.Sheets("Feuil2")
Set Base = wkst1.Range("A1")
Set Resultat = wkst2.Range("A1")
j = 0
With wkst1
Nbligne1 = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
 
For i = 0 To Nbligne1
Resultat.Offset(j, 0) = Base.Offset(i, 0)
Resultat.Offset(j, 1) = Resultat.Offset(j, 1) & " " & Base.Offset(i, 1) & " " & Base.Offset(i, 2)
 
If Base.Offset(i, 0) = Base.Offset(i + 1, 0) Then
j = j
Else
j = j + 1
End If
Next i
End Sub

Eric

[roro69]

Bonjour ;merci pour le temps consacré
C'est exactement ce que je voulais mais sans concatener les données; que dois je changer dans le code pour que les données ne soit pas concatener?

En tout cas un grand merci pour le code

[eric4459]

Bonjour,
J'ai modifié le code en ajoutant une boucle pour parvenir au résultat souhaité, il y a surement plus simple et peut-être existe-t-il une méthode plus orthodoxe, mais cela fonctionne

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub Regroupement()
Dim wkst1 As Worksheet
Dim wkst2 As Worksheet
Dim Base As Range
Dim Resultat As Range
Dim i As Integer
Dim j As Integer
Dim Nbligne1 As Integer
Dim Nbligne2 As Integer
Dim NbCar As Integer
Set wkst1 = ThisWorkbook.Sheets("Feuil1")
Set wkst2 = ThisWorkbook.Sheets("Feuil2")
Set Base = wkst1.Range("A1")
Set Resultat = wkst2.Range("A1")
j = 0
With wkst1
Nbligne1 = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
 
For i = 0 To Nbligne1
Resultat.Offset(j, 0) = Base.Offset(i, 0)
Resultat.Offset(j, 1) = Resultat.Offset(j, 1) & Base.Offset(i, 1) & Base.Offset(i, 2)
 
If Base.Offset(i, 0) = Base.Offset(i + 1, 0) Then
j = j
Else
j = j + 1
End If
Next i
 
With wkst2
Nbligne2 = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
 
For i = 0 To Nbligne2
NbCar = Len(Resultat.Offset(i, 1))
For j = 0 To NbCar - 1
Resultat.Offset(i, 3 + j) = Right(Left(Resultat.Offset(i, 1), 1 + j), 1)
Next j
Next i
End Sub

Eric

[Marc-L]

Bonjour,

Eric, dans ton premier code ne te manquait qu'une ligne TextToColumns (Convertir d'Excel) …



_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[eric4459]

Bonjour Marc,
Voici les différents résultats obtenus avec mon code

J'ai essayé d'inclure dans le code la fonction TextToColumns, après avoir utilisé l'enregistreur de Macros, mais ne suis pas parvenu à un résultat satisfaisant.
Comment t'y prendrais-tu?
Eric