Modifier la dernière ligne de code

Lone-wolf

XLDnaute Barbatruc
Bonjour à tous,

J'aimerais modifier cette ligne: Range("b8:k13").Value = WorksheetFunction.Choose(Tablo, plage). Malheureusement la fonction n'accepte que 30 arguments et dans le code il y en a 52; j'ai pensé à Index, mais je n'arrive pas à l'adapter au code.


Merci d'avance




A+ :cool:
 

Pièces jointes

  • Classeur1.xls
    44.5 KB · Affichages: 43
  • Classeur1.xls
    44.5 KB · Affichages: 38
  • Classeur1.xls
    44.5 KB · Affichages: 42

Modeste geedee

XLDnaute Barbatruc
Re : Modifier la dernière ligne de code

Bonsour®
Bonjour à tous,

J'aimerais modifier cette ligne: Range("b8:k13").Value = WorksheetFunction.Choose(Tablo, plage). Malheureusement la fonction n'accepte que 30 arguments et dans le code il y en a 52; j'ai pensé à Index, mais je n'arrive pas à l'adapter au code.

:cool:
avant de modifier le code , il faudrait d'abord faire une analyse ...
:confused:
tirer 60 valeurs sur 52 , il y aura des doublons !!!

piece jointe sans macro... 52= 4 x 13
Capture.jpg
 

Pièces jointes

  • 52cartes.xls
    67.5 KB · Affichages: 34
  • Capture.jpg
    Capture.jpg
    47.4 KB · Affichages: 85
  • Capture.jpg
    Capture.jpg
    47.4 KB · Affichages: 93

Lone-wolf

XLDnaute Barbatruc
Re : Modifier la dernière ligne de code

Bonjour à tous,

@ Modeste geedee: voici en vba, le fichier retouché suite aux conseils que tu m'as donné.

Edit: il faut cliquer sur l'image.




A+ :cool:
 

Pièces jointes

  • Speed-Solitaire.xls
    56 KB · Affichages: 51
Dernière édition:

Modeste geedee

XLDnaute Barbatruc
Re : Modifier la dernière ligne de code

Bonsour®
:rolleyes: bien pour l'affichage des valeurs faciales

mais Spider solitaire se joue avec 2 fois 52 cartes
au depart 54 cartes sont sur le tapis , 10 seulement sont découvertes, 50 cartes restent au talon

ton algorithme ne permet pas l'unicité du tirage ( c-a-d seulement 2 cartes de chaque couleur et valeur)


nb:
s'il te plait dans le premier message de ce fil , met un titre plus en rapport avec le sujet, merci
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 799
Messages
2 092 239
Membres
105 298
dernier inscrit
doudounapnap