Boucle d'affichage

Bonjour à tous,

je voudrais créer une boucle (1 à 10) pour afficher des nombres ( 4 fois un nombre pioché) contenus dans les lignes ?

je joins un exemple.

merci

Bonjour,

Une proposition

A+

Bonjour Frangy

Merci pour ta proposition mais la boucle ne va pas: c'est faire 10 fois de suite l'affichage en colonne F1:F4 (donc un seul nombre) d'un nombre parmi les 5 sur chaque ligne ( pioche au hasard)

Est-ce plus clair?

merci

Re-bonjour,

Tu peux adapter la procédure :

Private Sub Tirage_Click()
Dim Valeur As Integer
Dim Tirage As Byte, Ligne As Byte
    For Tirage = 1 To 10
        For Ligne = 1 To 4
            Randomize
            Valeur = Int((5 * Rnd) + 1)
            Cells(Ligne, 6) = Cells(Ligne, Valeur)
        Next Ligne
        MsgBox "Tirage numéro " & Tirage
    Next Tirage
End Sub

A+

Merci à toi, c'est parfait.

a+