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 : 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
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