ListBox dans USF

[phil69]

Bonjour le forum


J'ai recuperer sur le forum un fichier qui corespond tout à fait à ce que je
cherchai,mais apres des modifs j'ai une ListBox qui ne fonctionne plus,pourtant
je n'ai que redefini les plages et changé leur nom,pour les ComboBox ,nikel,mais pour la liste box,misere.je joint mon fichier pour lequel je n'ai pas changé le nom ce qui permet de trouver l'original sur le forum.
merci à toutes et tous
phil69

 

[Habitude]

Re : ListBox dans USF

Range("Model")(i) retourne un nombre
combobox4 retourne du texte
Donc...

Private Sub ComboBox4_Change()
  Dim modele As string
  Set Dico = CreateObject("Scripting.Dictionary")
  
  For i = 1 To Range("Prêt").Count
    modele = IIf(IsNumeric(Range("Model")(i)), Str(Range("Model")(i)), Range("Model")(i))
    If Trim(modele) = ComboBox4 And _
    Range("Marque")(i) = ComboBox3 And _
    Range("Statut")(i) = ComboBox2 And _
    Range("Famille")(i) = ComboBox1 Then
       temp = Range("Prêt")(i)
       If Not Dico.Exists(temp) Then Dico.Add temp, temp
    End If
  Next i
    With ListBox2
        .Visible = True
        .Clear
        .List = Dico.items
        .ListIndex = -1
    End With
    Label8.Visible = True
End Sub

 

[phil69]

Re : ListBox dans USF

RE boujour

merci j'essaye tout de suite
phil69

 

[phil69]

Re : ListBox dans USF

bonjour le forrum


Apres essai ,ça fonctionnne bien,mais peut-on avoir du nimerique ,du texte et les deux.
merci
phil69

 

[Habitude]

Re : ListBox dans USF

Les combobox ne gère que du texte.

Je suis curieux, à quoi pourrait bien te servir du numérique?

 

[phil69]

Re : ListBox dans USF

bonjour le forum


j'ai besoin des trois configuration car les models peuvent avoir comme reference du texte ,du nombre ou les deux ex😛our la marque nokia les models sont des nombres comme le 3210,4585 etc pour la marque hover model=telios etc pour d'autres marques model bn55 ou bar789 etc

voila ou est mon probleme
en tout cas merci de vous y interresser
phil69

 

[Habitude]

Re : ListBox dans USF

Mais la fonction converti tout en texte
De même que le combobox qui converti tout en texte

 

[phil69]

Re : ListBox dans USF

Re bonjour

je ne comprend pas la reponse ,si je met le code indiqué plus haut ça fonctionne bien mais si je remplace un model en chiffre par une letrre A ça bloque si je selectionne le model A par contre si je selectionne le model 11

erreur si je selectionne le model 11 ça bloc aussi

merci
phil69

 

[Habitude]

Re : ListBox dans USF

ok oui, petit problème avec isnumeric et string

Essaie ca

Private Sub ComboBox4_Change()
  Dim modele As Variant
  Set Dico = CreateObject("Scripting.Dictionary")
  
  For i = 1 To Range("Prêt").Count
    modele = Range("Model")(i)
    If IsNumeric(Range("Model")(i)) Then modele = Trim(Str(modele))
    If modele = ComboBox4 And _
    Range("Marque")(i) = ComboBox3 And _
    Range("Statut")(i) = ComboBox2 And _
    Range("Famille")(i) = ComboBox1 Then
       temp = Range("Prêt")(i)
       If Not Dico.Exists(temp) Then Dico.Add temp, temp
    End If
  Next i
    With ListBox2
        .Visible = True
        .Clear
        .List = Dico.items
        .ListIndex = -1
    End With
    Label8.Visible = True
End Sub

 

[phil69]

Re : ListBox dans USF

re le forum

Trop fort,c'est le top

encore merci
phil69