fifounet
XLDnaute Occasionnel
Bonsoir le forum
je veux trier sans doublons plusieurs zones de cellules dans une seule colonne et sans les cellules vides
ex:
trier la 'plage' A1:A10 et B1:B10 et A25:A30 et B25:B30
dans la colonne C à partir de C1
j'ai utilisé ce code mais il ne me supprime pas les cellules vides inch:
Option Explicit
Sub Bouton1_QuandClic()
Dim data As Collection
Dim c As Range
Dim i As Byte
Set data = New Collection
On Error Resume Next
For Each c In Range('plage')
data.Add c, CStr(c)
Next c
On Error GoTo 0
For i = 1 To data.Count
Cells(i, 3) = data(i)
Next i
End Sub
Est ce que quelqu'un peut me le completer?
merci de votre aide
fifounet
Message édité par: fifounet, à: 20/01/2006 20:35
je veux trier sans doublons plusieurs zones de cellules dans une seule colonne et sans les cellules vides
ex:
trier la 'plage' A1:A10 et B1:B10 et A25:A30 et B25:B30
dans la colonne C à partir de C1
j'ai utilisé ce code mais il ne me supprime pas les cellules vides inch:
Option Explicit
Sub Bouton1_QuandClic()
Dim data As Collection
Dim c As Range
Dim i As Byte
Set data = New Collection
On Error Resume Next
For Each c In Range('plage')
data.Add c, CStr(c)
Next c
On Error GoTo 0
For i = 1 To data.Count
Cells(i, 3) = data(i)
Next i
End Sub
Est ce que quelqu'un peut me le completer?
merci de votre aide
fifounet
Message édité par: fifounet, à: 20/01/2006 20:35