Microsoft 365 traduire une formule en code vba

[Usine à gaz]

Bonjour à touts et à tous

Je bute sur la traduction d'une formule en code vba .... malgré mes essais, je n'y arrive pas :

J'ai par exemple :
- en cellule D5 une date "05.03.22",
- en cellule E5, je voudrais le résultat de sous condition ajouter 3 jours à la différence entre "D5 date "05.03.22" et aujourdhui().
(résultat attendu : résultat de la formule en H5)

J'en suis arrivé à ce code mais ça ne fonctionne pas :

Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Range("e5:e10")) Is Nothing Then
    If ActiveCell.Offset(0, 1) = "n/c" Then: ActiveCell.Offset(0, -1).Value = "=TODAY()- ActiveCell.Offset(0, -1)+3"
End If
End Sub

Auriez-vous le bon code ?
Je joins un petit fichier test,
Je vous remercie,
lionel

 

[job75]

Bonjour Lionel,

Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(ActiveCell, Range("e5:e10")) Is Nothing Then
    If ActiveCell.Offset(0, 1) = "n/c" Then ActiveCell = [TODAY()] - ActiveCell.Offset(0, -1) + 3
    ActiveCell.NumberFormat = "General"
End If
End Sub

Tu peux remplacer [TODAY()] par Date...

A+

 

[job75]

Cela dit pourquoi du VBA ? Formule meilleure en E5, à copier vers le bas :

=SI(ESTNUM(D5)*(F5="n/c");AUJOURDHUI()-D5+3;"")

 

[Usine à gaz]

Bonsoir Gérard,

Merci pour ton code et la formule.
Désolé, j'étais sorti.
C'est nickel, j'ai plutôt besoin du code et je t'en remercie
Encore et encore MERCI,
lionel