Transformer un texte en suite de chiffre
pukeofbear
-
m@rina Messages postés 27736 Date d'inscription Statut Modérateur Dernière intervention -
m@rina Messages postés 27736 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour, j'aimerai transformer un texte en chiffre de la manière suivante :
A=1
B=2
C=3
...
Z=26
La ponctuation et autres symboles resteront identiques.
exemple : J'aime le chocolat ==> 10'19135 125 381531512120
Le texte faisant une page, j'aimerai savoir si quelqu'un aurait une petite astuce pour me soulager d'un grand travail. (j'ai la possibilité de travailler avec algobox)
Un grand merci d'avance pour l'aide !
A=1
B=2
C=3
...
Z=26
La ponctuation et autres symboles resteront identiques.
exemple : J'aime le chocolat ==> 10'19135 125 381531512120
Le texte faisant une page, j'aimerai savoir si quelqu'un aurait une petite astuce pour me soulager d'un grand travail. (j'ai la possibilité de travailler avec algobox)
Un grand merci d'avance pour l'aide !
2 réponses
-
Bonjour,
On ne sait pas avec quel logiciel tu travailles.
Imaginons que ce soit Word. De toutes façons, il faut une macro.
Cela étant je ne vois pas bien autre chose qu'une macro qui ferait un recherche-remplace sur chaque caractère...
A compléter :
Sub remplace()
Dim myRange
Set myRange = ActiveDocument.Content
With myRange.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "a"
.Replacement.Text = "1"
.Execute Replace:=wdReplaceAll
End With
With myRange.Find
.Text = "b"
.Replacement.Text = "2"
.Execute Replace:=wdReplaceAll
End With
With myRange.Find
.Text = "d"
.Replacement.Text = "4"
.Execute Replace:=wdReplaceAll
End With
With myRange.Find
.Text = "e"
.Replacement.Text = "5"
.Execute Replace:=wdReplaceAll
End With
End Sub
m@rina
Comment ça marche est un forum public. Je ne réponds pas aux questions posées en MP. -
Salut le Forum
Attention 19135
Donne 1 9 1 3 5 ou 19 13 5 ou 19 1 3 5
Il faudrait coder A à I avec 01 à 09
Mytå
Merci de donner suite à votre question, nous ne sommes pas des robots...
« Si le déboguage est l'art d'enlever les bogues, alors la programmation doit être l'art de les créer. »
