Microsoft 365 traduire une formule en code vba

Usine à gaz · 4 Avril 2022

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 :

VB:

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 · 4 Avril 2022

Bonjour Lionel,

VB:

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 · 4 Avril 2022

Bonjour Lionel,

VB:

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 · 4 Avril 2022

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

Code:

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

Usine à gaz · 4 Avril 2022

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

Microsoft 365 traduire une formule en code vba

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

job75

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Discussions similaires