Code d'actualisation d'une combobox

Bonjour,

J'ai une combobox que je souhaite actualiser à l'ouverture d'un formulaire.
Son contenu doit etre celui de cellules excel.
J'ai le code suivant mais à l'ouverture du formulaire, la combobox reste vide...
Je suis débutant donc l'erreur doit être évidente....

Code:

---

1 2 3 4

Private Sub Form1_Initialize() Foragebox.RowSource = Worksheets("Feuil1").Range("A3:A49") End Sub

---

merci d'avance.... :lol:

Bonjour,

Quelque soit le nom de ton formulaire tu ne dois pas modifier le nom de sa procedure Initialize. D'autre part RowSource attend simplement une adresse de cellules, pas les cellules elle-mêmes.

Code:

---

1 2 3

Private Sub UserForm_Initialize() ForageBox.RowSource = "A3:A49" End Sub

---

Cordialement,

Tirex28/

Avec une plage de cellule nommé c'est plus jolie et plus facile à lire et SURTOUT a maintenir au cas ou cette plage évolue (ajout ou suppression de valeur) :

Code:

---

1 2 3 4

MaFeuille.Range(Range("A1").CurrentRegion. _ Address(False, False)).CreateNames Top:=True 'si la liste de données se trouve en a2 et suivantes MaComboBox.RowSource = "MaListe" 'MAliste est le titre de la plage de données qui commence en A2

---

Merci beaucoup pour votre aide!

En réalité j'ai parlé un peu trop vite...
J'ai le code suivant mais ma combo box reste desespéremment vide...

Code:

---

1 2 3 4 5

Private Sub Form1_Initialize() Worksheets("feuil1").Activate Foragebox.RowSource = "A3:A49" End Sub

---

Si vous avez une idée??
Encore merci

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Form1_Initialize() Worksheets("feuil1").Activate Foragebox.RowSource = "A3:A49" End Sub ce code comporte une erreur voici une solution je l'utilise régulierement elle fonctionne: Private Sub Userform_Initialize() Worksheets("feuil1").Activate Foragebox.RowSource = "A3:A49" End Sub

---

ou

Code:

---

1 2 3 4

Private Sub Userform_Activate() Worksheets("feuil1").Activate Foragebox.RowSource = "A3:A49" End Sub

---

L'activate est plus éfficace car Initialize ne s'éxécute qu'une seul fois au premier démarrage de ta box.
C'est peut etre une piste

Merci de votre aide...

Quelque chose se passe quand le formulaire s'ouvre mais au lieu de me remplir ce fichu combobox, VB m'affiche une erreur de type '9' et m'indique "l'indice n'appartient pas à la selection".
Le débogage me surligne la ligne Worksheets("Feuil1").Activate
C'est probablement que ma syntaxe est fausse... Si quelqu'un peut me dépétrer de ce pbm, je suis preneur!!!!
Merci d'avance

Code:

---

1 2 3 4 5

Private Sub UserForm_Activate() Worksheets("Feuil1").Activate Foragebox.RowSource = "A3:A49" End Sub

---

Code:

---

1 2 3 4

Private Sub UserForm_Activate() Worksheets("Feuil1").Activate '<==== entre parenthese ce doit être une erreur, c'est le nom de l'onglet qui doit apparaitre. Foragebox.RowSource = "A3:A49" End Sub

---

renomme ta feuille et mets le nom dans le code
Bon courrage

Jolzeviking, tu es un Dieu!!

Merci beaucoup! Ca marche avec le nom de l'onglet