XL 2010 incrémentation par selection d'une cellule

yahya.be

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 Accro
Bonsoir,

Comme ceci :

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

yahya.be

XLDnaute Junior
Bonsoir,

Comme ceci :

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

yahya.be

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

yahya.be

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

Fichiers joints

Calvus

XLDnaute Accro
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+
 

Fichiers joints

Discussions similaires


Haut Bas