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