Discussion :

[benoit13]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

merci d'avance....

[tirex28]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement,

Tirex28/

[ilcocodrillo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[benoit13]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jolzeviking]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[benoit13]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub UserForm_Activate()
    Worksheets("Feuil1").Activate
    Foragebox.RowSource = "A3:A49"
End Sub

[jolzeviking]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[benoit13]

Jolzeviking, tu es un Dieu!!

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