XL 2013 incermentation d'un numero de ligne

youky(BJ)

XLDnaute Barbatruc

• 16 Novembre 2017

• #2

Bonjour,
Adresse du site Invalide
Il est tout à fait possible d'insérer le fichier dans votre message.
La case à droite de répondre ou envoyer
Bruno

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 16 Novembre 2017

• #3

Bonsoir le Forum,

Un bout de code à insérer dans ton projet.
L'incrémentation se fait sur la colonne A

VB:

derligne = Range("A1").End(xlDown).Row

Cells(derligne + 1, 1).Value = Cells(derligne, 1).Value + 1

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 16 Novembre 2017

• #4

et sur la colonne B

VB:

derligne = Range("B1").End(xlDown).Row

Cells(derligne + 1, 2).Value = Cells(derligne, 2).Value + 1

 

Vote positif 0 Vote négatif