Faire correspondre lettre à symbole ? Fermé

Question

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.

Configuration: Win7, Dell, Firefox

Raymond PENTIER · Accepted Answer

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.

ccm81 · Answer

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

ccm81 · Answer

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

Mike-31 · Answer

Salut,

Ou par formule avec 

=CHOISIR(EQUIV(A1;{"a";"b";"c";"d";"e"});"+";"""";"*";"-";"/")

Raymond PENTIER · Answer

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

Mike-31 · Answer

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

Faire correspondre lettre à symbole ?

6 réponses

Discussions similaires