Problème de date aujourd'hui volatile

[Julie-F]

Bonsoir à tous

Je reviens vers les specialistes d'excel pour savoir s'il existait une solution à la fonction aujourd'hui trop volatile d'une part et d'autre part pour la mise en place d'un compteur personnalisé de type : année-001 (2008-001)

J'ai deux colonnes dans un tableau.
la colonne A est un compteur type 2008-001 qui doit s'incrementer d'1 à chaque nouvelle ligne. Comment peut-on faire ? 😕

la colonne B correspond à la date du jour qui doit se mettre automatiquement des que la colonne A est saisie. Mais étant volatile, à chaque ouverture de fichier, la date de saisie change ce qui n'est pas le but. Quid là encore.😕

Si quelqu'un a déjà étudié la question, je suis preneuse d'infos.

 

[Catrice]

Re : Problème de date aujourd'hui volatile

Bonsoir,

Une approche par macro en gerant l'evenement double-clic.

Pour tester double-cliquer en A4.

 

[Julie-F]

Re : Problème de date aujourd'hui volatile

Bonsoir,

Une approche par macro en gerant l'evenement double-clic.

Pour tester double-cliquer en A4.

Bonsoir Catrice

L'incrementation du compteur par double clic fonctionne pour la seconde partie du n° (001, 002,...) mais la premiere partie ici 2008 correspond à l'année en cours, c'est à dire que l'an prochain nous devons avoir 2009-XXX. 🙁

Merci à vous

 

[bqtr]

Re : Problème de date aujourd'hui volatile

Bonsoir Julie, Catrice

Le code de Catrice modifié :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 1 And Target.Column = 1 And Target.Offset(-1, 0) <> "" Then
    Target = Year(Now) & "-" & Format(Right(Target.Offset(-1, 0), Len(Target.Offset(-1, 0)) - 5) + 1, "000")
    Target.Offset(0, 1) = Now
End If
End Sub

Attention à ne pas commencer le double click par la cellule A2 car tu auras une erreur. A2 doit être rentré manuellement et le double click commencé en A3.

A+

 

[Catrice]

Re : Problème de date aujourd'hui volatile

Bonjour Julie, bqtr,

Effectivement j'avais zappé la gestion de l'année.
Ci-joint une version corrigée dans la meme veine que celle de bqtr qui gere l'annee et qui ne plante pas en A2.
Il faut bien sur que le 1er code soit saisi à la main.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 2 And Target.Column = 1 And Target.Offset(-1, 0) <> "" Then
Target = Year(Date) & "-" & Format(Split(Target.Offset(-1, 0), "-")(1) + 1, "000")
Target.Offset(0, 1) = Date
End If
End Sub

 

[Julie-F]

Re : Problème de date aujourd'hui volatile

Bonsoir Catrice, bqtr
Et un grand merci à tous les deux.

Désolée de n'avoir pu me connecter plus tôt.
Merci tout particulierement à Catrice, c'est exactement ce que je voulais (date du jour et compteur reprenant l'année)
Vous m'enlevez une epine du pied car sans vous 😕

A bientôt

 

[Catrice]

Re : Problème de date aujourd'hui volatile

Hello,

Pas de pb mais je n'ai pas plus de merite que bqtr, son code fait la meme chose 😉