Combobox ajouter données

mapomme

XLDnaute Barbatruc

Supporter XLD

• 21 Août 2016

• #2

Bonjour ExcelDow,

Dans la procédure Sub UserForm_Initialize() :

Pour remplir le ComboBox1 avec la liste triée :

VB:

ComboBox1.List = temp

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

VB:

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

 

Dernière édition: 21 Août 2016

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 21 Août 2016

• #3

Bonsoir ExcelDow
Bonsoir Le Fil,Le Forum
Une autre approche

VB:

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

 

Vote positif 0 Vote négatif

ExcelDow

XLDnaute Occasionnel

• 22 Août 2016

• #4

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++++

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 22 Août 2016

• #5

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

 

Pièces jointes

• ComboboxAjoutItem _Chti160.xlsm

  23.8 KB · Affichages: 30

Vote positif 0 Vote négatif

ExcelDow

XLDnaute Occasionnel

• 22 Août 2016

• #6

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 22 Août 2016

• #7

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

VB:

Private Sub UserForm_Initialize()

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

Code:

Set f = Sheets("BD")

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

VB:

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

puis on trie la plage ainsi définie

VB:

.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

VB:

ComboBox1.List = .Value

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 22 Août 2016

• #8

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

 

Vote positif 0 Vote négatif

ExcelDow

XLDnaute Occasionnel

• 23 Août 2016

• #9

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

 

Vote positif 0 Vote négatif