Formats de date differents

[tactic6]

Bonjour le forum et tous les autres
dans ce 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) = [COLOR="DarkRed"]Date[/COLOR] - [COLOR="Purple"]Cells(Target.Row, 2)[/COLOR]
           
        Else
            Cells(Target.Row, 11) = CVErr(xlErrValue)
        End If
    End If
End Sub

Date est au format 26/09/2009
et
Cells(Target.Row, 2) est au format 26 septembre 2009

ce qui me met une erreur d'execution 13 : Incompatibilité de type

Quelqu'un connait une solution

Bon Week End à tous

 

[youky(BJ)]

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é

 

[job75]

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 :

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

A+

 

[tactic6]

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

 

[job75]

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 :

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+

 

[tactic6]

Re : Formats de date differents

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

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