Valeur variable en fonction d'une cellule décomposée

Bonjour,

Je cherche à créer un numéro d'affaire automatiquement en VBA.

Mon numéro se compose comme suit : AAAAMM0000

avec AAAA = année

MM = mois

0000 = un chiffre unique que je dois incrémenter à chaque nouvelle affaire

J'utilise ceci en colonne A pour définir la date du jour de création de dossier :

Range("A" & Range("A65536").End(xlUp).Row + 1) = Date

En revanche je n'arrive pas à enregistrer en variable la position de cette cellule.

Mon idée est de :

• décomposer le numéro de la ligne du dessus afin d'incrémenter le numéro.
• Décomposer la date du jour.
• concaténer le nouveau numéro comme voulu dans la dernière cellule non vide de la colonne B (ça je sais faire)

Si vous avez des idées pour faire plus simple je suis preneur !

Merci.

Bonjour

Un essai à tester. Te convient-il ?

Bye !

J'ai pas encore saisi toute la subtilité de ton code mais c'est exactement ce que je cherche !

Merci