Discussion :

[ptitepo]

Bjr bjr,
Un ami m'a donner un fichier exemple d'une combobox sur un formulaire, qui se rempli des valeurs d'une colonne de ma feuille excel. Il marche très bien.
Le problème c'est que j'ai beau faire tout les tests possible et inimaginable, il n'y a rien à faire sur mon fichier ca marche pas ! Quel pourrais être le problème?

Code :

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

1
2
3
4
5
6
Private Sub ComboBox_nom_Change()
With Sheets("Janv")
    .Range("A6:A" & .[A65000].End(xlUp).Row).Name = "base"
End With
Me.ComboBox_nom.RowSource = [base].Address
End Sub

Le code est mis dans ma combobox, Janv est le nom de ma feuille excel ou se trouve mes valeur à mettre dans la combobox (la zone est défini par le nom "base")... et voila!
Merci de votre aide.

[Jean-Pierre49]

Bonjour,

Juste une piste

Code :

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

1
2
3
Private Sub UserForm_Initialize()
Me.ComboBox_nom.RowSource = Sheets("Janv").Range("A6:A" & Sheets("Janv").Range("A65536").End(xlUp).Row).Address
End Sub

Bon courage

[ptitepo]

Le code de jean pierre49 marche a moitié sur mon fichier test, mais dés que je le mets dans mon vrai fichier, non. Est ce que le fait que j'ai des multipage y est pour quelque chose?

[Jean-Pierre49]

Peut être qu'avec un bout de ton code, histoire de voir

le multipage ne doit en être pour rien

[ptitepo]

Voici le code de mon fichier test, il marche mais il y a encore des erreurs, car quant je déroule la zone, elle est vide, je la ferme et la reouvre, elle est pleine

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ComboBox1_Change()
Dim pl As Range
Set pl = Sheets("Feuil1").Range("A6:A" & Sheets("Feuil1").Range("A65536").End(xlUp).Row)
pl.Name = "base"
Me.Controls("ComboBox1").RowSource = "base"
End Sub
 
Private Sub UserForm_Initialize()
Me.ComboBox1.RowSource = Sheets("Feuil1").Range("A6:A" & Range("A65536").End(xlUp).Row).Address
End Sub

et voici le code de mon vrai fichier, il n'y a pas de message d'erreur, j'ouvre mon formulaire et la zone de liste, et elle est completement vide

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ComboBox_nom_Change()
Dim pl As Range
Set pl = Sheets("Janv").Range("A6:A" & Sheets("Janv").Range("A65536").End(xlUp).Row)
pl.Name = "base"
Me.Controls("ComboBox_nom").RowSource = "base"
End Sub
 
Private Sub eff_mois_Initialize()
Me.ComboBox_nom.RowSource = Sheets("Janv").Range("A6:A" & Range("A65536").End(xlUp).Row).Address
End Sub

Sinon j'ai trouvé ce code qui marche, mais que pour les lignes, evidament je veux la colonne lol ca serait trop beau. Ca ne m'affiche que A1

Code :

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

1
2
3
4
    Dim Tableau As Variant
    Sheets("Feuil1").Select
    Tableau = Range("A1:A10").Value
    ComboBox1.Column() = Tableau

[Jean-Pierre49]

L'erreur est :

Code :

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

1
2
3
Private Sub eff_mois_Initialize() ' Pas Bien
Me.ComboBox_nom.RowSource = Sheets("Janv").Range("A6:A" & Range("A65536").End(xlUp).Row).Address
End Sub

essais

Code :

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

1
2
3
4
5
6
7
Private Sub ComboBox_nom_Change()
End Sub
 
Private Sub UserForm_Initialize() ' Bien Pour l'evenement
Me.ComboBox_nom.RowSource = Sheets("Janv").Range("A6:A" & Range("A65536").End(xlUp).Row).Address
Me.ComboBox_nom.ListIndex = 0
End Sub

[Gorfael]

Salut ptitepo

Le problème c'est que j'ai beau faire tout les tests possible et inimaginable, il n'y a rien à faire sur mon fichier ca marche pas ! Quel pourrais être le problème?

il a pas de jambe
Message d'erreur ???
Quand tu vas voir un garagiste, tu ne te contente pas de dire "ça marche pas" ? Tu donnes quelques précisions, non ?

Si ça fonctionne d'un coté et pas quand tu l'adaptes, c'est pas le code qui est à mettre en cause, mais l'adaptation

Address donne l'adresse d'un range dans une page
Pas l'adresse d'un range dans un classeur

Code :

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

1
2
3
4
 Private Sub UserForm_Initialize()
Me.ComboBox_nom.RowSource = "Janv!" & Sheets("Janv").Range("A6:A" & _
 Sheets("Janv").Range("A65536").End(xlUp).Row).Address
End Sub

A+