Inserer une ligne à chaque changement de valeur

[Sophie11]

bonjour, 😛
j'ai une colonne B avec des valeurs :
B1 = 111
b2 = 111
B3 = 222
B4 = 222
B5 = 222
B6 = 333
B7 = 444
B8 = 444

Je voudrais inserer une ligne à chaque changement de valeurs, vous avez une idée? Merci 🙂

 

[JCGL]

Re : Inserer une ligne à chaque changement de valeur

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Sub InserLignes()
Dim i As Long
On Error Resume Next
For i = Range("B65536").End(xlUp).Row To 2 Step -1
    If Cells(i, 2) <> Cells(i - 1, 2) Then Rows(i).Insert
Next
End Sub

A+ à tous

 

[Sophie11]

Re : Inserer une ligne à chaque changement de valeur

ca marche trés bien! merci 😛