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
A voir également:

3 réponses

Réponse 1 / 3
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Salut le fil,

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

Merci beaucoup!

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

Grastapopoulos
0
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
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
grastapopoulos
 
Merci Mytå,

C'est très apprécié!

Grastapopoulos
0
Réponse 2 / 3
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
Salut le forum

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

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

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

et comme eric il a les yeux qui piquent il va aller au dodo... ;-)
eric
0
Réponse 3 / 3
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
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
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
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
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