Formats de date differents

youky(BJ)

XLDnaute Barbatruc

• 26 Septembre 2009

• #2

Re : Formats de date differents

Bonjour,
Peut être avec DateValue
Cells(Target.Row, 11) = Date - DateValue(Cells(Target.Row, 2))

Je n'ai pas testé

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Septembre 2009

• #3

Re : Formats de date differents

Bonjour tactic6,

Il n'y a pas de bug si Cells(Target.Row, 2) est bien une valeur numérique (au format Date quelconque).

En fait Cells(Target.Row, 2) doit contenir un texte.

Si l'on veut éviter le bug :

Code:

If IsNumeric(Cells(Target.Row, 2)) And IsDate(Cells(Target.Row, 2)) Then

A+

 

Vote positif 0 Vote négatif

tactic6

XLDnaute Impliqué

• 26 Septembre 2009

• #4

Re : Formats de date differents

Bonjour les amis

ça avance ça avance
j'ai bien une ecriture qui se fait en colonne 11 mais au lieu de me mettre un nombre j'ai un
#VALEUR!

Mais je sens qu'on y est presque

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Septembre 2009

• #5

Re : Formats de date differents

Re, salut youky 🙂

La solution de youky (DateValue) fonctionne dans tous les cas, testez-la.

Quant à la mienne, il faut la modifier :

Code:

If IsNumeric(Cells(Target.Row, 2).[COLOR="Red"]Value2[/COLOR]) And IsDate(Cells(Target.Row, 2)) Then

La valeur inscrite est un nombre quand la date est bien une valeur numérique, c'est #Valeur! dans le cas contraire.

A+

 

Vote positif 0 Vote négatif

tactic6

XLDnaute Impliqué

• 26 Septembre 2009

• #6

Re : Formats de date differents

Bonjour le forum
l'union fait la force
à vous deux combiné le bon code j'ai trouvé

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 7 Then

        If IsDate(Cells(Target.Row, 2)) Then

Cells(Target.Row, 11) = Date - DateValue(Cells(Target.Row, 2))
                   
        Else
            Cells(Target.Row, 11) = CVErr(xlErrValue)
        End If
    End If
End Sub

 

Vote positif 0 Vote négatif