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 Barbatruc
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 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+
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas