[RÉSOLU] Imposer aujourdhui() dans une cellule

[poipoi]

Bonjour,
Comment faire pour qu'une cellule n'accepte qu'une date à l'exception de tout autre format de nombre
et qui si cette cellule est vide la date par défaut soit aujourdhui() ?

merci par avance.. et bonne journée

 

[Misange]

Re : Imposer aujourdhui() dans une cellule

Bonjour

Tu saisis = aujourdhui() dans la cellule, ça sera la valeur par défaut. Tu vas dans données/validation et là tu choisis date. Tu choisis éventuellement une plage de dates autorisées. Toute autre valeur sera rejetée et tu peux même mettre un gentil message pour expliquer cela à l'utilisateur.

 

[poipoi]

Re : Imposer aujourdhui() dans une cellule

Bonjour Misange
bon sang, mais c'est bien sur!! quel nul je suis!!! grrr
alors sur ce, merciii .. bien bonne journée et plein de soleil

 

[poipoi]

Re : Imposer aujourdhui() dans une cellule

juste une p'tite question
comment faire pour que si j'enlève la date inscrite dans la cellule, celle-ci soit automatiquement remplie avec aujourdhui() et ne soit jamais vide?

 

[Misange]

Re : Imposer aujourdhui() dans une cellule

Bonjour
Je ne vois pas. En tous cas surement pas sans VBA mais même là, pas sure de voir la démarche.
Ce que tu peux faire : 1 cellule dans laquelle tu mets la validation sur la date (disons A1) et dans laquelle l'utilisateur écrit
et dans une autre cellule, =si(A1="";aujourdhui();A1)

 

[poipoi]

Re : Imposer aujourdhui() dans une cellule

tu as raison pour le VBA
alors j'ai trouvé un bout de code que j'ai essayé d'adapter mais bien évidemment il ne marche pas:
Sub RemplirCellVide()

Dim MaPlage, Cell As Range

Set MaPlage = Range("f2:f300")
For Each Cell In MaPlage
If IsEmpty(Cell.Value) Then
Cell.Value = aujourdhui() < et là ça bloque
End If
Next Cell
End Sub


en plus je ne sais pas comment faire pour que la macro se lance automatiquement à chaque fois que la cellule est vide...

 

[WDAndCo]

Re : Imposer aujourdhui() dans une cellule

Bonjour le Forum

Une piste peut être. Si des Macros sont utilisées dans votre Classeur, inclure le code de Misange dans l'une d'elle !

[Edit] J'avais pas vue votre dernier message ! [/Edit]

 

[poipoi]

Re : Imposer aujourdhui() dans une cellule

Bonjour WDandCo..
j'ai essayé liste de validation...du post #5 mais ça ne remplit la condition souhaitée
et comme le dit Misange "En tous cas surement pas sans VBA"

 

[vgendron]

Re : Imposer aujourdhui() dans une cellule

Bonjour le forum

si ne me trompe pas.. en vba, aujourdhui se dit "Date"

 

[poipoi]

Re : Imposer aujourdhui() dans une cellule

bonjour Vgendron
et merci.. ça marche
je regarde pour que cette macro qui fonctionne maintenant se lance automatiquement lors du RAZ d'une cellule..

 

[WDAndCo]

Re : Imposer aujourdhui() dans une cellule

Bonjour le Forum

Voir le Fichier joint la MAJ se faite au changement de feuille.

 

[pierrejean]

Re : Imposer aujourdhui() dans une cellule

Bonjour à tous

En supposant que la cellule en question soit A1 mettre dans le module de la feuille:

Dim flag As Boolean


Private Sub Worksheet_Activate()
Range("A1").FormulaLocal = "=AUJOURDHUI()"
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
If flag Then Exit Sub
flag = True
If Target.Address = "$A$1" Then Target.FormulaLocal = "=AUJOURDHUI()"
flag = False
End Sub

 

[poipoi]

Re : Imposer aujourdhui() dans une cellule

bonjour PierreJean, le forum

je regarde tout cela cet AM car là je dois filer
merci à vous déjà..

 

[poipoi]

Re : Imposer aujourdhui() dans une cellule

bonjour le forum et merci à vous
après avoir essayé vos propositions, je crois qu'il me faut reformuler ma question:

il faut toujours que dans la cellule A1 il y ait une date: soit la date du jour "aujourdhui()", soit une autre.
Si, pour une raison quelconque, j'enlève la date de cette cellule alors c'est aujourdhui() qui s'inscrit.

il s'agit de calculer des pénalités: tant qu'une date réelle de fin travaux n'est pas inscrite en A1, c'est la date du jour qui fait office de fin de travaux

j'espère que ce n'est pas trop confus

 

[poipoi]

Re : Imposer aujourdhui() dans une cellule

et je reviens,
la macro du post #6 fonctionne mais il y a 2 soucis:
* il faudrait qu'elle se lance dès la modification de la cellule, je n'y suis pas arrivé avec "Private Sub Worksheet_Change(ByVal Target As Range)"
* si ce n'est pas exactement "aujourdhui()" dans la cellule, le lendemain la date inscrite (celle de la veille donc), fausse le tableau..

une petite idée en ce lundi?... merci et bonne journée...!

ça y est c'est bon.. j'ai trouvé....

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("f2:f122")) Is Nothing Then

Dim MaPlage, Cell As Range

Set MaPlage = Range("f2:f122")
For Each Cell In MaPlage
If IsEmpty(Cell.Value) Then
Cell.FormulaR1C1 = "=TODAY()"
End If
Next Cell
End If

End Sub


bonne journée à tous