2 listbox, données dans 2e listbox, error

[news]

Bonjour à tous du forum,

j'ai un Userform avec 2 listbox. En sélectionant un critère(une langue) de listbox1 que les données respectives sont mises dans l'autre listbox4.

J'utilise le code suivante :

ListBox4.Enabled = False
ListBox4.Locked = False

If ListBox4.Value = "english" Then
ListBox4.RowSource = "ref.!H2:H" & Sheets("ref.").Range("H65536").End(xlUp).Row
ElseIf ListBox4.Value = "german" Then
ListBox4.RowSource = "ref.!I2:I" & Sheets("ref.").Range("I65536").End(xlUp).Row
End If

J'ai recherché d'astuces sur ce forum, mais ne pouvant pas utiliser les codes vba, comme le critère de sélection avec des variables est différent.
D'ailleurs avec les variables je ne me retrouve pas, ne sait pas comment utiliser le code vba.

ci-joint fichier explicite,

 

[Compte Supprimé 979]

Re : 2 listbox, données dans 2e listbox, error

Re,

Ton code n'est pas correcte

Private Sub ListBox1_Click()
' ************** to devellop still that the correct listbox is selected depinding which language selected
' to develop vba code that the correct text is but in listbox4
ListBox4.Enabled = False     ' click in that listbox is possible
ListBox4.Locked = False      ' listbox can be modified
    
' ******************************************* bug, ne fonctionne pas
Select Case ListBox1.List(ListBox1.ListIndex)
  Case "french"
  ListBox4.RowSource = "ref.!G2:G" & Sheets("ref.").Range("G65536").End(xlUp).Row  'main langauge
  Case "english"
  ListBox4.RowSource = "ref.!H2:H" & Sheets("ref.").Range("H65536").End(xlUp).Row  'main langauge
  Case "german"
  ListBox4.RowSource = "ref.!I2:I" & Sheets("ref.").Range("I65536").End(xlUp).Row  'main langauge
  Case "hindi"
  ListBox4.RowSource = "ref.!J2:J" & Sheets("ref.").Range("J65536").End(xlUp).Row  'main langauge
  Case "chinese"
  ListBox4.RowSource = "ref.!K2:K" & Sheets("ref.").Range("K65536").End(xlUp).Row  'main langauge
  Case "russian"
  ListBox4.RowSource = "ref.!L2:L" & Sheets("ref.").Range("L65536").End(xlUp).Row  'main langauge
End Select
...

En revanche je ne sais pas à quoi te sert ton "Dictionnary" et en plus il ne peut pas être utilisé comme tu le souhaites (ça fait planter ton USF)

A+

 

[news]

Re : 2 listbox, données dans 2e listbox, error

Bonsoir à tous du forum,

merci BrunoM45 pour ta réponse. Le vba code fonctionne très bien,

Select Case ListBox1.List(ListBox1.ListIndex)

Ce vba code je ne connaissais pas, même ayant parcouru et lu beaucoup d'explications sur les Userform.

news