Incrémater une donnée alphanumérique sur la premiere cellule vide

DIOUF

XLDnaute Nouveau
Bonjour à toutes et à tous,

Je suis étudiant et débutant sur Vba, je soullicite votre aide sur un cas qui devrait être assez simple pour vous.

Je souhaiterai incrémenter la colonne matricule en appuyant sur un button. qui va parcourir la dernière ligne non vide et l'incrémenter
La matricule doit être unique.
Je vous remercie de votre aide

ci-dessous un exemple :
matriculeDate créationNomPrénom
10001KI
18/03/2019​
tototata
10002KI
18/03/2019​
mimimama
10003KI
18/03/2019​
nananono
 

job75

XLDnaute Barbatruc
Bonjour DIOUF, bienvenue sur XLD,

Affectez cette macro au bouton :
VB:
Sub Incrementer()
Dim t$, i%
With ActiveSheet.UsedRange
    .Sort .Columns(1), xlAscending, Header:=xlYes 'tri croissant sur la 1ère colonne
    With .Cells(1).CurrentRegion
        With .Cells(.Rows.Count, 1)
            t = .Value
            For i = 1 To Len(t)
                If Not IsNumeric(Mid(t, i, 1)) Then Exit For
            Next
            .Offset(1) = Format(Val(t) + 1, String(i - 1, 0)) & Mid(t, i)
        End With
    End With
End With
End Sub
PS : s'agissant de texte le n° matricule peut commencer par zéro...

Bonne journée.