probleme de macro - enchainement

[paul]

Bonjour a tous,

pourriez vous me dire ce qui ne vas pas dans ce code?
(il ne fonctionne pas)

je cherche a copier la colonne "s" de la feuille "portfolio transaction", la coller en colonne "A" de la feuille "filtre" puis a remplacer les doublons par des "O"


Merci Beaucoup pour votre aide
Paul


Sub indiquer_zero()

Dim nbre As Long, cptr As Long
Dim filtre As Collection


Sheets("portfolio transaction").Select
Range("s1:s150").Select
Selection.Copy

Sheets("filtre").Select
Range("a1:a150").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False


nbre = Application.CountA(Range("a:a"))
Set filtre = New Collection

cptr = 1
While cptr <= nbre
On Error Resume Next
filtre.Add Cells(cptr, 1), Cells(cptr, 1)
If Err > 0 Then
filtre.Add 0
End If
On Error GoTo 0
cptr = cptr + 1
Wend

cptr = 1
While cptr <= filtre.Count
Cells(cptr, 1) = filtre(cptr)
cptr = cptr + 1
Wend
End Sub

 

[Minick]

Salut,


Change simplement cette ligne
filtre.Add Cells(cptr, 1), Cells(cptr, 1)
comme ceci

filtre.Add Cells(cptr, 1).Text, Cells(cptr, 1).Text

@+ Minick