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 :
Merci d'avance pour votre aide !
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
Kaera*
Partager