OVH Cloud OVH Cloud

Aide sur combobox

3 réponses
Avatar
Hicham Oudrhiri
Bonjour à tous
je développe un fichier de gest commercial. j'ai un petit Pb.
sur une feuille les données sont organisées comm suit

nom promo1
nom promo1
nom promo1
nom promo1
nom promo1
nom promo1
nom promo1
nom promo2
nom promo2
nom promo2
nom promo2
nom promo3
nom promo3
nom promo3

je veus intialiser une combobox a partir de cette colonne mais sans les
doublants.
Merci de votre aide
H

3 réponses

Avatar
Daniel
Bonjour.
As-tu regardé le classeur que j'ai mis sur cjoint.com en réponse à ton post
du 20/04/2006 11:48 ?
Si tu n'as pas compris le code, dis-le.
Cordialement.
Daniel
"Hicham Oudrhiri" a écrit dans le message de news:

Bonjour à tous
je développe un fichier de gest commercial. j'ai un petit Pb.
sur une feuille les données sont organisées comm suit

nom promo1
nom promo1
nom promo1
nom promo1
nom promo1
nom promo1
nom promo1
nom promo2
nom promo2
nom promo2
nom promo2
nom promo3
nom promo3
nom promo3

je veus intialiser une combobox a partir de cette colonne mais sans les
doublants.
Merci de votre aide
H



Avatar
Clément Marcotte
Bonjour,

http://www.excelabo.net/xl/listes.php#listesansdoublon

(ListBox ou ComboBox, même combat)

"Hicham Oudrhiri" a écrit dans le message de news:

Bonjour à tous
je développe un fichier de gest commercial. j'ai un petit Pb.
sur une feuille les données sont organisées comm suit

nom promo1
nom promo1
nom promo1
nom promo1
nom promo1
nom promo1
nom promo1
nom promo2
nom promo2
nom promo2
nom promo2
nom promo3
nom promo3
nom promo3

je veus intialiser une combobox a partir de cette colonne mais sans les
doublants.
Merci de votre aide
H



Avatar
ABED HADDOU
SALAMOU ALAIKOUM ya " HICHAM "
voici la réponse de * Isteph * sur ma question du 10/03/06. que je le
remercie infiniment.
un exemple avec une liste en colonne b et une aurtre en colonne c
'****
Option Explicit
Dim col As String
Dim List_temp As New Collection

Private Sub UserForm_Initialize()
Call rempliste(ComboBox1, "b")
Call rempliste(ComboBox2, "c")
End Sub
Sub rempliste(malist As ComboBox, col As String)

Dim i As Integer, derlg
Dim c As Range
Do While List_temp.Count > 0
List_temp.Remove 1
Loop
On Error Resume Next
derlg = Range(col & "65536").End(3).Row
For Each c In Range(col & "2:" & col & derlg)
List_temp.Add c, CStr(c)
Next c
On Error GoTo 0

For i = 1 To List_temp.Count
malist.AddItem List_temp(i)
Next i
End Sub

"Hicham Oudrhiri" wrote:

Bonjour à tous
je développe un fichier de gest commercial. j'ai un petit Pb.
sur une feuille les données sont organisées comm suit

nom promo1
nom promo1
nom promo1
nom promo1
nom promo1
nom promo1
nom promo1
nom promo2
nom promo2
nom promo2
nom promo2
nom promo3
nom promo3
nom promo3

je veus intialiser une combobox a partir de cette colonne mais sans les
doublants.
Merci de votre aide
H