Numérotation

[degap05]

Bonjour,

Dans le classeur joint, j'envoie un format à une cellule : 2009-
Comment numéroter à côté du "-", en commençant par 2009-25 par exemple et en ajoutant 1.

Le code cité dans la macro fonctionne sans 2009-

Merci de votre aide.

J'ai posé une question similaire et j'ai eu une réponse de pierrejean, mais j'aimerais une solution plus simple.

Merci pour votre aide.

 

[degap05]

Re : Numérotation

Oui, et si tu mettais la date dans une autre cellule, tu n'aurais plus à jongler avec le changement de date ou la lourdeur des calculs. Bref, tu peux remplacer A1 par une cellule de ton choix et mettre la date aujourd'hui dans une autre cellule. Ensuite, ta macro copierais ces deux données dans ta nouvelle ligne.

j'avous que la solution proposée par Roger semble bien structurée

Bonjour kllmoon,

J'y avais bien pensé, mais il s'agit d'une feuille déjà faite et en ajoutant une colonne, il me faudrait reprendre pas mal de choses........

A+

 

[degap05]

Re : Numérotation

Bonjour ROGER2327,

Je me permets de te solliciter pour une petite adaptation de ton code.
J'aimerais le déclencher en l'incorporant dans une macro qui s'exécute à partir d'un bouton.
Le numéro se positionnant à la ligne en dessous.
Si tu veux bien regarder.

Merci
A+

 

[ROGER2327]

Re : Numérotation

Bonjour degap05

Voyez la pièce jointe.​

Bonne journée !
ROGER2327

 

[Catrice]

Re : Numérotation

@ degap05,

J'ai raté qq chose, tu veux qu'au changement d'année, le N° de droite redémarre à 1 ?

Tu veux pouvoir trier les codes ?

 

[degap05]

Re : Numérotation

@ degap05,

J'ai raté qq chose, tu veux qu'au changement d'année, le N° de droite redémarre à 1 ?

Tu veux pouvoir trier les codes ?

Bonjour Catrice,

C'est une des propositions de ROGER2327, que j'essaie d'adapter.

Merci.

 

[degap05]

Re : Numérotation

Bonjour degap05

Voyez la pièce jointe.​

Bonne journée !
ROGER2327

Bonjour,

Là, il faut sélectionner la cellule au préalable.
J'ai essayé de faire comme d'habitude pour sélectionner la première cellule vide en partant du bas, mais échec... Le but est que le numéro se positionne à la cellule du dessous.

Merci.

 

[ROGER2327]

Re : Numérotation

Bonsoir degap05

J'ai mal lu ce matin (pressé...). Peut-être faut-il écrire cela :

Private Sub CommandButton1_Click()
Dim oRef As Range, oCel As Range
    Set oRef = Range("$B$2") [COLOR="SeaGreen"]'Référence de la première cellule pouvant contenir un n° d'ordre[/COLOR]
    Set oCel = Cells(Application.Max(Cells(Rows.Count, oRef.Column).End(xlUp).Row, oRef.Row - 1), oRef.Column).Offset(1, 0)
    oCel.Value = NOrdreContinu5(oRef.Address, "" & Year(Now()) & "-")
End Sub

Bonne soirée,
ROGER2327

 

[degap05]

Re : Numérotation

Bonsoir ROGER2327,

Parfait. J'ai maintenant toutes ces possibilités à ma disposition🙂🙂

Merci beaucoup.

Bonne soirée.