Discussion :

[Yoooo]

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

[Marc-L]

Bonjour,

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

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 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 pour chaque message ayant aidé puis sur pour clore cette discussion …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[Yoooo]

merci