Codage

Bonjour et merci pour le fichier. Oui c'est ce type de formule qu'il me faut :)

Pour compléter ma demande, le but est de "coder" des références fournisseurs. C'est références sont alphanumériques. Donc, idéalement, il faudrait que cela fonctionne avec toutes les lettres de l'alphabet. (exemples de référence : 32G7752B, 58B40654R) Les références peuvent comporter jusqu’à 12 caractères.
Et il faudrait que l'inverse fonctionne aussi, c'est à dire qu'en tapant la référence "codée", cela me ressorte la référence initiale (non codée) afin de la retrouver dans mon stock.

J’espère que je m'exprime de façon assez claire .. ;)

Encore merci :)

c'est un peu compliqué... que voulez vous exactement
1°)vous partez d'un code pour obtenir un autre code, et vous voulez aussi l'inverse?
2°) un code numérique va comprendre une suite de chiffres de 0 à 9. Comment détecter dans ce code s'il faut utiliser un 2 et un 6 accolé pour obtenir B et F ou 26 pour obtenir Z? Difficile d'utiliser tout l'alphabet?
Si vous pouvez, déposez ici un modèle avec une série le plus complète possible de ce que vous souhaitez dans les deux sens; on verra ce que l'on peut faire, mais compte tenu du point N°2, je ne promets rien.
A vous lire, sur ce site ou déposer le modèle, créer le lien et revenir le coller:
http://mon-partage.fr

Et pour décoder :

Function DecodeValentin(texte As String) As String
Const a$ = "gXDMRlJhUTCoQEscfN30BV68W29p1Zubqzdiwr5SIPFtHkG4O7nLaKvexyYAjm "
Const b$ = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz "
Dim i&, t$
  t = texte
  For i = 1 To Len(t)
    Mid(t, i, 1) = Mid(b, InStr(1, a, Mid(t, i, 1), vbBinaryCompare), 1)
  Next i
  DecodeValentin = t
End Function

Merci pour votre réponse Patrice. Mais je n'y connais pas grand chose en EXCEL et je ne sais pas ou insérer cette fonction ni comment cela fonctionne. (variable...)

Dans ce cas il vaut mieux utiliser une formule (cf. la réponse de Vaucluse que je salue)

Et si tu ne veux par les colonnes intermédiaire, en B2 :

=SIERREUR(STXT($Q$2;TROUVE(STXT($A2&REPT("?";36);1;1);$Q$1);1);"")&SIERREUR(STXT($Q$2;TROUVE(STXT($A2&REPT("?";36);2;1);$Q$1);1);"")&SIERREUR(STXT($Q$2;TROUVE(STXT($A2&REPT("?";36);3;1);$Q$1);1);"")&SIERREUR(STXT($Q$2;TROUVE(STXT($A2&REPT("?";36);4;1);$Q$1);1);"")&SIERREUR(STXT($Q$2;TROUVE(STXT($A2&REPT("?";36);5;1);$Q$1);1);"")&SIERREUR(STXT($Q$2;TROUVE(STXT($A2&REPT("?";36);6;1);$Q$1);1);"")&SIERREUR(STXT($Q$2;TROUVE(STXT($A2&REPT("?";36);7;1);$Q$1);1);"")&SIERREUR(STXT($Q$2;TROUVE(STXT($A2&REPT("?";36);8;1);$Q$1);1);"")&SIERREUR(STXT($Q$2;TROUVE(STXT($A2&REPT("?";36);9;1);$Q$1);1);"")&SIERREUR(STXT($Q$2;TROUVE(STXT($A2&REPT("?";36);10;1);$Q$1);1);"")&SIERREUR(STXT($Q$2;TROUVE(STXT($A2&REPT("?";36);11;1);$Q$1);1);"")&SIERREUR(STXT($Q$2;TROUVE(STXT($A2&REPT("?";36);12;1);$Q$1);1);"")

Merci à vous tous ;)
Pour le codage c'est nikel, mais pour que l'inverse fonctionne aussi j'ai l’impression que ce n'est pas possible.
De taper la code obtenu dans une cellule et que ca me redonne la référence initiale.
Par exemple que la référence initiale 124X, qui donne TZF8 une fois codée, et bien de taper TZF8 dans une cellule et que ca me ressorte 124X. En gros pouvoir coder et décoder..
Encore merci à tous pour votre aide :)

super :) :) c'est exactement ce que je voulais
Merci à tous pour votre aide précieuse