[ChTi160]

Salut jean yves
bonsoir pat1545
bonsoir Dugenou
une petite Macro a relier a un bouton dans la feuille ou ce trouve ta Base de Données ou autre solution
Sub supprimeDoublon()
Dim cel As Range
Dim derlgn As Integer
derlgn = Range('C65536').End(xlUp).Row 'recherche la dernière ligne du tableau
For Each cel In Range('C5:C' & derlgn) 'ici tu adaptes la colonne ou tu auras les Faux
If cel.Value = 'Faux' Then Rows(cel.Row).EntireRow.Delete
Next
End Sub

Message édité par: ChTi160, à: 17/05/2005 21:53