Varible date dans formule

Dranreb

XLDnaute Barbatruc

• 12 Octobre 2015

• #2

Re : Varible date dans formule

Bonjour.
Si vous ne pouvez pas mettre "=IF(RC2>Tb_D_TODAY,""OUI"",""NON"")"
essayez "=IF(RC2>" & CLng(DateDuJour) & ",""OUI"",""NON"")"
parce que c'est sûr que la colonne B sera souvent supérieure au jour divisé par le mois, divisé par l'année !

 

Dernière édition: 12 Octobre 2015

Vote positif 0 Vote négatif

GADENSEB

XLDnaute Impliqué

• 13 Octobre 2015

• #3

Re : Varible date dans formule

Hello
Ta réflexion est bonne ;-)

mais le résultat est le mm .... des "OUI" partout

a + Seb

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 13 Octobre 2015

• #4

Re : Varible date dans formule

Bonjour.
Vérifiez encore si votre colonne B contient bien des dates est non des textes qui apparaissent comme des dates.

 

Vote positif 0 Vote négatif

GADENSEB

XLDnaute Impliqué

• 13 Octobre 2015

• #5

Re : Varible date dans formule

Hello,
yes c'est bien des date

sous ce format là



a+ Seb

 

Pièces jointes

• Capture.PNG

  26.5 KB · Affichages: 28

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 13 Octobre 2015

• #6

Re : Varible date dans formule

Le format de cellule exprimant la façon dont devrait être affichée sa valeur si elle était une date ne donne absolument pas la moindre information sur la nature exacte de la donnée qui y est réellement enregistrée.

Vous pouvez utiliser cette fonction perso dans les classeurs en cours d'élaboration pour savoir ce qui est enregistré dans une cellule :

VB:

Function TypeDon(ByVal Cel As Range) As String
TypeDon = TypeName(Cel.Value)
End Function

 

Dernière édition: 13 Octobre 2015

Vote positif 0 Vote négatif

GADENSEB

XLDnaute Impliqué

• 16 Octobre 2015

• #7

Re : Variable date dans formule

Désolé, je répond en décalé

effectivement il doit y avoir un soucis sur les dates

car dans une autre formule pour obtenir l'année avec

Code:

    .Range("C2:C" & .Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = _
        "=YEAR(RC1)"

J'obtiens pour 15/10/2015 l'année 1899 ..... !!!


Sachant que je valide mes dates avec

Code:

    .Range("B2:B" & .Cells(Rows.Count, 1).End(xlUp).Row).NumberFormat = "dd/mm/yyyy" 'OK  ---- Choix du format des dates

Mes données viennent toutes d'un USF de saisie
Le format date est valide dans l'userfomr avec

Code:

DATESAISIE.Value = Format(DATESAISIE, "dd/mm/yyyy") 'OK  ---- Remplit le TextBox DATESAISIE par la date du jour

Et au transfert des données dans la feuille excel le textbox de date est convertir

Code:

If IsDate(c.Value) Then
                Feuil3.Cells(LastLigne, x).Value = CDate(c.Value)

Tu vois qqc de bizarre ?


Je connais pas ta fonction je vais la tester !


Bonne Journée

Seb

 

Vote positif 0 Vote négatif