Microsoft 365 [RESOLU] Remplacer un texte par un nombre

ivan27

XLDnaute Occasionnel
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
 

Pièces jointes

  • Remplacer texte par un nombre.xlsx
    8.7 KB · Affichages: 9

mapomme

XLDnaute Barbatruc
Supporter XLD
Re,

Avec une macro dans le module de Feuil1:
VB:
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
 

Pièces jointes

  • ivan27- Remplacer texte par un nombre- v1a.xlsm
    15.7 KB · Affichages: 10
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 909
Membres
101 836
dernier inscrit
karmon