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

gilbert_RGI

XLDnaute Barbatruc

• 8 Avril 2011

• #2

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

Bonjour;

comme ceci peut-être 😎

 

Pièces jointes

• Test.xls

  42 KB · Affichages: 42
• Test.xls

  42 KB · Affichages: 46
• Test.xls

  42 KB · Affichages: 44

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 8 Avril 2011

• #3

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

 

Pièces jointes

• JC Test.xls

  31 KB · Affichages: 38
• JC Test.xls

  31 KB · Affichages: 37
• JC Test.xls

  31 KB · Affichages: 37

Vote positif 0 Vote négatif

Z

zine pef

XLDnaute Occasionnel

• 8 Avril 2011

• #4

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))

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 8 Avril 2011

• #5

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

 

Vote positif 0 Vote négatif

U

Usuule

XLDnaute Nouveau

• 8 Avril 2011

• #6

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

 

Pièces jointes

• Copie de Test(1).xls

  43.5 KB · Affichages: 40
• Copie de Test(1).xls

  43.5 KB · Affichages: 46
• Copie de Test(1).xls

  43.5 KB · Affichages: 43

Vote positif 0 Vote négatif

Z

zine pef

XLDnaute Occasionnel

• 9 Avril 2011

• #7

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 ...

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 9 Avril 2011

• #8

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é :

VB:

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

 

Pièces jointes

• JC Copie de Test(1).xls

  28 KB · Affichages: 34

Dernière édition: 9 Avril 2011

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 9 Avril 2011

• #9

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 ...

 

Pièces jointes

• USF SuivantSinon1.xls

  35 KB · Affichages: 42
• USF SuivantSinon1.xls

  35 KB · Affichages: 41
• USF SuivantSinon1.xls

  35 KB · Affichages: 45

Vote positif 0 Vote négatif

Z

zine pef

XLDnaute Occasionnel

• 9 Avril 2011

• #10

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

Mr:JCGL,Fo_rum un grand merçi

 

Vote positif 0 Vote négatif