Bonjour le forum,
Et bien voilà mon souci, j’ai repris un exemple de Monsieur Jacques Boisgontier, sur son site,
Formation Excel VBA JB exemple est celui-ci, http://boisgontierjacques.free.fr/fichiers/Formulaire/FormCascadeService.xls .
Je n’ai fait que descendre de deux lignes la sélection du combobox est j’ai une erreur de type,
Erreur d'exécution 380 :
Impossible de définir la propriété ListBox.
Valeur de propriété non valide.
Le code est :
Private Sub UserForm_Initialize()
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range(Sheets("BD-Client").[B4], Sheets("BD-Client").[B65000].End(xlUp))
If Not mondico.Exists(c.Value) Then mondico.Add c.Value, c.Value
Next c
Me.ComboBox1.AddItem "*"
For Each i In mondico.items
Me.ComboBox1.AddItem i
Next
Me.ComboBox1.ListIndex = 0
End Sub
Private Sub ComboBox1_Change()
i = 0
Me.ListBox1.Clear
For Each c In Range(Sheets("BD-Client").[A4], Sheets("BD-Client").[A65000].End(xlUp))
If c.Offset(0, 1) = Me.ComboBox1 Or Me.ComboBox1 = "*" Then
Me.ListBox1.AddItem c
i = i + 1
End If
Next c
Me.ListBox1.ListIndex = 0
End Sub
Private Sub ListBox1_Click()
Set c = Sheets("BD-Client").[A:A].Find(what:=Me.ListBox1)
If Not c Is Nothing Then
Me.TextBox1 = Sheets("BD-Client").Cells(c.Row, 1)
Me.TextBox2 = Sheets("BD-Client").Cells(c.Row, 2)
Me.TextBox3 = Sheets("BD-Client").Cells(c.Row, 3)
Me.TextBox4 = Sheets("BD-Client").Cells(c.Row, 4)
Me.TextBox5 = Sheets("BD-Client").Cells(c.Row, 5)
Me.TextBox6 = Sheets("BD-Client").Cells(c.Row, 6)
Me.TextBox7 = Sheets("BD-Client").Cells(c.Row, 7)
Me.TextBox8 = Sheets("BD-Client").Cells(c.Row, 8)
Me.TextBox9 = Sheets("BD-Client").Cells(c.Row, 9)
Me.TextBox10 = Sheets("BD-Client").Cells(c.Row, 10)
End If
End Sub
Si quelqu’un pouvait m’éclairer là dessus, ce serai gentil de sa part.
En espérant que ce soit pas trop grave, "je parle de mon cerveau bien sur"
Merci d'avance,
Amicalement PAD
Et bien voilà mon souci, j’ai repris un exemple de Monsieur Jacques Boisgontier, sur son site,
Formation Excel VBA JB exemple est celui-ci, http://boisgontierjacques.free.fr/fichiers/Formulaire/FormCascadeService.xls .
Je n’ai fait que descendre de deux lignes la sélection du combobox est j’ai une erreur de type,
Erreur d'exécution 380 :
Impossible de définir la propriété ListBox.
Valeur de propriété non valide.
Le code est :
Private Sub UserForm_Initialize()
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range(Sheets("BD-Client").[B4], Sheets("BD-Client").[B65000].End(xlUp))
If Not mondico.Exists(c.Value) Then mondico.Add c.Value, c.Value
Next c
Me.ComboBox1.AddItem "*"
For Each i In mondico.items
Me.ComboBox1.AddItem i
Next
Me.ComboBox1.ListIndex = 0
End Sub
Private Sub ComboBox1_Change()
i = 0
Me.ListBox1.Clear
For Each c In Range(Sheets("BD-Client").[A4], Sheets("BD-Client").[A65000].End(xlUp))
If c.Offset(0, 1) = Me.ComboBox1 Or Me.ComboBox1 = "*" Then
Me.ListBox1.AddItem c
i = i + 1
End If
Next c
Me.ListBox1.ListIndex = 0
End Sub
Private Sub ListBox1_Click()
Set c = Sheets("BD-Client").[A:A].Find(what:=Me.ListBox1)
If Not c Is Nothing Then
Me.TextBox1 = Sheets("BD-Client").Cells(c.Row, 1)
Me.TextBox2 = Sheets("BD-Client").Cells(c.Row, 2)
Me.TextBox3 = Sheets("BD-Client").Cells(c.Row, 3)
Me.TextBox4 = Sheets("BD-Client").Cells(c.Row, 4)
Me.TextBox5 = Sheets("BD-Client").Cells(c.Row, 5)
Me.TextBox6 = Sheets("BD-Client").Cells(c.Row, 6)
Me.TextBox7 = Sheets("BD-Client").Cells(c.Row, 7)
Me.TextBox8 = Sheets("BD-Client").Cells(c.Row, 8)
Me.TextBox9 = Sheets("BD-Client").Cells(c.Row, 9)
Me.TextBox10 = Sheets("BD-Client").Cells(c.Row, 10)
End If
End Sub
Si quelqu’un pouvait m’éclairer là dessus, ce serai gentil de sa part.
En espérant que ce soit pas trop grave, "je parle de mon cerveau bien sur"
Merci d'avance,
Amicalement PAD