code dans combobox

Version imprimable

03/06/2008, 09h36
ptitepo

code dans combobox
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:

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.

Bonjour,

Juste une piste

Code:

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

03/06/2008, 10h28
Gorfael
Salut ptitepo

Citation:

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 :mrgreen:
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:

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+
03/06/2008, 10h34
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?
03/06/2008, 10h47
Jean-Pierre49

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

le multipage ne doit en être pour rien

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:

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:

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:

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

L'erreur est :

Code:

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:

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

03/06/2008, 11h20
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?

evite select

Code:

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?

03/06/2008, 11h41
fring

Bonjour tlm,

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

Code:

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 ;)
03/06/2008, 11h50
Jean-Pierre49

Bonjour Fring

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

Code:

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

mais merci pour ta rectif.
03/06/2008, 11h52
fring

Bonjour JP

bien vu :king:
03/06/2008, 13h11
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?
03/06/2008, 13h28
fring
Oui c'est possible

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

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
03/06/2008, 14h13
ptitepo

Et ba parfait, merci beaucoup ! :D