Incrémenter une liste de type XX-YYY

Bonjour Forum !

Je gère une liste de documents qui m’arrivent de loin en loin.

Je leur donne à tous un numéro d’ordre comme ceci : XX-YYY,

où XX est un code à 2 chiffres qui désigne l’émetteur,

et XXX le numéro d’ordre de chaque document.

Chaque nouveau document de l’émetteur XX est numéroté YYY + 1.

Autrement dit, si le dernier doc reçu de « 03 » était le 03-012, le suivant sera le 03-013.

Je le fais manuellement, mais à mesure que la liste s’allonge, je me dis qu’une macro le fera plus vite que moi, mais je ne sais pas écrire la formule

Le problème se résume donc ainsi (voir fichier joint) :

– je reçois un nouveau doc de l’émetteur 03 (le dernier reçu de sa part était le 03-012)

– je renseigne la 1ère cellule vide de la colonne 1 (je saisis donc « 03 »)

– je lance une macro qui attribue automatiquement le numéro suivant pour l’émetteur 03, soit « 013 » (valeur fixe, qui ne sera plus recalculée).

Dans le fichier joint ce sera dans la case orange.

Si quelqu’un pouvait m’aider ce serait cool !!!

Bonjour,

Si j'ai bien compris, en B8,

=SI(A8="";"";TEXTE(A8;"00")&"-"&TEXTE(NB.SI(A$8:A8;A8);"000"))

@ tirer vers le bas

@ +

Bonjour

Avec une événementielle en Feuil1

Code Feuil1

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Dim Var As Variant
On Error Resume Next
Range("A8", [A8].End(xlDown)).Select
Var = Application.WorksheetFunction.CountIf(Selection, Target)
Target.Offset(, 1) =  Var
Target.Select
End If
End Sub

Cordialement

Deux réponses pour le prix d'une ! Merci.

@Amadeus

C'est nickel !

Je n'avais pas imaginé que ça puisse être automatique, mais c'est encore mieux.

@ R@chid

Je suis impressionné par ta formule, il faudra que je regarde comment elle fonctionne.

Cela dit, elle inscrit dans une seule cellule le n° complet XX-YYY.

Mais comme le code d'Amadeus fonctionne, je ne t'en demande pas plus.

Merci encore à tous les 2