Problème d'initialisation d'une listbox dans un formulaire.

Question

Bonjour, j'ai rencontr&#233; un probl&#232;me que j'ai contourn&#233; mais j'aimerai bien comprendre.
Je fait des macro dans Excel2002
J'ai un formulaire (frm) avec une listbox (ListBox1).
Une proc&#233;dure initialise les donn&#233;es du formulaire:

sub init()

frm.ListBox1..ListBox1.RowSource  = "Feuil1!b12:b23"
frm.ListBox1.ListBox1.ControlSource = "Feuil1!b10"

' puis viens le probl&#232;me:If IsError(frmChoixJeux.ListBox1.Value myRange1.Value) False Then
   frm.ListBox1.Value = myrange.value
   call sub2      ' sub2 est une proc&#233;dure qui travaille &#224; partir de frm.ListBox1.Value
end if

end sub
Le probl&#232;me est double
- la ligne If IsError est l&#224; au cas o&#249; myrange.value n'appartient &#224; la ListBox, mais &#231;a ne marche pas, le programme passe la ligne if et m'affiche un message d'erreur derri&#232;re!!!
- bien que myrange.Value soit non vide frm.ListBox1.Value reste invariablement vide (=""). Alors que RowSource et ControleSource sont initialis&#233;s corr&#232;ctement?!

Si vous avez une id&#233;e n'h&#233;sitez pas &#224; &#233;clairer ma lanterne, merci .

jpleroisse · Answer

Bonsoir,



Ton code n'est pas tr&#232;s clair. frm.LixtBox1.ListBox1, ensuite c'est quoi

frm.ListChoisJeux ??

Peux pas t'aider comme cel&#224;, met plus de code et explique mieux .



jpleroisse

Kanar1979 · Answer

Oups, petite erreur de copier col&#233;, J'ai voulu racourcir les noms pour pas encombrer, mal m'en a pris. Voil&#224;, pour tester le truc j'ai pris le petit code suivant:

Sub init()


    Dim myrange As Range
    
    frmChoixJeux.ListBox1.RowSource = "Data!b14:b19"
    frmChoixJeux.ListBox1.ControlSource = "Data!b12"
    
    Set myrange = Range("d17")
    
    ' puis viens le probl&#232;me:    If IsError(frmChoixJeux.ListBox1.Value myrange.Value) False Then
          frmChoixJeux.ListBox1.Value = myrange.Value
          Call AjoutJeux     ' AjoutJeux est une proc&#233;dure qui travaille &#224; partir de frm.ListBox1.Value
    End If


End Sub

Les probl&#232;mes restent le m&#234;me, frmChoixJeux.ListBox1.Value ne prend pas la valeur de myrange, et la commande IF IsError n'emp&#232;che absolument pas l'affichage d'un message d'erreur une ligne plus loin 
************************************************
95 fois sur 100, un probl&#232;me informatique se situe entre le clavier et la chaise...

Problème d'initialisation d'une listbox dans un formulaire.

2 réponses

Discussions similaires