Microsoft 365 Créér un code avec un numéro chrono

sylvanu à dit:

Bonsoir Oceanepla,
Vous n'auriez pas un petit fichier test, ce serait plus simple.
Sinon, si date en C18,mot en C14 et num chrono en C20 alors une possibilité par formule :

VB:

=GAUCHE(C14;3)&TEXTE(C18;"jjmmaa")&C20

Par ex C14=ENTREE C18=10/05/2021 C20=123456789 alors Code=ENT100521123456789

Cliquez pour agrandir...

sylvanu à dit:

Bonjour,
Vous pouvez essayer :

VB:

=GAUCHE(C14;3)&TEXTE(C22;"aammjj")

Ce qui, pour aujourd'hui avec le dpt DESC donnerait : DES210511
Vous noterez cependant que si le même jour vous initiez deux actions sur le même dpt alors il auront le même code.
Ce qui donnerait en fonction perso :

Code:

Function Codage(Dpt, Dat)
    Codage = Left(Dpt, 3) & Format(Dat, "yymmdd")
End Function

ou en VBA :

Code:

CodeGénéré = Left([C14], 3) & Format([C22], "yymmdd")

Addon :
Vous pourriez différencier deux actions le même jour même dpt en ajoutant :

VB:

N = Format(Application.CountIf(Sheets("PA Général").[H:H], [C14]), "00")
CodeGénéré = Left([C14], 3) & Format([C22], "yymmdd") & N

Ce qui pour DIT aujourd'hui donnerait : DIT21051105 puisqu'il y a 5 DIT dans la feuille PA Général.

Cliquez pour agrandir...

sylvanu à dit:

Bonjour,
Un ex en PJ avec :

VB:

Sub GénérerCode()
    If [C14] <> "" And [C22] <> "" Then ' On génère un code que si une date et un dpt sont présent
        ' Nombre de dpt dans PA Général +1
        N = Format(1 + Application.CountIf(Sheets("PA Général").[H:H], Left([C14], 3) & "*"), "00")
        ' Génération du code
        [C20] = Left([C14], 3) & Format([C22], "yymmdd") & N
    End If
End Sub

J'utilise PA Général pour l'indice, sans savoir si cela est correct. A vous d'adapter.

Cliquez pour agrandir...