M. ÉRIIIC-Énigme Excel -Charivari

Résolu
grastapopoulos -  
 grastapopoulos -
Bonjour,

J'aimerais savoir comment faire!!!!

J'ai une liste de mots.

20 mots dans la colonne A.

voyage
brique
chambre
couverture

etc.

En appuyant sur F9 (par exemple) les lettres de la liste changeraient automatiquement.

Exemple:
voyage deviendrait egoavy
brique deviendrait ebqiur
chambre deviendrait ecbamrh
couverture deviendrait ectveuorur

etc...

Un genre de charivari

Merci beaucoup!

Grastapopoulos

3 réponses

  1.
    Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Salut le fil,

    Patrice que je salue, dans cette discussion a déposé un fichier exemple
    1
    1. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 784
       
      Bonjour Mike-31, un peu frais ce matin !!!
      0
    2. grastapopoulos
       
      Bonjour Mike-31

      Merci beaucoup!

      Je vais tenter de me débrouiller avec ça!

      Grastapopoulos
      0
    3. Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   958
       
      Re le forum

      Tu copies mon code dans un module VBA

      Tu insères un mot dans une cellule (Exemple en A1+
      Tu utilises ensuite la fonction personnalisée en B1 

      =SwapLettre(A1)
      Mytå
      0
    4. grastapopoulos
       
      Merci Mytå,

      C'est très apprécié!

      Grastapopoulos
      0
  2. Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   958
     
    Salut le forum

    Je t'aurais bien répondu, mais comme la question s'adresse à Eriiic . . .

    Mytå
    0
    1. Ricky38 Messages postés 5776 Date d'inscription   Statut Contributeur Dernière intervention   1 463
       
      Lolll elle est bonne ;)

      Salutations à toi Myta
      0
    2. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      Bonsoir à tous,

      et comme eric il a les yeux qui piquent il va aller au dodo... ;-)
      eric
      0
  3. Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   958
     
    Re le forum

    Avec une petite fonction personnalisée 

    Function SwapLettre(Cel As Range)
  Dim MotSrc As String, MotFin As String
  Dim i As Byte, LettrePos As Byte
  
    Application.Volatile
    Randomize Timer
    MotSrc = Cel
    
    For i = 1 To Len(Cel)
        LettrePos = Int(Rnd * Len(MotSrc)) + 1
        MotFin = MotFin + Mid(MotSrc, LettrePos, 1)
        MotSrc = Left(MotSrc, LettrePos - 1) & Mid(MotSrc, LettrePos + 1)
    Next i
    
    SwapLettre = MotFin
    
End Function

    Mytå
    0
    1. grastapopoulos
       
      Bonjour,

      C'est gentil de me répondre, mais ce qui semble simple pour toi est du chinois pour moi.

      À quel endroit dois-je mettre toutes ces applications ?

      Merci!

      Grastapopoulos

      p.s. Si j'ai demandé M. Ériiic, c'est qu'il m'a aidé pour un autre problème. Il semble être un expert dans le domaine alors...
      0
    2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
       
      Alors tu lui adresse un message privé, ce qui ne t'empêche pas de lire et de répondre aux messages qui te sont adressés, c'est la moindre des corrections.
      Sur ce je me retire de cette discussion
      0
    3. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      Bonjour à tous,

      Sauf que je ne répond pas aux messages privés non sollicités, ce n'est pas le but d'un forum de passer en privé.
      @ grastapopoulos :
      Quand on pose une question sur un forum, c'est à la communauté.
      La prend qui veut, qui ça inspire et qui a le temps. C'est le principe...

      On lit toutes les réponses et on n'oublie pas de remercier et de mettre un retour à tous les intervenants.
      Simple règle de politesse...

      eric
      0