XL 2013 code vba d'arrangement

[vinciHorus]

bonjour

j'ai le tableau suivant

2	7
2	7
2	7
8	8
8	8
7	7

j'aimerai avoir

2	2
2	2
2	2
2	2
8	8
8	8

si la valeur A1= valeur B1 Alors
pas d'action
mais si valeur A1 <> la valeur B1 et la valeur A6 = la valeur B1 Alors
le code coupe la ligne de A6=7, Crée une nouvelle ligne et la colle au niveau de A1

voilà

Merci

 

[vinciHorus]

bonjour

j'ai le tableau suivant

2	7
2	7
2	7
8	8
8	8
7	7

j'aimerai avoir

2	2
2	2
2	2
2	2
8	8
8	8

si la valeur A1= valeur B1 Alors
pas d'action
mais si valeur A1 <> la valeur B1 et la valeur A6 = la valeur B1 Alors
le code coupe la ligne de A6=7, Crée une nouvelle ligne et la colle au niveau de A1

voilà

Merci

j'ai trouvé après 3 épisodes de la série INSECURE


Sub T()

Dim i As Long, j As Long
Application.DisplayAlerts = False
For i = 2 To Range("A100000").End(xlUp).Row
j = 1
While Cells(i, 1) <> Cells(i, 2) And Cells(i, 1) <> Empty And Cells(i + j, 2) = Cells(i, 2)

Range("A" & i).Select
Selection.Copy
Range("A" & i + j).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

j = j + 1
Wend
i = i + j - 1
Next
Application.DisplayAlerts = True

End Sub