Microsoft 365 [RESOLU] Remplacer un texte par un nombre

[ivan27]

Bonsoir le forum,

J'ai fait quelques recherches sans trouver de solution.
J'ai une liste de mots dans une colonne et je souhaite donner une valeur à 2 chiffres à chaque mot, en partant de 10.
Merci d'avance pour votre aide.
Réponse en VBA s'il vous plaît
Bonne fin de soirée

Ivan

 

[mapomme]

Bonsoir à tous,

En B1, votre valeur de départ. En B2, la formule suivante à recopier vers le bas.

=SIERREUR(RECHERCHEV(A2;A$1:B1;2;FAUX);MAX(B$1:B1)+1)

 

[mapomme]

Re,

Avec une macro dans le module de Feuil1:

Sub numero()
Const Depart = 10
Dim t, dico As New Dictionary, i&, max&
  dico.CompareMode = TextCompare: max = Depart - 1
  t = Range("a1:b" & Cells(Rows.Count, "a").End(xlUp).Row)
  For i = 1 To UBound(t)
    If Not dico.Exists(CStr(t(i, 1))) Then max = max + 1: dico(CStr(t(i, 1))) = max
    t(i, 1) = dico(CStr(t(i, 1)))
  Next i
  Range("b:b").ClearContents: Range("b1").Resize(UBound(t)) = t
End Sub

 

[ivan27]

Bonjour le forum,
Mapomme, merci beaucoup pour votre proposition qui fonctionne parfaitement sur mon classeur de production.
Bien cordialement et excellente journée
Ivan