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