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

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

[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

[ptitepo]

Ah d'accord, je croyais que userform etait le nom de mon formulaire, mais rien a voir. Donc la ca marche, mais je sui obligé de rajouté sheets("Janv").select avant le code, sinon il m'affiche la colonne A de la page ou j'ai le bouton qui appel mon formulaire.
Et tan que j'y suis, c'est possible de recupéré le numero de la ligne dans mon code, pour que je puisse l'utilisé aprés pour la suite de ma macro?

[Jean-Pierre49]

evite select

Code :

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

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

Quel numero de ligne celle de la valeur selectionnée?

[fring]

Bonjour tlm,

concernant le RowSource, il faut l'écrire comme ceci

Code :

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

Me.ComboBox_nom.RowSource = "Janv!" & Sheets("Janv").Range("A6:A" & Range("A65536").End(xlUp).Row).Address

Sinon il prendra en compte les cellules de la feuille active

[Jean-Pierre49]

Bonjour Fring


Ok mais a priori il manque un Sheets("Janv") dans le Code

Code :

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

= "Janv!" & Sheets("Janv").Range("A6:A" & Sheets("Janv").Range("A65536").End(xlUp).Row).Address

mais merci pour ta rectif.

[fring]

Bonjour JP

bien vu

[ptitepo]

Merci a vous 2, ca marche niquel.
Oui je voudrais récupéré le numero de la ligne qui correspond a mon choix. C'est possible?

[fring]

Oui c'est possible

Une solution éventuelle, vu que ton RowSource commence à la ligne 6, tu peux tester ceci

Code :

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

1
2
3
4
5
Private Sub ComboBox_nom_Change()
Dim Lig As Integer
Lig = 6 + Me.ComboBox_nom.ListIndex
MsgBox Lig
End Sub

Ce code, à placer dans l'objet UserForm, s'exécutera lors de la sélection dans le Combo

[ptitepo]

Et ba parfait, merci beaucoup !