Faire correspondre lettre à symbole ?

Utilisateur anonyme -  
Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je désire faire correspondre les lettres de l'alphabet à un symbole précis. Par exemple :

A --> +
B --> "
C --> *

Comment pourrais-je faire cela. Existe-t-il un programme ? Ou comment faire cela dans un classeur ? La technique m'est égale, tant que je peux écrire des textes dont les lettres sont remplacées par des symboles.

Merci d'avance,
Chris.



--
"C'est pourquoi la cause qui fait naître la superstition, la conserve et l'alimente, est la crainte."

6 réponses

  1. Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   17 482
     
    Tu tapes la totalité de ton texte.
    Tu cliques sur l'icône en forme de jumelles Rechercher et sélectionner
    Tu choisis Remplacer
    Dans la fenêtre Rechercher tu saisis la lettre "A", dans la fenêtre Remplacer par tu saisis le symbole "+"
    Tu cliques sur le bouton Remplacer tout
    Et tu recommences pour chaque lettre.
    3
    1. Utilisateur anonyme
       
      autant taper tout le texte en symboles !
      0
    2. Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   17 482
       
      C'est très exactement ce que je me suis dit en lisant ta requête ...
      Mais comme tu n'as pas expliqué quel était le but de la manoeuvre, je me suis borné à te fournir une méthode.
      Moi, quand je veux rendre un texte illisible, je me contente de le sélectionner et de choisir la police Symbol ou Webdings ; mais telle n'était pas ta question !
      0
  2. ccm81 Messages postés 11033 Statut Membre 2 434
     
    bonjour à tous les deux

    une fonction permettant de coder ton texte à mettre dans un module général (Alt-F11 puis insertion/module et copier/coller) et a utiliser comme une fonction excel
    sur la feuille
    la plage A2:A54 contient les lettres A .. Z a .. z et espace
    la plage B2:B54 contient les codes +-*/.!:;, ......

    Public Function coder(s As String) As String  
    Dim ls As Long, r As Long, li As Long  
    Dim ss As String, c As String  
    ss = ""  
    ls = Len(s)  
    For r = 1 To ls  
      c = Mid(s, r, 1)  
      For li = 2 To 54 
        If c = Sheets(1).Cells(li, 1) Then  
          ss = ss & Sheets(1).Cells(li, 2).Value  
          Exit For  
        End If  
      Next li  
    Next r  
    coder = ss  
    End Function

    bonne suite
    2
  3. ccm81 Messages postés 11033 Statut Membre 2 434
     
    ou bien sans le tableau des correspondances dans la feuille

    Const letts = " ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" 
    Const codes = "&+-*/,;:!?.§$£µ%=)([]°{}#_~+-*/,;:!?.§$£µ%=)([]°{}#\~" 
    
    Public Function kode(s As String) As String 
    Dim ls As Long, r As Long, rc As Long 
    Dim ss As String, c As String 
    ss = "" 
    ls = Len(s) 
    For r = 1 To ls 
      c = Mid(s, r, 1) 
      rc = InStr(1, letts, c) 
      If rc > 0 Then 
        ss = ss & Mid(codes, rc, 1) 
      End If 
    Next r 
    kode = ss 
    End Function

    bonne suite
    0
  4. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Salut,

    Ou par formule avec

    =CHOISIR(EQUIV(A1;{"a";"b";"c";"d";"e"});"+";"""";"*";"-";"/")
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   17 482
     
    Bonjour à tous.

    Sans autre précision de la part du demandeur, il est hasardeux de supposer qu'il s'agit d'Excel ! Je crois plutôt que kris-cola parle d'un traitement de texte ...
    0
  7. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Salut,

    Non Raymond il parle de classeur et de texte, pas de traitement de texte.

    Il est tout à fait possible qu'il ne s'agisse pas d'Excel mais de tout autre application tableur

    A suivre
    0