Erreur Aider moi !!!

Question

J'ai une erreur d'éxécution lorsque je clique sur un bouton qui choisit aléatoirement une ligne d'un listbox.
l'érreur est "Erreur d'éxécution 380
              valeur de propriété incorrecte."
Voici le code que j'ai mis pour choisir aléatoirement dans le listbox :

Private Sub Command1_Click()
Randomize

listA = Int(Rnd * 13) + 1
List1.ListIndex = listA

End sub 

Etienne
 P.S.: j'aimerais savoir pourquoi, et si quelqu'un à un code plus simple, merci de me l'evoyer.

dany108 · Answer

Si tu ne charges rien dans ta liste, c'est normal.

Mets ceci dans le Load de ta feuille :

For A = 1 To 13
    List1.AddItem A
Next

Et ça marche !!!!!!!!!!!

Orion · Answer

listA = Int(Rnd * 12) + 0
temp=userform1.List1.list(listA)
temp contiendra un element de la liste list1 comprit entre 0 et 12 (le premier element commence a 0)

Erreur Aider moi !!!

2 réponses

Discussions similaires