Discussion :

[trollane]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[trollane]

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

[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.

[trollane]

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

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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