Discussion :

[Kaera]

Bonjour à tous, chers forumeurs,

Dans ma feuille, il y a un tableau avec plusieurs colonnes (jour, numéro, code, opération).
J'ai tenté de réaliser une petite macro qui associerait à chaque "nouveau" code UN chiffre(celui-ci devant s'incrémenter).
J'explique : la macro doit parcer la colonne C, à chaque code nouvellement rencontré, elle associe un chiffre en commençant par 1.
NB: Les codes ne sont absolument pas dans l'ordre, ils sont aléatoires.
L'ordre n'est définit que par leur apparition : comme vous pouvez le voir sur le screenshot, il peut y avoir
1 1 1 2 1 1 3 2 4 (où 1 et 2 réapparaissent plus bas dans la liste) mais jamais le 4 n'apparaîtra pour la première fois avant le 3 (par exemple).

Pour faciliter la compréhension, ci-joint un screen shot de ce que ça doit donner.
Côté code (de macro cette fois-ci), j'ai tenté de passer par une liste sans doublons mais ça ne me semble pas concluant; de plus, je coince royalement à la partie où il faut à tel code associer tel numéro.
Voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub numerotation()
 Dim derli As Long, derliplaq As Long,
 
Sheets("Worklist").Activate
 
	derli = Range("C1048576").End(xlUp).Row
	Range("C2:C" & derli).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Columns("M:M"), Unique:=True
	' jusque là ça me crée ma liste sans doublons dans la colonne M (temporairement puisque je l'efface ensuite)
 
'et là... ça coince ! (oui je sais, c'est plutôt maigre)
end sub

Merci d'avance pour votre aide !

Kaera*