M. ÉRIIIC-Énigme Excel -Charivari

Résolu/Fermé

grastapopoulos - 28 oct. 2012 à 22:51
grastapopoulos - 4 nov. 2012 à 14:16

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:

M. ÉRIIIC-Énigme Excel -Charivari
Liste déroulante excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide
Word et excel gratuit - Guide
Mise en forme conditionnelle excel - Guide

3 réponses

Réponse 1 / 3

Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 104
29 oct. 2012 à 07:18

Salut le fil,

Patrice que je salue, dans cette discussion a déposé un fichier exemple

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
29 oct. 2012 à 09:56

Bonjour Mike-31, un peu frais ce matin !!!

grastapopoulos
30 oct. 2012 à 23:55

Bonjour Mike-31

Merci beaucoup!

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

Grastapopoulos

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 949
31 oct. 2012 à 04:20

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å

grastapopoulos
4 nov. 2012 à 14:16

Merci Mytå,

C'est très apprécié!

Grastapopoulos

Réponse 2 / 3

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 949
28 oct. 2012 à 23:33

Salut le forum

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

Mytå

Ricky38 Messages postés 4349 Date d'inscription samedi 15 mars 2008 Statut Contributeur Dernière intervention 2 novembre 2013 1 459
28 oct. 2012 à 23:35

Lolll elle est bonne ;)

Salutations à toi Myta

eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 239
28 oct. 2012 à 23:50

Bonsoir à tous,

et comme eric il a les yeux qui piquent il va aller au dodo... ;-)
eric

Réponse 3 / 3

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 949
29 oct. 2012 à 03:28

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å

grastapopoulos
30 oct. 2012 à 03:48

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...

Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 104
Modifié par Mike-31 le 30/10/2012 à 09:14

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

eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 239
Modifié par eriiic le 30/10/2012 à 09:12

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

Discussions similaires

enigme

Code Ascii