Choix aléatoire avec conditions

[Lone-wolf]

Bonjour à tous,

après mintes recherches, je refais appel aux magiciens de l'informatique.


Voilà, dans la feuille Data, j'ai nommé les 52 (/13) cartes, à savoir:
trefle-carreau-coeur et pique.

J'aimerais que la macro choisisse aléatoirement, 1 à 6 cartes maximum,
parmi les couleurs et les affiche par groupe dans le formulaire.

Exemple: 7-8-9 de Trèfle, 9-10-Dame et As de Carreau,

Dame-Rois et As de Pique, 2-10-As de Coeur.

Fichier exemple

 

[Lone-wolf]

Re : Choix aléatoire avec conditions

je viens d'inserer ceci en ligne (For k):

Dim Img As String
Dim x As Long, k As Long
Dim Fichier As String, txt As String
Dim i!
Dim j As Long
Dim rdn As Long
Dim ligneInsertion As Integer
ligneInsertion = 1
Dim CarteDispos As Long
Dim sens As String
Fichier = ThisWorkbook.Path
Randomize

Img = ThisWorkbook.Path & "\face.bmp"
For x = 1 To 39
UserForm1.Controls("Image" & x).Picture = LoadPicture(Img)
Next x

Sheets("Data").Range("B1:B65536").ClearContents
For k = 40 To 52
 sens = IIf(k = 13, "Cartes\", "")
    rdn = Int((Rnd() * (52 - ligneInsertion) + 1))
    txt = Fichier & "\" & sens & Range("E1:E52").Value2(rdn, 1) & ".bmp"
    Sheets("Data").Range("B" & ligneInsertion) = Range("E1:E52").Value2(rdn, 1)
    ligneInsertion = ligneInsertion + 1
    With UserForm1.Controls("Image" & k).Picture = LoadPicture(txt)
        .Visible = True
        End With
Next k

J'ai une erreur d'exécution 53 - Fichier introuvable

 

[Cousinhub]

Re : Choix aléatoire avec conditions

Bonjour,

Juste en passant....

....
For k = 40 To 52
 sens = IIf(k = 13, "Cartes\", "")
....

Comment veux-tu que k = 13?????????

 

[Lone-wolf]

Re : Choix aléatoire avec conditions

Et bien, j'ai mal raisonné je crois.

For k = 40 To 52 correspond aux 13 images de base.

et dans IIf(k = 13, "Cartes\", "") j'ai voulu qu'il choisisse 13 cartes parmis les 52 du dossier.