Numérotation

degap05 · 14 Mars 2009

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 · 15 Mars 2009

Re : Numérotation

kllmoon à dit:
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 · 15 Mars 2009

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 · 15 Mars 2009

Re : Numérotation

Bonjour degap05

Voyez la pièce jointe.

Bonne journée !
ROGER2327

Catrice · 15 Mars 2009

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 · 15 Mars 2009

Re : Numérotation

Catrice à dit:
@ 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 · 15 Mars 2009

Re : Numérotation

ROGER2327 à dit:
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 · 15 Mars 2009

Re : Numérotation

Bonsoir degap05

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

Code:

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 · 15 Mars 2009

Re : Numérotation

Bonsoir ROGER2327,

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

Merci beaucoup.

Bonne soirée.

Numérotation

degap05

XLDnaute Impliqué

Pièces jointes

degap05

XLDnaute Impliqué

degap05

XLDnaute Impliqué

Pièces jointes

ROGER2327

XLDnaute Barbatruc

Pièces jointes

Catrice

XLDnaute Barbatruc

degap05

XLDnaute Impliqué

degap05

XLDnaute Impliqué

ROGER2327

XLDnaute Barbatruc

degap05

XLDnaute Impliqué

Discussions similaires

Numérotation

XLDnaute Impliqué

Pièces jointes

XLDnaute Impliqué

XLDnaute Impliqué

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency