relation entre 3 combobox

[coolman53]

Bonjour,

J'ai un souci de programmation et je vois pas où (je crois que mon cerveau ne dois plus fonctionner!!!!)

J'ai 3 colonnes (D;E;F) et 3 combobox.

Je voudrai que dans la 1ere combo s'affiche les données de la colonne E sans doublons

Dans la 2ème je voudrai les données de la colonne D en lien avec la E sans doublons
Ex: Pour 2 il y a INS0579A et INS0600A

Dans la 3eme meme principe mais entre E et F sans doublons aussi

J'ai une partie de code qui fonctionne dans un autre fichier mais pas dans celui la :

Je mets aussi ci joint le fichier

Merci


Option Explicit

Dim Ws As Worksheet
Dim NbLignes As Integer

Private Sub UserForm_Initialize()
Set Ws = Worksheets("Base")
NbLignes = Ws.Range("A65536").End(xlUp).Row

'Remplissage du ComboBox1
Alim_Combo 1

End Sub


Private Sub ComboBox1_Change()
Alim_Combo 2, ComboBox1.Value
End Sub

Private Sub Alim_Combo(CbxIndex As Integer, Optional Cible As Variant)
Dim j As Integer
Dim Obj As Control

Set Obj = Me.Controls("ComboBox" & CbxIndex)
Obj.Clear

If CbxIndex = 1 Then
For j = 3 To NbLignes
Obj = Ws.Range("A" & j)
If Obj.ListIndex = -1 Then Obj.AddItem Ws.Range("A" & j)
Next j
Else
For j = 3 To NbLignes
If Ws.Range("A" & j).Offset(0, CbxIndex - 2) = Cible Then
Obj = Ws.Range("A" & j).Offset(0, CbxIndex - 1)
If Obj.ListIndex = -1 Then Obj.AddItem Ws.Range("A" & j).Offset(0, CbxIndex - 1)
End If
Next j
End If

Obj.ListIndex = -1
End Sub

 

[coolman53]

Re : relation entre 3 combobox

je viens de voir que j'ai pris le code qui marche mais sur un autre fichier

C'est le meme sauf qu'il faut changer A par D

Merci de pouvoir m'aider