F
Francis
Guest
Bonsoir le forum
J’ai réalisé l’application suivante où pour remplir une combobox, j’extrais les données d’une colonne tout en supprimant les doublons et les classant par ordre alpha. Ca marche sans problème.
Dans cette liste ,il y a des mots composés. Je voudrais que les mots simples soient en tête de liste et les composés après.
Mais je cale. Je ne vois pas comment démarrer. Quelqu’un aurait-il une idée ?
Merci pour votre aide
Francis
ComboBox1.Clear 'vide la ComboBox1
Range('g11:g300').Select 'Transfère la colonne G en A qui est cachée
Selection.Copy
Range('A11:A300').Select
ActiveSheet.Paste
'la classe par ordre alphabetique
Selection.Sort Key1:=Range('a1'), _
Order1:=xlAscending
Derligne = Cells(Rows.Count, 'A').End(xlUp).Row 'Compte les cellules de la colonne A
'efface les doublons
For i = Derligne To 11 Step -1
If Cells(Derligne - 1, 1).Value = Cells(Derligne, 1).Value Then
Cells(Derligne - 1, 1).Delete
End If
Derligne = Derligne - 1
Next i
'Compte les cellules de la colonne A
Derligne = Cells(Rows.Count, 'A').End(xlUp).Row For x = 11 To Derligne 'calibre la combobox sur la longueur de la colonne A
ComboBox1.AddItem Range('A' & x)
Next x
J’ai réalisé l’application suivante où pour remplir une combobox, j’extrais les données d’une colonne tout en supprimant les doublons et les classant par ordre alpha. Ca marche sans problème.
Dans cette liste ,il y a des mots composés. Je voudrais que les mots simples soient en tête de liste et les composés après.
Mais je cale. Je ne vois pas comment démarrer. Quelqu’un aurait-il une idée ?
Merci pour votre aide
Francis
ComboBox1.Clear 'vide la ComboBox1
Range('g11:g300').Select 'Transfère la colonne G en A qui est cachée
Selection.Copy
Range('A11:A300').Select
ActiveSheet.Paste
'la classe par ordre alphabetique
Selection.Sort Key1:=Range('a1'), _
Order1:=xlAscending
Derligne = Cells(Rows.Count, 'A').End(xlUp).Row 'Compte les cellules de la colonne A
'efface les doublons
For i = Derligne To 11 Step -1
If Cells(Derligne - 1, 1).Value = Cells(Derligne, 1).Value Then
Cells(Derligne - 1, 1).Delete
End If
Derligne = Derligne - 1
Next i
'Compte les cellules de la colonne A
Derligne = Cells(Rows.Count, 'A').End(xlUp).Row For x = 11 To Derligne 'calibre la combobox sur la longueur de la colonne A
ComboBox1.AddItem Range('A' & x)
Next x