XL 2013 Revenir à 001 en début d'année

[murainesouspatate]

Bonjour à tous,

Je souhaiterais connaitre comment changer la valeur d'une cellule au 1er janvier.
Petite explication, je donne un numéro d'imputation sur un devis au 1er janvier celui-ci est égale à "001". et à chaque nouveaux devis le numéro est à suivre.
Serait-il possible de le faire revenir à "001" à chaque 1er janvier ? (sans macro).

Merci pour ce petit coup de pouce et bonne journée à tous.

Bien le bonjour de la Nouvelle Calédonnie !

 

[CISCO]

Bonsoir

Peut être avec quelque chose du genre SI((MOIS(AUJOURDHUI())=1)*(JOUR(AUJOURDHUI())=1);001;....)

@ plus

 

[job75]

Bonjour murainesouspatate, CISCO, le forum,

Voyez le fichier joint et cette formule en D5 pour le numéro du devis :

=(ANNEE(F5)=ANNEE(AUJOURDHUI()))*D5+(CELLULE("address")=CELLULE("address";D3))

Et en F5 pour la date :

=SI(CELLULE("address")=CELLULE("address";D3);AUJOURDHUI();F5)

Le calcul itératif est activé (onglet Fichier-Options-Formules).

Bonne journée.

 

[murainesouspatate]

Bonjour cisco,
Ta formule me convient très bien et je t'en remercie beaucoup !
A très bientôt sur le forum et bonnes fëtes de Noël à toutes et à tous.....

 

[job75]

Re,

Je remarque que quand on télécharge le fichier (1) ou qu'on modifie son nom les fonctions CELLULE("address") renvoient #N/A, il faut alors revalider D5 ou F5 ce qui les remet à zéro...

Pour éviter ce problème j'ai modifié les formules en D5 et F5 :

=(ANNEE(F5)=ANNEE(AUJOURDHUI()))*D5+ESTNUM(LN(CELLULE("address")=CELLULE("address";D3)))

=SI(ESTNUM(LN(CELLULE("address")=CELLULE("address";D3)));AUJOURDHUI();F5)

Fichier (2).

A+

 

[job75]

Re,

Dans ce fichier (3), grâce à la cellule A5, on peut forcer/réinitialiser la numérotation en D5.

Nouvelle formule en D5 :

=SI(ESTNUM(LN(CELLULE("address")=CELLULE("address";A5)));A5;(ANNEE(F5)=ANNEE(AUJOURDHUI()))*D5+ESTNUM(LN(CELLULE("address")=CELLULE("address";D3))))

A+

 

[job75]

Bonjour cisco,
Ta formule me convient très bien et je t'en remercie beaucoup !

Ah bon, et les miennes aux posts #3 #5 #6 ?

 

[murainesouspatate]

Bonjour job75,
ta solution est aussi excellente et je t'en remercie, désolé d'avoir omis de te répondre hier soir.
je te souhaite une bonne journée et te dis à bientôt sur ce forum.
je te souhaite de bonnes fêtes de noël en direct de la Nouvelle Calédonnie.
Encore merci de tes réponses .

 

[job75]

Bonjour murainesouspatate, CISCO, le forum,

Je ne vois pas du tout comment vous arrivez à utiliser la formule de CISCO :

- comment incrémentez-vous les numéros ?

- que faites-vous si l'ordinateur n'est pas ouvert le 1er janvier ?

- et a priori tous les devis créés le 1er janvier auront le même numéro 001, non ?

Bonne journée.

 

[CISCO]

Bonjour à tous

Bonjour murainesouspatate, CISCO, le forum,
...
- comment incrémentez-vous les numéros ?

Effectivement, ma proposition ne prend pas en charge l'incrémentation des devis. Je supposai qu'une autre formule, dans une autre cellule, le faisait.

- que faites-vous si l'ordinateur n'est pas ouvert le 1er janvier ?
- et a priori tous les devis créés le 1er janvier auront le même numéro 001, non ?
Bonne journée.

Et voui..., d'où les points à la fin de ma proposition.

@ plus

 

[murainesouspatate]

Bonjour,
j'ai créé un bouton " new devis"me permettant d’incrémenter le N° à suivre par la macro suivante :

Sub ChangeNumero()

Numero = Sheets("DEVIS").Range("AZ1").Value
Sheets("DEVIS").Range("AZ1").Value = Numero + 1

End Sub

Bonne journée !

 

[job75]

Bonsoir,

Serait-il possible de le faire revenir à "001" à chaque 1er janvier ? (sans macro).

Faudrait être cohérent !!!

Si vous utilisez VBA remettre le numéro à 001 est un jeu d'enfant !!!

Bonne nuit.

 

[murainesouspatate]

Bonsoir,

Faudrait être cohérent !!!

Si vous utilisez VBA remettre le numéro à 001 est un jeu d'enfant !!!

Bonne nuit.

Bonjour,
Je ne voulais pas de macro comme indiqué dans le poste car débutant en VBA, je ne savais pas formuler le code.
mais si vous m'indiquez celui-ci , je suis aussi preneur sans vouloir vous embêter.
Cordialement

 

[job75]

Bonjour,

Le jeu d'enfant :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D3]) Is Nothing Or Target(1) = "" Then Exit Sub
[D3].Select
[D5] = IIf(Year(Val([F5].Value2)) = Year(Date), Val([D5]), 0) + 1
[F5] = Date
End Sub

A+

 

[murainesouspatate]

Bonjour,

Le jeu d'enfant :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D3]) Is Nothing Or Target(1) = "" Then Exit Sub
[D3].Select
[D5] = IIf(Year(Val([F5].Value2)) = Year(Date), Val([D5]), 0) + 1
[F5] = Date
End Sub

A+

Un grand merci à toi !
Je te souhaite de bonnes fêtes de noël et à très bientôt sur le forum.