Incrémentation automatique N°casier

Bonjour,

Le but de ce fichier Excel est d'incrémenter automatiquement un nouveau numéro de casier outillage et d'afficher la date de création de ce dernier.

Aujourd'hui je saisie manuellement le numéro de casier que j'incrémente et la date de création se met en automatique.

Je souhaiterai incrémenter mes numéros outillages en cliquant simplement sur icône "+" et avoir une fenêtre qui s'affiche en mentionnant :

"Votre nouveau numéro de casier attribué est le : P1364"

Merci d'avance pour vos suggestions.

grbzh.

Bonjour,

Sub suivant()
    Dim c As Range
    Set c = Cells(Rows.Count, 1).End(xlUp)
    c.Offset(1) = "P" & Mid(c.Value, 2) + 1
    c.Offset(1, 1) = Date
End Sub

tu peux supprimer ton worksheet_Change

eric

Bonjour grbzh, eriiic,

Pour le message, il faut rajouter:

MsgBox "Votre nouveau numéro de casier attribué est le :" & c.Offset(1).Value

Cordialement,

C'est parfait merci beaucoup