Re-numérotation à partir du début=1

[zine pef]

Bonsoir tout le forum
j'ai employé la fonction CountA pour le N° auto
mais le probleme ,je veux quand l'année change le N° commence par 1
merçi
svp

 

[gilbert_RGI]

Re : Re-numérotation à partir du début=1

Bonjour;

comme ceci peut-être 😎

 

[JCGL]

Re : Re-numérotation à partir du début=1

Bonjour à tous,

Un essai avec une partie de ton code et une formule

A+ à tous

Édition : Bonjour Gilbert

 

[zine pef]

Re : Re-numérotation à partir du début=1

merçi gilbert_RGI ,JCGL pour votre pousse
mais je cherche pas une fonction
je veux le code se re-numérotation par 1
le code
Label1 = Application.CountA(Columns(2))

 

[JCGL]

Re : Re-numérotation à partir du début=1

Bonjour à tous,

Désolé de t'avoir présenté une solution qui ne correspond pas à ce que tu "veux".

Perso, quand je demande de l'aide, je souhaite...

Autre temps, autres mœurs...

A+ à tous

 

[Usuule]

Re : Re-numérotation à partir du début=1

Bonsoir à tous,

zine pef je te propose une solution qui semble fonctionner.
Tiens moi au courant et si tu as déjà trouvé, montre moi ce que tu as comme autre solution.

U

 

[zine pef]

Re : Re-numérotation à partir du début=1

Merçi Usuule, pour votre aide
mais votre code ne fait pas le N° auto au changement de l'année

je souhaite quand je saisie année 2000 les numéros 1,2,3,4...et Quand j s 2001 les N°1,2,3,4..ect ...

 

[JCGL]

Re : Re-numérotation à partir du début=1

Bonjour à tous,

Peux-tu essayer en déposant ce code dans l'USF de mon dernier fichier déposé :

Private Sub CommandButton1_Click()
    DL = Range("A65000").End(xlUp).Row + 1
    Cells(DL, 1) = TextBox1.Value
    Cells(DL, 3) = TextBox2.Text
    Range("A2:C" & DL).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
    Range("A1").Select
End Sub

Il me semble que cela correspond à ton souhait

A+ à tous

Édition : Mise en place des formules, MeFC et code sur ton fichier

 

[Fo_rum]

Re : Re-numérotation à partir du début=1

Bonjour,

Tout VBA pour ne pas avoir le problème de copie des formules (jusqu'où ?).
Le numéro de la pièce dépend du choix de l'année donc il serait mieux de le déterminer après.
Un essai ...

 

[zine pef]

Re : Re-numérotation à partir du début=1

Mr:JCGL,Fo_rum un grand merçi