XL 2010 incrémentation par selection d'une cellule

Hafi.alaoui

XLDnaute Junior
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

XLDnaute Barbatruc
Re,

Voici ton fichier en retour.

VB:
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+
 

Pièces jointes

  • Plan-Emprunt.xlsm
    22.1 KB · Affichages: 4

Discussions similaires

Statistiques des forums

Discussions
311 712
Messages
2 081 802
Membres
101 819
dernier inscrit
lukumubarth