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

[DIOUF]

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 :

matricule	Date création	Nom	Prénom
10001KI	18/03/2019​	toto	tata
10002KI	18/03/2019​	mimi	mama
10003KI	18/03/2019​	nana	nono

 

[job75]

Bonjour DIOUF, bienvenue sur XLD,

Affectez cette macro au bouton :

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.

 

[DIOUF]

Bonjour Job75,

Je viens d'intégrer la macro, le résultat correspond exactement à ce que j'attendais.

Merci beaucoup pour ton retour rapide et efficace 🙂

Bonne journée également