Lettres codées (mélanger des lettres)

Bonjour toutes et tous d'Excel-pratique.com ainsi que les internautes

Voilà, j'aimerai bien s'il est possible de trouver des améliorations ou des corrections sur ces lettres codées que j'ai réalisé avec l'aide

sur ce lien ci-dessous

https://www.excel-pratique.com/fr/telechargements/jeux-c10-p2.php

1/ S'il est possible de mélanger les lettres de la matrice ALPHA (lettres de l'alphabet) là je coince grave

2/ s'il est possible de sauvegarder soit en fichier texte le contenu de la grille et de pouvoir la réutiliser sur la feuil1 du classeur excel

merci d'avance

Bonjour,

Pour la question 1 voici 2 macros à mettre dans Module 1

Sub init()
Set melange = Nothing
j = 0
tirage
End Sub
Sub tirage()
Dim melange As New Collection
Dim i%, j%, k%, x%, o, v
If Selection.Columns.Count > 1 Then Exit Sub
x = 3
For Each o In [B3:AA3]
melange.Add o.Value
Next
k = melange.Count
Do While k > 0
If k > 0 Then
j = j + 1
i = Int((k * Rnd) + 1)
v = melange(i)
Cells(x, j + 1) = v
melange.Remove i
k = k - 1
End If
Loop
End Sub

... lancer la Sub init pour mélanger les lettres...

Pour la question 2 je n'ai rien compris.

A+

Merci beaucoup, je vais regardé

Rechercher des sujets similaires à "lettres codees melanger"