Bonjour,
J'ai ce code vba (ci-dessous) qui marche très bien pour supprimer les lignes en doubles dont les cellules, jusqu'à la colonne 15, sont identiques.
Malheureusement, cela marche sur un tableau commençant à la ligne 1 jusqu'a la fin, mais pas sur un tableau commençant à la ligne 7... Est-ce que quelqu'un peut me le modifier pour qu'il soit fonctionnement de la ligne 7 jusqu'a la fin ?
Et à côté de ça, est-il possible au lieu de supprimer les lignes en doubles de les masquer ?
Merci d'avance
J'ai ce code vba (ci-dessous) qui marche très bien pour supprimer les lignes en doubles dont les cellules, jusqu'à la colonne 15, sont identiques.
Malheureusement, cela marche sur un tableau commençant à la ligne 1 jusqu'a la fin, mais pas sur un tableau commençant à la ligne 7... Est-ce que quelqu'un peut me le modifier pour qu'il soit fonctionnement de la ligne 7 jusqu'a la fin ?
VB:
Dim i As Long, LigFin As Long
Dim j As Integer
Const NbCol = 5 'Nombre de colonnes
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Sheets("Feuil1") 'A adapter
.Rows(1).Insert
For j = 1 To NbCol
.Cells(1, j) = Chr(65 + j)
Next j
LigFin = .Cells(Rows.Count, 1).End(xlUp).Row
If .FilterMode Then .ShowAllData
.Range(.Cells(1, 1), .Cells(LigFin, NbCol)).AdvancedFilter xlFilterInPlace, , , True
For i = LigFin To 2 Step -1
If .Rows(i).Hidden And Application.CountBlank(.Range(.Cells(i, 1), .Cells(i, NbCol))) <> NbCol Then .Rows(i).Delete
Next i
If .FilterMode Then .ShowAllData
.Rows(1).Delete
End With
Application.DisplayAlerts = True
Et à côté de ça, est-il possible au lieu de supprimer les lignes en doubles de les masquer ?
Merci d'avance