incrémenter

[Sarah]

Bonjour à tous !

Voici ma question:

J'ai une colonne A et une colonne B.

Dans colonne A sont des noms de personne
Dans colonne B des codes du style AB00, AB01, AB02 etc etc..

Ma question est:

Comment écrire une macro qui incrémente les codes AB00, AB01 etc etc..
automatiquement lorsque on passe à une ligne suivante pour écrire un nouveau nom dans colonne A?

Merci beaucoup de m'aider 🙂

Sarah

 

[PascalXLD]

Bonjour

peut-être une macro du style

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range('A1:A65536')) Is Nothing Then
If Target.Offset(0, 1) = '' Then
Target.Offset(0, 1) = 'AB' & Format(Val(Right(Target.Offset(-1, 1), 2)) + 1, '00')
End If
End If

End Sub

Bonc ourage

 

[Sarah]

Bonjour Pascal

Je te remercie beaucoup, je vais essayer. C'est vraiment sympa car je ne toruvais pas de réponse à cette question!

Bonne fin de journée!

Sarah