Petit algorithme d'anonymisation en VB

Bonjour tous,

J'ai un tableur de données sur Excel 2010 pour ma thèse en médecine, j'ai hélas rempli 450 lignes environ avec le nom des patients, je dois anonymiser ces derniers pour que le nom n'apparaisse pas.
Pour se faire, je veux attribuer un code très simple pour chaque patient , le 1er de la liste aura le code "1", le deuxième "2" etc
La petite difficulté c'est que un nom peut réapparaitre dans la liste, il faut alors attribuer le bon code déjà attribué.
Pour m'économiser la labeur de le faire manuellement j'ai pensé à cet algorithme, mais je n'ai pas la compétence pour le coder en VB, pensez vous que cela soit possible ?

Pour chaque Ligne x de la Colonne "Nom"
		N = Nombre le plus grande dans la colonne "Numéro" + 1
	Rechercher
		Nom.x dans Colonne "Nom"
			Si Nom.y = Nom.x
				Si Numéro.y différent de ""
					Alors Numéro.x = Numéro.y
				Fin
			Fin
	Fin
	Si Numéro.x = ""
		Inscrire N dans Cellule Numéro.x
	Fin

Merci pour votre aide !

Pour un oneshoot, une macro VBA est rarement une idée très pragmatique.

Une solution pour faire ça sans VBA.

Tu copies ta liste de noms dans un autre onglet.
Tu supprimes les doublons avec la commande "Supprimer les doublons" du ruban "Données".
Dans la colonne de droite de cette liste, tu mets 1 dans la première cellule que tu tires vers le bas autant que nécessaire pour faire une suite numérique.
Tu reviens dans ta liste source et tu utilises une fonction RECHERCHEV() pour assigner à chaque nom le code correspondant dans la liste à noms uniques.

A mon avis, ça te prendre 2 min.
Nettement plus rapide que de développer et tester une macro VBA.

Bonjour,

Plutôt que de créer une procédure que tu n'utiliseras qu'une seule fois, tu peux utiliser cette formule :

Code:

---

=SIERREUR(RECHERCHEV(A3;A$1:$B2;2;FAUX);MAX($B$1:B2)+1)

---

Pour que ça fonctionne, il faut que ton tableau soit construit de cette manière :

Colonne A : Le nom de tes patients
Colonne B : Leur numéro

A toi d'adapter en fonction de ton fichier mais quoi qu'il arrive, ton nom de patient doit être avant son numéro

Bonne journée à toi,

Merci j'ai réussi grâce à votre aide, j'ai décidément des progrès à faire sur Excel !