Doublons

Bonjour

juste une petite question rapide , j'ecris un bout de code à ma facon pour detecter les doublons sur une plage

et lorsque celui ci est trouvé qu'il soit effacé , voici mon bout de code :

sub eraz_doublons
dim i as integer

For i = 9 To 16

 If Application.CountIf(cells("i,5"), cells(i + 1, 5)) > 0 Then  'pour i compris entre 9 et 16 je compare les cellules pa
  MsgBox "Existente de deux cellules identiques , la suppression du doublon va etre effectuée"
 cells(i + 1, 5).EntireRow.ClearContents 
  Else
  MsgBox "aucun doublon présent "
  End If
  Next
 End Sub

  Application.CountIf(cells("i,5"), cells(i + 1, 5)) > 0 

est refusé avec l'info "incompatibilité de type et je ne vois pas comment y remedier

Merci pour toute correction

Cordialement

Bonjour,

Essai

cells(i,5)

au lieu de

cells("i,5")

Sinon, merci de joindre le fichier avec le code. C'est mieux pour tester le bug.

Merci Raja ... oui c'etait bien ca et je t'en remercie , une dernière question .. je n'arrive pas à sortir de ma boucle for à et j'ai toujours

le

msgbox "aucun doublon présent "

comment modifier mon code pour n'avoir ce message qu'une seule fois et non pas

autant de fois que la variable i change ?

Merci

Re,

Teste ce code suivant :

Sub eraz_doublons()
Dim i As Integer
Dim doublon As Boolean
    For i = 9 To 16
        If Application.CountIf(Cells(i, 5), Cells(i + 1, 5)) > 0 Then 'pour i compris entre 9 et 16 je compare les cellules pa
         MsgBox "Existente de deux cellules identiques , la suppression du doublon va etre effectuée"
           Cells(i + 1, 5).EntireRow.ClearContents
           doublon = True
        End If
    Next
    If Not (doublon) Then MsgBox "aucun doublon présent "
End Sub

je t'en remercie !!!

Cordialement , Rocket4