Formule auto en vba sous condition de saisie

[BAT]

Bonjour à tous le forum,

Pourriez m'aider à trouver le bout de macro qui me manque pour compléter mon code actuel.

POur ne pas alourdir une base de données Excel d'une formule lourde je souhaite qu'une macro s'excécute automatiquement à la saisie d'une date dans une cellule.

Plus précisément, dès que je saisie une date dans une ligne de la colone Z (ex en case Z5), la macro doit réaliser le calcul évoqué ci dessous en colonne AC (en case AC5 pour continuer l'exemple) :

     ActiveCell.FormulaR1C1 = _
        "=IF(AND(RC[-1]<>0,RC[-1]<RC[-16]),""Date incohérente"",IF((OR(RC[-1]="""",RC[-1]=0)),(CONCATENATE(""A FAIRE DEPUIS "",(NB.JOURS.OUVRES(RC[-16],TODAY(),10)-1),"" j"")),(NB.JOURS.OUVRES(RC[-16],RC[-1],10)-1)))"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

Voilà ! Merci à tous pour votre aide dans ce cas !

Bat

 

[Cousinhub]

Re : Formule auto en vba sous condition de saisie

Bonjour,

peut-être en insérant ce code dans l'évènement de la feuille (clic droit sur le nom de l'onglet, "Visualiser le code") :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Row > 1 And Target.Column = 26 And IsDate(Target) Then
    With Target.Offset(0, 3)
        .FormulaR1C1 = _
            "=IF(AND(RC[-1]<>0,RC[-1]<RC[-16]),""Date incohérente"",IF((OR(RC[-1]="""",RC[-1]=0)),(CONCATENATE(""A FAIRE DEPUIS "",(NB.JOURS.OUVRES(RC[-16],TODAY(),10)-1),"" j"")),(NB.JOURS.OUVRES(RC[-16],RC[-1],10)-1)))"
        .Value = .Value
    End With
End If
End Sub

 

[BAT]

Re : Formule auto en vba sous condition de saisie

YOUPIIIII

Merci beaucoup Bhbh !!!