IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Changer la position d'un chiffre sur une valeur numérique [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    Étudiant
    Inscrit en
    Octobre 2012
    Messages
    361
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Octobre 2012
    Messages : 361
    Par défaut Changer la position d'un chiffre sur une valeur numérique
    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

  2. #2
    Membre éclairé
    Homme Profil pro
    Ingénieur
    Inscrit en
    Janvier 2010
    Messages
    272
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2010
    Messages : 272
    Par défaut
    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/

  3. #3
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    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

  4. #4
    Membre éclairé
    Homme Profil pro
    Étudiant
    Inscrit en
    Octobre 2012
    Messages
    361
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Octobre 2012
    Messages : 361
    Par défaut
    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é

  5. #5
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Récupérer la position d'un clic sur une image
    Par visio dans le forum OpenCV
    Réponses: 1
    Dernier message: 24/10/2007, 08h06
  2. [Excel] changer la position d'un mot dans une cellule
    Par VlaMonPseudo dans le forum Excel
    Réponses: 3
    Dernier message: 25/07/2007, 16h05
  3. Changer la position d'un attribut dans une table?
    Par gui38 dans le forum Langage SQL
    Réponses: 7
    Dernier message: 06/01/2007, 21h27
  4. Réponses: 5
    Dernier message: 09/09/2006, 23h49
  5. [DHTML]position de la souris sur une image
    Par Daï2 dans le forum Balisage (X)HTML et validation W3C
    Réponses: 3
    Dernier message: 18/05/2006, 15h57

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo