incréméntation

M

moumout'

Guest
bonjour,

je souhaite incrémenter une cellule.

ex: un numéro de facture apparaît dans une feuille de calcul sous cette forme 2003/47. dans une autre feuille de calcul je voudrais récupérer de façon automatique ce numéro incrémenter de 1 c à dire 2003/48.

merci d'avance
 
@

@+Thierry

Guest
Salut Moumout

UNe soluce VBA... Il suffit d'avoir un compteur dans une feuille (même une cellule cachée) en suite ce devrait donner çà :

Sub Compteur()
Dim i As Integer
Dim An As String

i = Sheets("Feuil1").Range("A1").Value
An = "2003/"
i = i + 1
Sheets("Facture").Range("E5").Value = An & Format(i, "000")
Sheets("Feuil1").Range("A1").Value = i
End Sub


C'est pas très compliqué... On peut mettre ce code en macro évènementielle si nécessaire...

Bonne Soirée
@+Thierry
 

Discussions similaires


Haut Bas