Inserer une ligne à chaque changement de valeur

Sophie11 · 7 Mai 2010

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 · 7 Mai 2010

Re : Inserer une ligne à chaque changement de valeur

Bonjour à tous,

Peux-tu essayer avec :

Code:

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 · 11 Mai 2010

Re : Inserer une ligne à chaque changement de valeur

ca marche trés bien! merci 😛

Inserer une ligne à chaque changement de valeur

Sophie11

XLDnaute Occasionnel

JCGL

XLDnaute Barbatruc

Sophie11

XLDnaute Occasionnel

Discussions similaires

Inserer une ligne à chaque changement de valeur

Sophie11

XLDnaute Occasionnel

JCGL

XLDnaute Barbatruc

Sophie11

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency