Fonction SHUFFLE en VBA ?

Bonjour,

Je voudrais créer une matrice (Tableau ?) de 4 lignes et 13 colonnes dont chaque élément soit un entier naturel entre 1 et 52 sans répétition et de façon aléatoire.

Je cherche à simuler la distribution une à une des 52 cartes d'un jeu ; merci de votre aide.

Amitiés

Bonjour,
Une proposition.
Cdlt.

=ORGA.LIGNES(TRIERPAR(SEQUENCE(52);TABLEAU.ALEA(52));4)

Merci

J'ai du mal expliquer, je débute sur le forum et aussi un peu en VBA

Je cherche un script VBA Excel office 365.

Aucune des fonctions de ta formule n'est reconnue (Nom?).

Merci encore / Cordialement

RE,
Une proposition VBA pour Excel 365.
Cdlt.

Public Sub XXX()
    With ActiveSheet.Range("A1")
        .Formula2R1C1 = "=WRAPROWS(SORTBY(SEQUENCE(52),RANDARRAY(52)),4)"
        .Resize(13, 4).Value = .Resize(13, 4).Value
    End With
End Sub

Bonjour à tous

Cardinal361 a écrit :

Aucune des fonctions de ta formule n'est reconnue (Nom?).

2401 n'étant pas une version Excel mais une révision pouvant s'appliquer à plusieurs versions (2016, 2019, 2021, 365...), si tu vérifiais ta version et modifiais ton profil, cela te permettrait de recevoir des solutions correspondant à ta version...

Merci

J'ai Microsoft Office Famille et étudiant 2019

J'ai mis 2019 FR dans le profil, j'espère que c'est ça.

Amitiés