tri sans doublons ni vide

[fifounet]

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

 

[Hervé]

Bonsoir fifounet

sans avoir testé :

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')
if c DIFFERENT DE '' then 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

remplace different de par les signes

salut

 

[re]

Merci Hervé
Je viens d'essayer
et ça ne colle pas
Si tu as une autre soluce
je suis preneur sinon je vais passer par une
colonne intermédiaire
pour supprimer les cellules vides
a+
fifounet

 

[Trice972]

Salut fifounet,

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')
If Not IsEmpty(c) Then data.Add c, CStr(c)
Next c
On Error GoTo 0

For i = 1 To data.Count
Cells(i, 3) = data(i)
Next i
Columns('C:C').Sort Key1:=Range('C1'), Order1:=xlAscending, Header:=xlNo

End Sub

je pense que c'est ce que tu veux ? :huh:

 

[Hervé]

bonjour fifounet, trice972

Fifounet regarde en pièce jointe si ca ne fonctionne pas.

trice serais-je transparant pour ne pas mériter ton salut ?

edition : piece jointe dans le message suivant.

Message édité par: hervé, à: 21/01/2006 10:27

 

[Hervé]

re

la bonne pièce : [file name=Classeur1_20060121102800.zip size=7218]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060121102800.zip[/file]

 

[Marc_du_78]

Bonjour fifounet, Trice972, Hervé, le Forum,

Je viens te remercier Hervé pour ton code qui me sera très utile.
En te souhaitant un bon week-end

 

[Trice972]

Bonjour le forum,
bonjour hervé
bonjour fifounet
bonjour Marc_du_78
bonjour toutlemondelégens

 

[fifounet]

Merci Hervé et trice972
C'est exactement ce que je voulais
j'avais trouvé une parade aves une colonne supplémentaire, que je me suis empressé de supprimer apres intégration du nouveau code !
encore merci
a +
fifounet