selection avec un combobox

[poussy67]

bonjour le forum


j'aurai besoin d'aide, de limité l'affichage dans un combobox de limité par famille. Avec un combobox je selectionne une famille et je retrouve dans les combobox 1 et 2 que les données par famille.

cdt poussy

ci joint un exemple

 

[skoobi]

Re : selection avec un combobox

Bonjour,

Voici un exemple:

Private Sub ComboBox3_Change()
Dim Code As Range
If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData
[I1].AutoFilter field:=9, Criteria1:=ComboBox3.Value
ComboBox1.Clear: ComboBox2.Clear
For Each Code In Range("B2", [B65536].End(xlUp)).SpecialCells(xlCellTypeVisible)
  ComboBox1.AddItem Code.Value
  ComboBox2.AddItem Code.Offset(0, 6).Value
Next

End Sub

 

[poussy67]

Re : selection avec un combobox

bonjour le forum

Merci pour ton code skoobi, je l'ai intégré dans mon USF cela fonctionne presque j'ai une erreur qui aparait (erreur d'execution 1004). Quand je selectionne une famille dans le combobox 1 et 3 je l'ai retrouve mais quand je veux les selectionne cela plante

Private Sub ComboBox4_Change()
Dim Code As Range
If ActiveSheet.AutoFilterMode Then Sheets("ETISCH").Activate
[J1].AutoFilter field:=10, Criteria1:=ComboBox4.Value
ComboBox1.Clear: ComboBox3.Clear
For Each Code In Range("B2", [B65536].End(xlUp)).SpecialCells(xlCellTypeVisible)
ComboBox1.AddItem Code.Value
ComboBox3.AddItem Code.Offset(0, 7).Value
Next

End Sub
Private Sub ComboBox1_Change()
ComboBox3.Value = Sheets("ETISCH").Cells(ComboBox1.ListIndex + 1, 2).Value
Labdurevie1.Caption = Sheets("ETISCH").Cells(ComboBox1.ListIndex + 1, 8).Value
Labfinvie3.Caption = Sheets("ETISCH").Cells(ComboBox1.ListIndex + 1, 8).Value
Labfinvie2.Caption = Sheets("ETISCH").Cells(ComboBox1.ListIndex + 1, 8).Value
Label48.Caption = Sheets("ETISCH").Cells(ComboBox1.ListIndex + 1, 8).Value

Sheets("BDF").Range("B21").Value = Labfinvie2
End Sub
Private Sub ComboBox3_Change()
ComboBox1.Value = Sheets("ETISCH").Cells(ComboBox3.ListIndex + 1, 2).Value
Labdurevie1.Caption = Sheets("ETISCH").Cells(ComboBox3.ListIndex + 1, 8).Value
Labfinvie3.Caption = Sheets("ETISCH").Cells(ComboBox3.ListIndex + 1, 8).Value
Labfinvie2.Caption = Sheets("ETISCH").Cells(ComboBox3.ListIndex + 1, 8).Value
Label48.Caption = Sheets("ETISCH").Cells(ComboBox3.ListIndex + 1, 8).Value
Sheets("BDF").Range("B21").Value = Labfinvie2


Cdt poussy

 

[porcinet82]

Re : selection avec un combobox

Salut,

En l'absence de Skoobi, je vais tenter de t'apporter un élément de réponse. Tu ne pas mettre la ligne de code ComboBox1.value = Sheets("ETISCH").Cells(ComboBox3.ListIndex + 1, 2).Value car une combo s'implémente...

Je ne sais pas exactement ce que tu veux faire, mais il faut plutot utiliser quelque chose de ce genre :
ComboBox1.AddItem (Sheets("ETISCH").Cells(ComboBox3.ListIndex + 1, 2).Value)

Ensuite, tu veux avoir uniquement la valeur contenu dans la cellule enquestion, tu mets juste avant un ComboBox1.Clear

@+

 

[poussy67]

Re : selection avec un combobox

bonjour le forum


Merci à skoobi et porcinet82 pour votre aide. Le principe me convient, mais j'ai essayer de intégrer les codes mais pas moyen cela fonctionne pas j'ai plein de message erreur.
Mais j'ai essayer plusieurs possobilité mais sans résultat

cdt poussy

ci joint le fichier excel

 

[porcinet82]

Re : selection avec un combobox

Salut,

Je pense que c'est du au fait que tu utilises ComboBox3.List = Sheets("BDF").Range("a2:a13").Value, mais comme je n'utilise jamais cette fonction...

Essais de mettre plutot une boucle avec un additem pour remplir tes combo...

@+

 

[jp14]

Re : selection avec un combobox

Bonjour

Ci joint les procédures pour l'userform1.
A importer dans le fichier excel.
Pour remplir les combobox1 et 2 j'utilise une procédure paramètrable.

Si on utilise la propriété RowSource il ne faut pas oublier de la mettre à blanc pour utiliser Additem


A tester

 

[poussy67]

Re : selection avec un combobox

re bonjour


Des que je sélectionne une famille ça plante toujours, On sélectionne une famille, on retrouve le combobox codes que les codes concerné par la famille sélectionné. On sélectionne un code on retrouve les données, libellé et durée à rapport au code et la famille sélectionner


cdt poussy

ci joint le fichier avec plus de détails

 

[jp14]

Re : selection avec un combobox

Bonsoir

Ci joint le fichier avec les procédures modifiées.
Affichage du premier combo
Affichage du deuxième combo
Affiche du troisième
En fonction de la valeur affichage dans le label.

A tester

JP

 

[poussy67]

Re : selection avec un combobox

Bonjour le forum


Merci JP14 pour ton exemple, cela me convient. Et il possible après avoir sélectionné la famille, que le combobox code et libellé s'affiche avec les donnée correspondant


cdt poussy


ci joint exemple.

encore merci pout ton aide

 

[jp14]

Re : selection avec un combobox

Bonjour

Ci dessous code à tester en utilsant le fichier test3B.zip

Private Sub ComboBox1_Change() 
Dim lig As Long
Application.EnableEvents = False
If ComboBox1.ListIndex = -1 Then Exit Sub
lig = CLng(ComboBox1.List(ComboBox1.ListIndex, ComboBox1.ColumnCount - 1))
    If lig > 0 Then
    With Sheets("ETISCH")
        Label1.Caption = .Range("h" & lig).Value
        Label1.Visible = True
        Label5.Visible = True
    End With
    End If
Application.EnableEvents = True
End Sub

Private Sub ComboBox2_Change()
Dim lig As Long
Application.EnableEvents = False
If ComboBox2.ListIndex = -1 Then Exit Sub
lig = CLng(ComboBox2.List(ComboBox2.ListIndex, ComboBox2.ColumnCount - 1))
    If lig > 0 Then
    With Sheets("ETISCH")
        Label1.Caption = .Range("h" & lig).Value
        Label1.Visible = True
        Label5.Visible = True
    End With
    End If
Application.EnableEvents = True


End Sub

Private Sub ComboBox3_Change()
Application.EnableEvents = False
ComboBox2.RowSource = ""
 Call remplistbox(£valeur:=ComboBox3.Value & ComboBox3.Value, _
£col:="B", _
£offset1:=8, _
£offset2:=8, _
£nomfeuille:="ETISCH", _
£numco:=2)
ComboBox2.Visible = True
Label3.Visible = True

ComboBox1.RowSource = ""
 Call remplistbox(£valeur:=ComboBox3.Value & ComboBox3.Value, _
£col:="i", _
£offset1:=1, _
£offset2:=1, _
£nomfeuille:="ETISCH", _
£numco:=1)
ComboBox1.Visible = True
Label4.Visible = True

Application.EnableEvents = True
End Sub

JP

 

[poussy67]

Re : selection avec un combobox

Bonjour le forum

Bonjour JP14, merci pour le temps que tu me consacres. Avec ta VBA aurait on la possibilité de faire une liaison avec le combobox1 et 2 dans le style ComboBox1.Value = Sheets("ETISCH").Cells(ComboBox2.ListIndex + 1, 8) .Value dans les 2 sens, car sans cette possibilité, on peut mélanger le code et le libellé qui est une erreur.

cdt Poussy

ci joint un exemple

 

[jp14]

Re : selection avec un combobox

Bonjour

Ci joint le fichier modifié.
J'ai rajouté le code suivant
ComboBox1.listindex=ComboBox2.listindex et réciproquement.

JP