résolu: 2 formules pour une cellule

Fred0o

XLDnaute Barbatruc

• 27 Avril 2011

• #2

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+

 

Pièces jointes

• bibernaute_V1.xlsm

  17 KB · Affichages: 69

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 27 Avril 2011

• #3

Re : 2 formules pour une cellule

Bonsoir,
Macro événementielle

Code:

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

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 27 Avril 2011

• #4

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

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 27 Avril 2011

• #5

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.

 

Pièces jointes

• bibernaute.xls

  20.5 KB · Affichages: 53

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 27 Avril 2011

• #6

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Avril 2011

• #7

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+

 

Pièces jointes

• essais par formules(1).xls

  22 KB · Affichages: 55

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Avril 2011

• #8

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 :

Code:

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+

 

Pièces jointes

• essais par formules(2).xls

  33.5 KB · Affichages: 46

Vote positif 0 Vote négatif