Problème macro supp doublons

[Nicolas]

bonjour le forum,

J'ai une macro me permettant de supprimer les doublons d'une colonne seulement ma formule me supprime totalement la ligne. comment puis je faire pour que la ligne soit conservée dans le fichier mais n'apparaisse pas à l'écran?

Cordialement.

 

[Nicolas]

Voilàa le fichier sur lequel j'ai un problème:

Sinon ma macro est:

Sub Suppdoublons()

Dim Plage As Range, i&, Cell As Range, Rng As Range
Dim Lig As Long


Lig = Range('B1000').End(xlUp).Row
' Suppression des doublons dans la colonne A
Set Plage = Application.Range('A1:A' & Lig)

If IsEmpty(Plage) Then Exit Sub

Application.ScreenUpdating = False ' écran(faux)

For Each Cell In Plage

For i = 1 To Lig
Set Rng = Cell.Offset(i)
If Rng <> '' And Rng = Cell Then
Range('A' & Cell.Row).Select
Ligne = Cell.Row
' ajout des valeurs de la colonne D lors d'une détection de doublons
Cells(Ligne, 4).Value = Cells(Ligne, 4).Value + Cells(Ligne + i, 4).Value
' suppression de la ligne en doublons
Range(Cells(Ligne + i, 1), Cells(Ligne + i, 5)).Delete
' sortie de la boucle
Exit For

End If
Next i
Next Cell

End Sub

 

[soft]

Bonjour Nicolas, le forum,

Remplace la ligne contenant :

Rows(I).Delete

par

Rows(I).ClearContents 'efface
Rows(I).EntireRow.Hidden = True 'masque la ligne

I étant le n° de la ligne

Edition:
oubli de la 2e ligne...

Message édité par: soft, à: 09/11/2005 14:46

 

[Nicolas]

Merci pour ta réponse mais concrètement dans ma macro comment dois je faire?

Je ne suis pas doué en VBA.

Cordialement