Combobox ajouter données

[ExcelDow]

Bonjour à tous,
J'ai dans ce code VBA, un code nommé "Tri", qui est sensé trier la liste en colonne "A" de la feuille "BD", mais rien ne se passe.
Y aurait-il s'il vous plaît un membre qui pourrais me corriger mon erreur ??
Merci à vous
A++++

 

[mapomme]

Bonjour ExcelDow,

Dans la procédure Sub UserForm_Initialize() :

Pour remplir le ComboBox1 avec la liste triée :

ComboBox1.List = temp

Pour transférer la liste triée sur la feuille BD :

f.Range("a2").Resize(UBound(temp) - LBound(temp) + 1) = Application.Transpose(temp)

 

[ChTi160]

Bonsoir ExcelDow
Bonsoir Le Fil,Le Forum
Une autre approche

Private Sub UserForm_Initialize()
   Set f = Sheets("BD")
  With f.Range(f.[a2], f.[a2].End(xlDown))
     .Sort key1:=f.Range("A2"), _
      order1:=xlAscending, Header:=xlYes
      ComboBox1.List = .Value
  End With
End Sub

bonne fin de journée
Amicalement
Jean marie

 

[ExcelDow]

Salut à tous,
alors jusque là, il y a aucun résultat. Marche pas.
En fait, il ne s'agit pas de transfère, mais lors du transfert, de trier de A à Z la liste se trouvant dans la feuille "BD"
Merci à vous
A++++

 

[ChTi160]

Bonjour ExcelDow
Bonjour le fil,Le Forum
je ne comprends pas grand chose ?????
je joins donc un fichier .
Bonne fin de Journée
Amicalement
Jean Marie

 

[ExcelDow]

Re bonjour Jean-Marie
Une question:
Qu'est-ce que ce code est sensé faire ??

Private Sub UserForm_Initialize()
Set f = Sheets("BD")
With f.Range(f.[a2], f.[a2].End(xlDown))
.Sort key1:=f.Range("A2"), _
order1:=xlAscending, Header:=xlNo
ComboBox1.List = .Value
End With
End Sub

 

[ChTi160]

Re
tu n'as pas testé ???
lorsque l'on ouvre le Userform , d'ou le

Private Sub UserForm_Initialize()

puis on définit la variable f qui représente la feuille BD

Set f = Sheets("BD")

puis on définit la plage de données a traiter

With f.Range(f.[a2], f.[a2].End(xlDown))

puis on trie la plage ainsi définie

.Sort key1:=f.Range("A2"), _
order1:=xlAscending, Header:=xlNo

puis on récupére les données ainsi triées dans la feuille , dans le Combobox

ComboBox1.List = .Value

En espérant avoir pu faire avancer le SChimillimblick ??????
Bonne fin de Soirée
Amicalement
Jean Marie

 

[BOISGONTIER]

Bonsoir,

a/ on tri dans le tableur:

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormTriTableur.xls

b/ On ne tri pas dans le tableur mais dans un Array:

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormTriTableurTrie.xls

JB

 

[ExcelDow]

Bonjour ChTi160 et Boisgontier
Super, et merci beaucoup de vos explications et exemple très utile.
Très bonne journée à vous tous
A++++
G