[XL-2016] Boucles et condition

Boucles et condition

Bonjour,

J'ai un tableau:
A | A1 | A2-1
A | A1 | A2-2
B | B1 | B2-2

Je cherche une macro qui me permettrait de copier les données de tel sorte
A
A1
A2-1
A2-2 (si les données en colonne 2 identiques)
B
B1
B2-2

la macro du dessous me donne cela
A
A1
A2-1
A
A1
A2-2
B
B1
B2-2

Code:

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
42
43
44
45
46
 
Sub test8()
Dim lig, col As Integer
 
ligne = 2
 
    For j = 0 To 3
     lig = 2 + j
 
           For i = 0 To 0
                col = 1 + i
 
                valeur1 = Sheets("Feuil1").Cells(lig, col).Value 
 
                 With Sheets("Feuil2")
                       .Cells(ligne, 1).Value = valeur1
                       ligne = ligne + 1
                  End With
            Next i
 
 
            For i = 0 To 0
                col = 2 + i
 
                valeur2 =Sheets("Feuil1").Cells(lig, col).Value 
 
                 With Sheets("Feuil2")
                 .Cells(ligne, 2).Value = valeur2
                  ligne = ligne + 1
                 End With
            Next i
 
            For i = 0 To 0
                col = 3 + i
 
                valeur3 = Sheets("Feuil1").Cells(lig, col).Value
 
                       With Sheets("Feuil2")
                      .Cells(ligne, 3).Value = valeur3
                      ligne = ligne + 1
                     End With
                 Next i
 
    Next j
 
End Sub

Bonjour,

une p'tite démonstration, la première ligne de la plage source étant une ligne de titres :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub Demo1() VS = [A1:C4].Value ReDim RT$(1 To (UBound(VS) - 1) * UBound(VS, 2), 0) For R& = 2 To UBound(VS) If VS(R, 1) & "¤" & VS(R, 2) = VS(R - 1, 1) & "¤" & VS(R - 1, 2) Then N& = N& + 1 RT(N, 0) = VS(R, 3) Else For C& = 1 To UBound(VS, 2) N = N + 1 RT(N, 0) = VS(R, C) Next End If Next Cells(7).Resize(N).Value = RT End Sub
_________________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …

merci