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