Transformer un texte en suite de chiffre
pukeofbear
-
m@rina Messages postés 23923 Date d'inscription Statut Contributeur Dernière intervention -
m@rina Messages postés 23923 Date d'inscription Statut Contributeur 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 !
A voir également:
- Transformer un texte en suite de chiffre
- Excel trier par ordre croissant chiffre - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Transcription audio en texte word gratuit - Guide
- Chiffre en lettre - Télécharger - Outils professionnels
- Mettre un texte en majuscule - Guide
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 :
m@rina
Comment ça marche est un forum public. Je ne réponds pas aux questions posées en MP.
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.