XL 2010 incrémentation par selection d'une cellule

[Hafi.alaoui]

Bonjour
est-il possible d'incrémenter un numéro à la dernière ligne vide sauf par sélection de l'avant dernier!
par exemple:
(A5) porte numéro:1..... B5 un nom.... si je remplie B5 par un nom si je clique entrée il m'incrémente numero 2 ver (A6).
possible?

 

[Calvus]

Bonsoir,

Comme ceci :

Sub Plus()
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Cells(Rows.Count, 1).End(xlUp) + 1
End Sub

A+

 

[Hafi.alaoui]

Bonsoir,

Comme ceci :

Sub Plus()
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Cells(Rows.Count, 1).End(xlUp) + 1
End Sub

A+

Bonjour Monsieur Calvus
je l'ai essayé mais il me débogue je l'ai copier dans un module comme il est mais il débogue ici en jaune:
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Cells(Rows.Count, 1).End(xlUp) + 1
merci

 

[Calvus]

Re,

Sans fichier je ne peux pas savoir ce qu'il se passe..

A+

 

[Hafi.alaoui]

oui ça marche bien merci,mais je veux sans créer un bouton seulement que je selectionne le dérnier ligne puis il m'incrémente automatiquement

 

[Hafi.alaoui]

le voila
dans la feuil décaissement si possible quand je remplie la ligne DE B juqu'à F en cliquant sur entré il me donne le numéro suivant

 

[Calvus]

Re,

Voici ton fichier en retour.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ligne As Single, i As Byte

ligne = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
For i = 2 To 6
    If Cells(ligne, i) = "" Then Exit Sub
Next i
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Cells(Rows.Count, 1).End(xlUp) + 1
End Sub

A+

 

[Hafi.alaoui]

merxi beaucoup Monsieur,cela ça marche comme je le souhaitais.
Cordialement
YAHYA