XL 2010 incrémentation par selection d'une cellule

Calvus

XLDnaute Barbatruc

• 14 Juillet 2019

• #2

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+

 

Vote positif 0 Vote négatif

H

Hafi.alaoui

XLDnaute Junior

• 14 Juillet 2019

• #3

Calvus à dit:

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+

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 14 Juillet 2019

• #4

Re,

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

A+

 

Vote positif 0 Vote négatif

H

Hafi.alaoui

XLDnaute Junior

• 14 Juillet 2019

• #5

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

 

Vote positif 0 Vote négatif

H

Hafi.alaoui

XLDnaute Junior

• 14 Juillet 2019

• #6

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

 

Pièces jointes

• Plan-Emprunt.xlsm

  18.8 KB · Affichages: 3

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 14 Juillet 2019

• #7

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

Vote positif 0 Vote négatif

H

Hafi.alaoui

XLDnaute Junior

• 14 Juillet 2019

• #8

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

 

Vote positif 0 Vote négatif