résolu: 2 formules pour une cellule

[bibernaute]

salut à tous,
voila je voudrais mettre dans une case deux formules. voir dans la pièce jointe.
En fait c'est de changer de date après deux inscription. Ma formule concerne la cellule D4, si la cellule A7 est supérieure à 0 D4= la date du jour ou A7 est utilisée, et si la cellule C8 = oui D4= la date d'inscription du oui.
j'espère que vous aurez compris. merci par avance de vos réponses.
Bibernaute

 

[Fred0o]

Re : 2 formules pour une cellule

Bonsoir bibernaute,

Voici une solution dans le fichier ci-joint.

Ne sachant pas où tu stockes les dates de saisie des cellules A7 et C8, j'ai créé 2 champs nommés respectivement "dateA7" et "dateOui" qui se mettent à jour par macro évènementielle, à chaque saisie de valeur dans les cellules A7 et C8.

Ensuite tu ne nous a pas précisé ce que doit afficher la formule si A7<0 et C8<>"oui". J'ai donc fait une formule qui n'affiche rien dans ce cas.

Dis moi si la solution te convient.

A+

 

[kjin]

Re : 2 formules pour une cellule

Bonsoir,
Macro événementielle

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$A$7" And Val(Target) > 0 Then [D4] = VBA.Date
If Target.Address = "$C$8" And UCase(Target) = "OUI" _
    And Val([A7]) > 0 Then [D4] = VBA.Date
End Sub

A+
kjin

 

[Fred0o]

Re : 2 formules pour une cellule

Bonsoir à tous,

Si je peux me permettre kjin, ta solution aussi astucieuse soit elle (et plus simple que la mienne), ne répond pas complètement au différents cas possibles. En effet, si A7>0 et C8="oui", lorsque l'on saisit une valeur négative en A7, il faut afficher en D4 la date à laquelle C8 s'est vu attribuer "oui".

Cordialement

 

[Papou-net]

Re : 2 formules pour une cellule

Bonsoir bibernaute, les participants,

Je ne suis pas le premier, mais puisque je l'ai fait, je l'envoie. Ca aura le mérite d'apporter une autre approche du problème.

Cordialement.

 

[kjin]

Re : 2 formules pour une cellule

Bonsoir Papou, Fred0o,
Avant on se contentait de donner des réponses, maintenant on doit aussi faire les questions...
A+
kjin

 

[job75]

Re : 2 formules pour une cellule

Bonjour le fil, le forum,

Une solution par formules dans le fichier joint.

Noter que le format jj/mm/aa hh:mm:ss;; évite d'afficher les valeurs zéro.

A+

 

[job75]

Re : 2 formules pour une cellule

Re,

La fonction MAINTENANT(), comme la fonction AUJOURDHUI(), est volatile.

De ce fait, les formules sont recalculées à l'ouverture ou quand on appuie sur F9.

Si cela vous agace, vous pouvez mettre ces macros dans ThisWorkbook :

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Me.Saved = True
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
Me.Saved = False
End Sub

A+