[XL-2010] Lister sans 0

[Faf88]

Salut à tous

J'ai besoin de lister une colonne dans une autre afin de retrouver toutes mes valeure, mais sans les 0:
Colone 1; 0; 3 devient 1; 3
C'est possible?

[bbil]

?

rechercher/remplacer "; 0; " par ";"

[florianne]

Essaye cela, chez moi ça marche.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub dupliq()
Dim ccol, ccoln As String
ccol = "A"
ccoln = "B"
col = Range(ccol & 1).Column
coln = Range(ccoln & 1).Column
 
Dim LasRow, i, ni As Long
 
Lastrow = Feuil1.Range(ccol & Rows.Count).End(xlUp).Row
ni = 1
For i = 1 To Lastrow
If Cells(i, col).Value <> 0 Then
Cells(ni, coln).Value = Cells(i, col).Value
ni = ni + 1
End If
Next i
End Sub

Dans ma procédure tu remplaces "A" par ta colonne à modifier et
"B" par la colonne où tu veux la nouvelle liste sans les 0.