lier une 3eme combo aux 2 autres

[coolman53]

Bonjour,

J'ai reussi à lier 2 combobox mais je voudrai en rajouter une 3eme qui prendra les données de la colonne F en lien avec les 2 autres ( je sais pas si c'est clair ce que je mets!!!!)

Voici le code et le fichier

Merci d'avance

Option Explicit

Dim Ws As Worksheet
Dim NbLignes As Integer
Dim NoAction As Boolean

Private Sub ComboBox1_Change()
'Eviter d'envoyer la macro à chaque itération du remplissage du Combo1
If NoAction Then Exit Sub
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
NoAction = True
If CbxIndex = 1 Then
For j = 3 To NbLignes
Obj = Ws.Range("E" & j)
If Obj.ListIndex = -1 Then Obj.AddItem Ws.Range("E" & j)
Next j
ElseIf CbxIndex = 2 Then
For j = 3 To NbLignes
If Ws.Range("E" & j) = CInt(Cible) Then
Obj = Ws.Range("D" & j)
If Obj.ListIndex = -1 Then Obj.AddItem Ws.Range("D" & j)
End If
Next j
End If
On Error Resume Next
Obj.ListIndex = 0
On Error GoTo 0
NoAction = False
End Sub

Private Sub UserForm_Initialize()
Set Ws = Sheets("Base")
NbLignes = Ws.Range("D65536").End(xlUp).Row
'Remplissage du ComboBox1
Alim_Combo 1
Alim_Combo 2, ComboBox1.Value
Alim_Combo 3, ComboBox1.Value

End Sub

 

[Bebere]

Re : lier une 3eme combo aux 2 autres

bonjour Coolman
emploi d'une autre méthode,plus rapide

 

[coolman53]

Re : lier une 3eme combo aux 2 autres

C'est exactement cela que je veux!!!!! Merci

Par contre il y a un bug lorsque je choisi dans la combo 1 9.1 ou 9.2

Par hasard est ce que tu saurai comment faire pour que :

- les données dans les combos soit triées
- enlever la derniere lettre de l'INS dans la combo 2 et regroupe les données dans la combo 3

Avec un exemple ce sera plus facile a comprendre

Je choisi dans combo 1 la colonne 5, cela m'affiche dans la combo 2 INS0575A/INS0575B/INS0575C.
Je voudrai regrouper les 3INS pour faire INS0575 et comme sa dans la combo 3 il y a tous les choix de molecules correspondant à INS0575 dans la colonne 5

J'espere que mon explication à été clair

Merci pour ton aide

 

[Bebere]

Re : lier une 3eme combo aux 2 autres

bonjour coolman
changements effectués

 

[coolman53]

Re : lier une 3eme combo aux 2 autres

Merci Bebere sa marche nikel

Par hasard es ce que que tu sais mettre des graphiques dans les userform??

 

[Bebere]

Re : lier une 3eme combo aux 2 autres

coolman
Fait une recherche dans le forum,clic Forum Excel,choisir recherche dans les forums
si problème je t'aiderai

 

[coolman53]

Re : lier une 3eme combo aux 2 autres

J'ai deja cherche mais je comprend pas du tt

J'ai meme fais un sujet sur le forum

 

[Bebere]

Re : lier une 3eme combo aux 2 autres

Coolman met un graphique dans le fichier et je ferai le code

 

[coolman53]

Re : lier une 3eme combo aux 2 autres

Salut Bebere

Je te mets le lien vers mon sujet parlant de cela comme sa tu saura vraiment ce que je veux

Merci d'avance

https://www.excel-downloads.com/threads/inserer-plusieurs-graphique-dans-userform.190808/

 

[Bebere]

Re : lier une 3eme combo aux 2 autres

bonjour Coolman
en pièce jointe un essai
ce n'est pas difficile de faire un graphique tout de même