Codeur
Bonjour, je suis le petit nouveau du forum!
J'ai un gros problème!
J'ai fait une plage de données de deux colonnes et de cent lignes:
A - 4
B - 5
C - J (par exemple)
Comment puis-je faire avec ou sans macro pour que quand je tape ABC, le programme me renvoie 45J, et inversément, quand je met J45, il me renvoie CAB.
Merci de me répondre
merci, comment puis-je faire cela pour une phrase complète?
comme par exemple "Je m'appelle Herbiti" et il me renvoie le code.
Merci
si par exemple, j'ai une phrase de 3000 caractères, je ne vais pas copier 3000 fois la formule, ça va être un peu dur!!!
y'a quelqu'un??
Pour arriver à ton résultat, il faut faire un algorythme de décodage (par exemple en VBA).
C'est assez simple mais compliqué a expliqué.
Tu ajoutes un module
Tu copie les deux fonctions ci-dessous
Function CodeTexte(Texte As String)
Dim NbCar As Integer
Dim car(1 To 3000) As String '3000 sera la limite du nombre de caractère
Dim Y As Integer
Dim i As Integer
Dim Test As String
NbCar = Len(Texte)
For Y = 1 To NbCar
i = Y
If Len(Texte) > 1 Then
Test = Algor((Left(Texte, 1)))
car(Y) = Test
Texte = Right(Trim(Texte), Len(Trim(Texte)) - 1)
ElseIf Len(Texte) = 1 Then
car(Y) = Algor(Texte)
Exit For
End If
Next Y
For Y = 1 To NbCar
CodeTexte = CodeTexte & car(Y)
Next Y
End Function
Function Algor(Texte As String) As String
Dim V As String, L As Long
For L = 1 To 1000 'dernière ligne avec le code
If Range("A" & L).Value = Texte Then
Algor = Range("B" & L).Value
Exit For
End If
Next L
End Function
Ensuite, dans la cellule ou tu veux afficher le résultat, tu écris la formule :
=CodeTexte("ton texte")