Suppréssion d'enrégistrement

[fassadiop]

Bonjour les amis,
voila je viens de fusionner 2 tableaux qui ma donné au finish un troisième qui est vraiment énorme. Le problème est que je voudrais supprimé tous les enregistrements dont la cellule "solde remboursable" comporte une valeur et supprimé en même temps tout autre enregistrement qui aurai le même numéro de client que le premier (le client peut avoir plusieurs enregistrements). exemple à l'appui.

 

[RaceX]

Re : Suppréssion d'enrégistrement

Bonjour,

Voilà un bout de code (pas très optimisé j'avoue) qui te permettra de supprimer tes lignes.

Sub SuppressionLigne()

Dim LignFin As Integer
Dim NumClient As Integer

Application.ScreenUpdating = False

LignFin = Range("A65536").End(xlUp).Row

For n = 2 To Range("A65536").End(xlUp).Row
    If Not Range("H" & n) = "" Then
        NumClient = Range("A" & n)
        For m = 2 To Range("A65536").End(xlUp).Row
            If Range("A" & m) = NumClient Then
                Rows(m & ":" & m).Select
                Selection.Delete Shift:=xlUp
                m = m - 1
            End If
        Next
        n = 2
    End If
Next

Application.ScreenUpdating = True

End Sub

 

[fassadiop]

Re : Suppréssion d'enrégistrement

Merci RaceX
ca marche trés bien et je m'excuse de n'avoir pas répondu aussitôt j'étais un peu souffrant.