Discussion :

[spico45]

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 :

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

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

[Fvandermeulen]

Salut,
Si tu parles de cette ligne:

Code :

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

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 :

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

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 :

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

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

ou pour ton cas

Code :

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

1
2
DerLig=ws.cells(ws.columns(1).cells.count,Me.ComboBox1.ListIndex + 4
).end(xlup).row

[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

[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

[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

[rvtoulon]

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 :

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

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 :

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

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