Metter une date si je remplis une case

[vashh]

Bonjoru a tous, j'ai pour but de créer un fichier excel permettant de faire le relevé de mes ventes tous les jours.

En gros, sur ce fichier, des que j'effectue une vente, je remplis une cellule prix par exemple correspondant au prix de lobjet vendu.

Ce que j'aimerais c'est que des que je rentre cette donnée, la case date situé à coté affiche la date d'entrée de la donnée et que la cellule heure situé a coté se remplisse elle aussi automatiquement. Je veux aussi que cette date et cette heure se fige, je ne souhaite pas que toutes les minutes, la cellules heure se modifie par exemple.

Exemple de tableau :

Prix Date Heure J'aimerais que les XXX se mettent automatiquement
10 XXX XXX
50 XXX XXX


Je pensais faire comme ceci :

=si(A1="XXX";"=aujourdhui()";""), malheuresement, ca ne marche pas. CEla m'écrit =aujourdhui() dans la case...

Pouvez vous m'aider, merci d'avance.

 

[Pierrot93]

Re : Metter une date si je remplis une case

Bonjour,

essaye le code ci-dessous, macro événementielle, ta référence à saisir colonne A, se déclenche lors d'une modif sur cette colonne. Code à placer dans le module de la feuille concernée (click droit sur l'onglet => visualiser le code et tu le colles).

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
    Target.Offset(0, 1).Value = Date
    Target.Offset(0, 2).Value = Time
End If
End Sub

bon après midi.
@+

 

[JBOBO]

Re : Metter une date si je remplis une case

Bonjour,

Ci joint un exemple par formule. (si ça ne marche pas, cocher iteration dans menu_outils/calcul


Dis nous si cela te convient.

Bonjour Pierrot93

 

[vashh]

Re : Metter une date si je remplis une case

Je ne comprends pas, j'ai collé ton code dans le module 2 de ma feuille, j'ai enregistré mais lorsque j'entre une donnée dans la colonne A rien ne se passe...

Merci JBOBO c'est parfait !

 

[Pierrot93]

Re : Metter une date si je remplis une case

Re, bonjour Jbobo

il faut le coller dans le module d'une feuille (Feuil1(Feuil1)) par exemple, et non dans un module standard....

 

[vashh]

Re : Metter une date si je remplis une case

JBOBO en fait j'ai un probleme, j ai essayé de mettre ton exemple dans une autre feuille et du coup ca ne marche plus
les valeurs entrés avant de mettre ta formule m'affiche la date 00/01/1900 et si je mets une valeur dans une case vierge il me met FAUX...

 

[natorp]

Re : Metter une date si je remplis une case

Bjr le fil,
Pierrot, comment faire pour tester ta solution si je ne veux la date et l'heure qui si je rentre un "oui" dans l'une des cellules A....

merci de ton aide, cordialement
Gérard

 

[Pierrot93]

Re : Metter une date si je remplis une case

Re, bonjour Gérard

modifie ainsi :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("A:A")) Is Nothing _
        And Target.Value = "oui" Then
    Target.Offset(0, 1).Value = Date
    Target.Offset(0, 2).Value = Time
End If
End Sub

 

[natorp]

Re : Metter une date si je remplis une case

Super merci beaucoup
Gérard