Difficulté pour récupérer valeur listbox

Bonjour,

Je suis nouveau sur le forum et sur vba.

J'ai suivi avec le plus d'assiduité les cours de vba, mais j'arrive à la limite de mes maigres compétences.

Mon problème est le suivant je dispose de 3 listbox qui sont alimentées sans problème.

Je choisis une valeur dans chacune d'elles de manière aléatoire.

Le problème est que je n'arrive pas récupérer la valeur que le random à pointer avec listindex.

Private Sub alea_Click()
x = ListBox1.ListCount
y = ListBox2.ListCount
z = ListBox3.ListCount

If x = 0 Then
Else

    If y = 0 Then
    Else

        If z = 0 Then
        Else
        Randomize
        x = Int((x * Rnd) + 1)
        y = Int((y * Rnd) + 1)
        z = Int((z * Rnd) + 1)

        ListBox1.ListIndex = x
        ListBox2.ListIndex = y
        ListBox3.ListIndex = z

        type1 = ListBox1.Value
        adresse1 = ListBox2.Value
        role1 = ListBox3.Value

        End If

    End If

End If
End Sub

La solution doit être très simple mais je bloque depuis 2 jours.

Merci par avance aux contributeurs qui prendront sur leurs temps pour m'aider.

Bien à vous.

Bonjour et bienvenu sur le forum

Il manque d'explication

un fichier est TOUJOURS le bienvenu

Est ce des listbox dans un userform ou sur une feuille?

Bref

Ci joint ma solution

A+ François

Bonjour,

Merci Fanfan pour ton aide.Je joins mon fichier.

Procédure sur les "Bouton aléatoire" et "Bouton généré".

Le problème est que je pointe sur une ligne de ma listbox.

J'ai bien un index mais je ne récupère pas la valeur correspondante ou bien de manière aléatoire.

Cela dépasse mon entendement et mes compétences.

Encore merci pour votre intérêt pour mon problème.

Re bonjour,

Je teste à l'instant ton fichier d'aide et je constate que lorsque j'appuie sur le bouton plusieurs fois de suite la procédure finie par planter !?!

Je suis dépassé clairement largué !

@+

Bonjour

Ci joint ma solution

A+ François

ps: en cas de plantage (où, quand, comment...)

Bonsoir,

Super, nickel, parfait !

Merci pour votre aide, j'espère un jour pouvoir rendre la pareille si mon modeste niveau le permet !

Concernant le plantage ci-dessous des captures d'écrans.

Sur la feuille après 8 clicks sur le bouton :

Dans l'éditeur VBA :

Encore grand merci, je clos le post.

@+