Alimentation d'un combobox

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

j'aimerais alimenter un combobox2 en fonction du combobox1 sachant que le combobox2 change en fonction de chaque résultat du premier.

le problème que je rencontre est juste en dernière partie. il ne veut pas prendre ma ligne avec derlign etc. et je ne comprend pourquoi :(

Si besoin je peux aussi mettre mon fichier excel

voilà mon code

Merci de votre aide

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Option Explicit
 
Dim ws As Worksheet
Dim NbLignes As Integer
Dim derlign As Integer
 
 
Private Sub UserForm_Initialize()
 
    'Définit la feuille contenant les données
    Set ws = Worksheets("Feuil3")
    'Définit le nombre de lignes dans la colonne A
    NbLignes = ws.Range("A65536").End(xlUp).Row
 
    'Remplissage du ComboBox1
    Alim_Combo 1
 
End Sub
 
 
'Procédure pour alimenter les ComboBox
Private Sub Alim_Combo(CbxIndex As Integer, Optional Cible As Variant)
    Dim j As Integer
    Dim Obj As Control
 
    'Définit le ComboBox à remplir
    Set Obj = Me.Controls("ComboBox" & CbxIndex)
    'Supprime les anciennes données
    Obj.Clear
 
    'alimente le Combobox initial (Combobox1)
    If CbxIndex = 1 Then
        'Boucle sur les lignes de la colonne A (à partir de la 2eme ligne)
        For j = 1 To NbLignes
            Obj = ws.Range("A" & j)
            'Remplit le ComboBox sans doublons
            If Obj.ListIndex = -1 Then Obj.AddItem ws.Range("A" & j)
        Next j
   End If
 
   'Enlève la sélection dans le ComboBox
   Obj.ListIndex = -1
End Sub
 
Private Sub ComboBox1_Change()
 
    Me.ComboBox2.Value = ""
    derlign = ws.Range(65536, Me.ComboBox1.ListIndex + 4).End(xlUp).Row
    Range(Cells(2, Me.ComboBox1.ListIndex + 4), Cells(derlign, Me.ComboBox1.ListIndex + 4)).Name = "leNom"
    Me.ComboBox2.RowSource = [lenom].Address
 
End Sub

28/08/2012, 13h02
Fvandermeulen
Salut,
Si tu parles de cette ligne:

Code:

derlign = ws.Range(65536, Me.ComboBox1.ListIndex + 4).End(xlUp).Row

C'est normal, Range est théoriquement une plage et pour une seule celulle attend une info de type "adresse" comme dans ta première ligne faisant utilisant derlign "A65536".
Donc dans ton cas, un peu compliqué.
C'est pourquoi il faut t'habituer à travailler avec Cells, qui attend le numéro de ligne et le numéro de colonne.
Utilise cette ligne et ça devrait fonctionner (j'ai pas testé sur ton fichier):

Code:

derlign = ws.cells(65536, Me.ComboBox1.ListIndex + 4).End(xlUp).Row

A+

P.S. Fait attention qu'en indiquant 65536, ça te limite à un fichier xls, à partir de 2007 il y a plus d'un million de lignes, tu peux rendre la définition de la dernière ligne remplie complètement dynamique en utilisant:

Code:

DerLig=ws.cells(ws.columns(1).cells.count,1).end(xlup).row

ou pour ton cas
Code:

1 2 DerLig=ws.cells(ws.columns(1).cells.count,Me.ComboBox1.ListIndex + 4 ).end(xlup).row
28/08/2012, 13h24
spico45

Je te remercie de ta réponse.

Mais j'ai encore un souci, mon combobox1 est alimenté par le feuil3 et normalement ma combobox2 aussi.
Je ne sais pas pourquoi elle s'alimente avec ma feuil1 ce qui complétement ridicule.

Merci
28/08/2012, 13h27
Fvandermeulen

VBA fait ce que tu lui dit...

Tu affecte Sheets3 à ta variable Ws, la même variable que tu utilise pour alimenter ta combo1 et 2.
Si tes sources sont différentes, tu n'as pas le choix que de créer deux variables pour tes feuilles ou alors de modifier ta variable juste avant l'alimentation de la combo2

En espérant avoir été clair
28/08/2012, 14h22
spico45

oui tu as été très clair mais moi je le configure avec feuil3 et ça ne marche pas.

Enfin je pense que cela vient de mon code forcement mais je le triture dans tout les sens et je n'y arrive pas

bonjour, une idée que je ne peux vérifier mais pour remplir ta combo2 tu ne fais pais référence à une feuille précise :
Code:

1 2 Range(Cells(2, Me.ComboBox1.ListIndex + 4), Cells(derlign, Me.ComboBox1.ListIndex + 4)).Name = "leNom" Me.ComboBox2.RowSource = [lenom].Address
ici tu n'indique pas dans quelle feuille tu nommes ta plage.
en mettant ws.range etc.... tu indiqueras dans quelle feuille tu veux travailler :
Code:

1 2 ws.Range(Cells(2, Me.ComboBox1.ListIndex + 4), Cells(derlign, Me.ComboBox1.ListIndex + 4)).Name = "leNom" Me.ComboBox2.RowSource = [lenom].Address

28/08/2012, 14h39
spico45

C'est exactement ce que j'ai fait mais toujours rien.

Une information supplémentaire qui pourra peut être vous aider à m'aider ;)
J'ai fait un bouton pour lancer mon userform1 quand je le mets dans ma feuil1 mon combobox2 va chercher dans la feuil1 mais quand je le colle dans la feuil3 il va chercher le combobox2 dans la feuil3.

C'est la première fois que j'ai un bug comme çà

c'est normal puisque ton code :

Code:

1
2
Range(Cells(2, Me.ComboBox1.ListIndex + 4), Cells(derlign, Me.ComboBox1.ListIndex + 4)).Name = "leNom"    Me.ComboBox2.RowSource = [lenom].Address

cherche dans le feuille active.
met:

Code:

1
2
3
Sheets("Feuil3").Range(Cells(2, Me.ComboBox1.ListIndex + 4), Cells(derlign, Me.ComboBox1.ListIndex + 4)).Name = "leNom"
Me.ComboBox2.RowSource = "Feuil3!" & [lenom].Address

et il doit chercher dans la feuille3

29/08/2012, 09h37
spico45

Merci à tous, je vous mets la ligne de code corrigée

Code:

ws.Range(ws.Cells(2, Me.ComboBox1.ListIndex + 4), ws.Cells(derlign, Me.ComboBox1.ListIndex + 4)).Name = "leNom"

bonne journée