Mélanger automatiquement les codes
Bonjour,
je voulais savoir si il était possible de mélanger automatiquement les codes sur Excel, je m'explique ce que vous voyez et classer dans l'ordre et en fait ce que je souhaiterais c'est que mes codes sois mélanger automatiquement parce que actuellement je suis obligé de le faire manuellement et ça me prend énormément de temps merci d'avance de votre aide.
bonjour,
Mettre cette formule en B1
= ALEA()
...et tirer la formule jusqu'en bas.
puis trier sur la colonne B !
A+
Bonjour,
Un peu plus élaboré à tester:
Sub Mélanger()
Dim codes(), chc$, chc0$, n%, i%, x%
n = ActiveSheet.Range("A1").End(xlDown).Row
For i = 1 To n
chc0 = chc0 & ChrW(i + 32)
Next i
Randomize
For i = 1 To n
x = Int(Len(chc0) * Rnd) + 1
chc = chc & Mid(chc0, x, 1)
chc0 = Replace(chc0, Mid(chc0, x, 1), "")
Next i
ReDim codes(1 To n, 1 To 1)
For i = 1 To n
x = Int(Len(chc) * Rnd) + 1
codes(i, 1) = AscW(Mid(chc, x, 1)) - 32
chc = Replace(chc, Mid(chc, x, 1), "")
Next i
With ActiveSheet
For i = 1 To n
codes(i, 1) = .Cells(codes(i, 1), 1)
Next i
.Range("A1:A" & n).Value = codes
End With
End SubDouble mélange, avec une méthode Galopin... Salut à lui !
Cordialement.
merci mais ça marche comment je vais dans visualisation du code après je l'enregistre mais comment ça fonctionne pour pouvoir mélanger les codes après impossible de trouver
bonjour,
Dans le ruban "Affichage", à droite tu as un bouton Macro choisir Afficher puis Exécuter
Bonjour Ferrand !
A+
Pour tester, tu cliques sur le bouton.
La macro est dans Module1.
Cordialement.
Galopin
ok super ça fonctionne merci
MFerrand a écrit :
Toutes mes excuses ! Je croyais bien avoir mis le fichier. Pour tester, tu cliques sur le bouton.
La macro est dans Module1.
Cordialement.
Galopin
t'inquiète pas c'est déjà super sympa à vous tous de m'aider en tout cas merci encore je vais revenir sur le forum parce que j'ai encore quelques questions à vous poser toutes mes questions ont eu une réponse je vous remercie