erreur sur macro !!! je sèche

[vinceda]

Bonjour à tous,

j'ai une macro qui est en erreur et je n'arrive pas à supprimer cette erreur.

Voici la macro en question:

Sub EffaceDoublons()
Dim Recept As String
Recept = ""
With Sheets("Feuil2")
For Each cel In .Range("B2:B65536").SpecialCells(xlCellTypeConstants)
If InStr(Recept, cel.Value) = 0 Then
Recept = Recept & "," & cel.Value
Else
Range("A" & cel.Row & ":C" & cel.Row).ClearContents
End If
Next
End With
End Sub

C'est la ligne soulignée qui me pose pb... le But de la macro est d'effacer les ligne de doublon mais si je pouvais les supprimer ce serait le top.

merci d'avance pour votre aide et conseil

 

[phlaurent55]

Re : erreur sur macro !!! je sèche

Bonjour Vinceda,

pas facile à comprendre ton code

si tu pouvais joindre un bout de fichier avec des explications un peu plus claires.............

à+
Philippe

 

[Gorfael]

Re : erreur sur macro !!! je sèche

Salut vinceda, phlaurent55 et le forum

C'est la ligne soulignée qui me pose pb...

Rappel : sur le site, ni devin, ni télépathe (à ma connaissance).

Quel est le problème rencontré ? Ou plutôt, qu'est censée faire exactement ta macro ? Parce que fonctionnellement, elle ne crée aucune erreur.
A+

 

[tototiti2008]

Re : erreur sur macro !!! je sèche

Bonjour vinceda, Bonjour Philippe, Bonjour Gorfael,

On va voir si ma boule de cristal fonctionne

remplace

Range("A" & cel.Row & ":C" & cel.Row).ClearContents

par

cel.entirerow.delete