combo box

[JACK]

bonsoir
quel code faut il utiliser en vba pour pouvoir récupérer des données en n2: n8 d'une feuille nommée 'taches' pour les intégrer dans une combo box

quel code faut il utiliser en vba pour après avoir sélectionner une donnée dans la combo box la faire s'inscrire dans la cellule b20 d'une feuille nommée jour

merci de votre aide

slts
bonne soirée
jack

 

[MichelXld]

bonsoir Jack

pour le remplissage :
si la Combobox est dans la feuille , tu peux utiliser cette macro dans un module standard

Sub remplissageComboboxFeuille()
Dim Cell As Range

Sheets('taches').ComboBox1.Clear

For Each Cell In Sheets('taches').Range('N2:N8')
Sheets('taches').ComboBox1.AddItem Cell
Next
End Sub


ensuite , tu peux placer cette 2eme macro dans la feuille contenant le Combobox ,pour recuperer la donnée selectionnée

Private Sub ComboBox1_Change()
Sheets('jour').Range('B20') = ComboBox1
End Sub



bonne soirée
MichelXld

Message édité par: michelxld, à: 14/11/2005 19:48

 

[JACK]

merci pour tout michel mais je n'y arrives pas
peux tu me faire un exemple sv^p

en sachant que ma combo box provient d'un usf
merci
bonne soirée

slts
jack

 

[MichelXld]

rebonjour Jack

dans ce cas , tu peux placer les procedures ci dessous dans l'UserForm

Option Explicit

Private Sub UserForm_Initialize()
Dim Cell As Range

For Each Cell In Sheets('taches').Range('N2:N8')
ComboBox1.AddItem Cell
Next
End Sub


Private Sub ComboBox1_Change()
Sheets('jour').Range('B20') = ComboBox1
End Sub


bonne soirée
MichelXld

 

[myDearFriend!]

Bonsoir JACK, MichelXld,

Sauf erreur, pour le chargement du ComboBox, on doit pouvoir se passer de la boucle 'AddItem' en faisant directement :

Private Sub UserForm_Initialize()
      ComboBox1.List() = Sheets('taches').Range('N2:N8').Value
End Sub

Cordialement,

 

[MichelXld]

bonsoir cher ami Didier

tu as totalement raison et encore merci pour ta solution


bonne soirée
MichelXld

 

[JACK]

Merci à vous tous
j'ai toutes mes réponses puis je me suis souvenu d'un truc et
j'ai finalement mis les données dans les propriétés ' rowsource' ce qui simplifie beaucoup les choses puisque les données sont fixes

bonne soirée
slts
jack