Discussion :

[awa123]

Bonjour,

J'aimerai savoir comment peut on faire pour changer aléatoirement la position d'un chiffre d'une valeur numérique;
Par exemple si nous avons la valeur 12345 je voudrais que le code prélève au hasard un chiffre, supposons que c'est le"4" et qu'il le réinjecte dans n'importe quelle position, le résultat final pourrai être 41235

Merci beaucoup

[d0n32]

Bonjour,

Avec ça tu peux récupérer le nombre de chiffres qui t'intéresse :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Mid("Vendredi", 5, 2) ' renvoie "re"

Tu peux faire un aléa sur la position du chiffre à récupérer (en intégrant la fonction valeur entière pour récupérer un entier), à l'aide d'une formule dans ton onglet, et l'insérer dans ton code vba par exemple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ENT(ALEA.ENTRE.BORNES(1;5))

où 5 est la longueur de ta chaîne de caractères, à régler.

Et ensuite dans ton VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Mid("Vendredi", TaCelulle.Value, 1)

Ca c'est pour récupérer un chiffre au pif. J'imagine qu'en suivant le même genre de démarche tu dois pouvoir l'insérer au pif dans ta chaîne de caractère, regarde peut-être là :
http://silkyroad.developpez.com/VBA/...nesCaracteres/

[mercatog]

Un fonction permettant de prendre un caractère aléatoire et de le mettre en début du mot

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function Reorganize(ByVal Tmp As String) As String
Dim n As Integer, i As Integer
 
n = Len(Tmp)
Randomize
i = Int(n * Rnd() + 1)
Reorganize = Mid(Tmp, i, 1) & IIf(i = 1, "", Left(Tmp, i - 1)) & IIf(i = n, "", Mid(Tmp, i + 1))
End Function

EDIT
Autre variante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function Reorganize(ByVal Tmp As String) As String
Dim n As Integer, i As Integer
Dim S As String
 
n = Len(Tmp)
Randomize
i = Int(n * Rnd() + 1)
S = Mid(Tmp, i, 1)
Mid(Tmp, i, 1) = "|"
Reorganize = S & Replace(Tmp, "|", "")
End Function

[awa123]

merci mercatog,

les fonctions fonctionnes bien mais ce qui me pose problème c'est que la valeurs qu'il prélève sont systématiquement réinjectées au début du nombre or ce que je cherche c'est qu'elles puissent être réinjectées à n'importe quelle position dans le nombre initial tout en conservant la succession initial.

exemple :

nombre initial "567890"

valeur prélevé "7"

réinjection aléatoire (par exemple à la deuxième position ): "576890" ==> on remarque qu’après la réinjection l'ordre des valeurs au sein du nombre est conservé

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function ChangePos(ByVal Tmp As String) As String
Dim n As Integer, i As Integer, j As Integer
 
n = Len(Tmp)
Randomize
i = Int(n * Rnd() + 1)
Do
    j = Int(n * Rnd() + 1)
Loop Until Abs(i - j) > 1 'ici on peut mettre simplement Loop Until i<>j mais on auras des situation où le résultat est identique au mot initial
 
Tmp = Left(Tmp, j - 1) & Mid(Tmp, i, 1) & Mid(Tmp, j)
 
If i > j Then i = i + 1
Mid(Tmp, i, 1) = "|"
 
ChangePos = Replace(Tmp, "|", "")
End Function