TRIER UNE LISTE

[JORDAN]

Bonjour le Forum

Existe-t-il une macro permettant de trier une liste de données contenues dans une colonne sans avoir de doublons et retrouver cette liste triée dans une ComboBox ?

Merci et A+

Message édité par: JORDAN, à: 30/03/2005 19:35

 

[Papy Novice]

Bonsoir cher ami,
Cette macros tri et élimine les doublons, je ne sais si c'est exactement ce que tu souhaites.

Sub Doublons()
With Selection
.Range('A1').Sort Key1:=.Range('A1'), Order1:=xlAscending
Set currentcell = .Range('A1')
Application.ScreenUpdating = False
Do While Not IsEmpty(currentcell)
Set nextcell = currentcell.Offset(1, 0)
If nextcell.Value = currentcell.Value Then
currentcell.Delete (xlUp)
End If
Set currentcell = nextcell
Loop
End With
End Sub

Cordialement à toi et au forum
Jean

 

[pat1545.]

Salut,

la bas :

Ce lien n'existe plus


Ciao

 

[ChTi160]

Salut'JORDAN ,Papy Novice,pat1545'
en pièce jointe une adaptation d'un fichier fait pour petchy
[file name=ComboSansVD.zip size=12579]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ComboSansVD.zip[/file]

 

[JORDAN]

Bonjour à vous tous les pros de macros,

Merci pour votre aide, j'ai trouvé mon bonheur dans ce que vous m'avez envoyé.

J'avance à grand pas dans mon projet grace à votre aide précieuse.

Encore merci et A+

 

[JORDAN]

Âprès compilation de tous vos efforts, voilà une ComboBox
sans doublons et triée.

Encore merci
A+ [file name=ComboSansVD_20050331143010.zip size=13273]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ComboSansVD_20050331143010.zip[/file]