insertion ligne tableau

Version imprimable

Nonsoir,
Je cherche à faire une macro qui lit le contenu d'une colonne et qui à chaque changement de valeur insère une ligne dans mon tableau.

J'ai essayé la macro ci-dessous mais elle ne lit pas ma colonne, est-ce quelqu'un peut m'aider ? c'est assez urgent. Merci d'avance

:D
Code:

1 2 3 4 5 6 7 8 9 10 Sub Macro2() ' ' Macro2 Macro ' insertion ligne changement de reference ' Touche de raccourci du clavier: Ctrl+i ' Sheets("Feuil1").Select Range("A5").Select If Range("A5").Value <> Range("A6").Value Then Range("A6").EntireRow.Insert End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Macro2()
Dim LastLig As Long, i As Long
 
Application.ScreenUpdating = False
With Sheets("Feuil1")
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    For i = LastLig To 6 Step -1
        If .Range("A" & i).Value <> Range("A" & i - 1).Value Then .Rows(i).Insert
    Next i
End With
End Sub

21/04/2011, 13h20
trollane

Presque

Merci pour votre réponse aussi rapide, je viens de tester mais il y a un problème à la fin;
J'ai un message d'erreur : Next sans For
alors qu'il y est bien. je ne comprend pas
21/04/2011, 14h19
mercatog

Bonjour,
Le code proposé a été teste sur un fichier simple. Regarde bien le tien et/ou mets une copie sans données confidentielles en pièces jointes.
21/04/2011, 17h32
trollane

1 pièce(s) jointe(s)

Je mets un exemple du tableau que j'ai à traiter qui est très simple, je ne comprend pas où est le problème

Sur ton fichier il suffisait d'adapter où s'arrêter

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Macro2()
Dim LastLig As Long, i As Long
 
Application.ScreenUpdating = False
With Sheets("Feuil1")
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    For i = LastLig To 4 Step -1
        If .Range("A" & i).Value <> Range("A" & i - 1).Value Then .Rows(i).Insert
    Next i
End With
End Sub

21/04/2011, 19h08
trollane

Génial, encore merci et bonne soirée

:ccool: :ccool: