Effectuer un petit tirage au hasard

Bonjour a tous, forum bonjour

Je souhaiterai svp en cliquant sur un bouton lancer une macro qui effectuerai un tirage au

hasard de 7 chiffres sur 20

Voir svp le fichier ci-joint pour explications simples.

Merci pour votre aide bonne fin d'après midi a vous

Cdlt Raymond

Salut Ray,

voici ton fichier!

Public Sub TirageRND()
'
Range("J22:P22").ClearContents
For x = 1 To 7
    Do
        iFlag = Int(Rnd * 20) + 1
        iOK = 1
        For y = 1 To x
            If Cells(22, 9 + y) = Cells(12, 2 + iFlag) Then iOK = 0
        Next
    Loop Until iOK = 1
    Cells(22, 9 + x) = Cells(12, 2 + iFlag)
Next
Range("J22:P22").Sort key1:=Range("J22"), order1:=xlAscending, Orientation:=xlSortRows
'
End Sub

Avec plaisir!

A+

Salut curulis57,

Merci de ta réponse et pour la macro

ça fonctionne comme souhaiter

J'ai adapter a mon programme et c'est bon, merci de partager ton savoir.

je te souhaite la bonne soirée avec encore un grand merci a toi

Ha oui, j'ai mis

Dim X

c'est bon ???

Bien cordialement Raymond

Salut Ray,

Si tu veux déclarer tes variables...

Dim X, Y As Integer

autrement sans 'As', tu déclares un tableau...

A+

Bonsoir,

C'est ça :

Dim X as Integer, Y As Integer

ou ça :

Dim X%, Y%

Comme vous préférez. Mais pas de demi mesure !

A+

Salut curulis57,

Salut galopin01,

Merci pour vos réponses,

On m'a toujours dit et je l'ai lu maintes fois qu'il fallait déclarer les variables.

Et dans VBA il y a Option Explicit pour le rappel a l'ordre, alors je le fait.

Donc tout est bon et vous aussi ça fonctionne très bien.

Je vous souhaite une excellente journée, encore merci

Bien cordialement Raymond