Discussion :

[monsurf]

Bonjour tout le monde...

j'ai une feuille Excel qui contient des milliers de lignes...
j'ai une colone qui contient des codes...

ce que j'aimerai faire c'est de d'inserer une ligne vide chaque fois que le code change de valeur dans cette colonne...
exemple

CODE:

AAA
AAA
AAA
BBB
BBB
CCC
DDD
DDD

j'aimerai avoir ca comme resultat:

CODE:

AAA
AAA
AAA

BBB
BBB

CCC

DDD
DDD

j'ai commencé a faire ca a la main, mais ca risque de me prendre plusieurs longues heures...

quelqu'un peut me dire s'il ya moyen de faire ca avec du code ?? car je n'ai absolument aucune idée

merci pour votre aide!

[SfJ5Rpw8]

Bon ceci dit, tu ne sais pas forcément avec quoi ecrire ton code, à priori le VBA Excel serai approprié...

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 InsereLigne()
 Dim sh As Worksheet
 Dim i As Integer
 'bon on va travailler sur la feuille
 'active au moment du lancement
 Set sh = ActiveSheet
 i = 2
 While sh.Cells(i, 1) <> ""
  If sh.Cells(i - 1, 1) <> sh.Cells(i, 1) Then
    sh.Cells(i, 1).EntireRow.Insert Shift:=xlShiftDown
    i = i + 1
  End If
 i = i + 1
 Wend
End Sub

[monsurf]

Merci pour la reponse Bbil!!

ca fonctionne parfaitement!!


Merci encore