Microsoft 365 figer une date

MICHAEL à dit:

Bonjour,
je ne me souviens plus comment faire.
j'entre en E3 la fonction aujourdhui.
celle ci est copié en E5
MODIFICATION cette date est reporté en colonne E6:E125
à condition que les cellules adjacentes F6:F125 soient égales à "x" et doit resté figé dans le temps
(date de relevé)
merci de votre aide

Cliquez pour agrandir...

sylvanu à dit:

Un petit fichier test aurait été le bienvenu;

Cliquez pour agrandir...

Sub DupliquerDate()
    Application.ScreenUpdating = False
    [E6:E125].FormulaLocal = "=SI(F6=""x"";$E$3;"""")"
    [E6:E125] = [E6:E125].Value
    [E6:E125].NumberFormat = "dd/mm/yy;@"
End Sub

sylvanu à dit:

Un petit fichier test aurait été le bienvenu.

Cliquez pour agrandir...

MICHAEL à dit:

les dates restent figees apres incrementation de la date du jours.

Cliquez pour agrandir...

=SI(F6="x";AUJOURDHUI();"")

MICHAEL à dit:

j'entre en E3 la fonction aujourdhui.

Cliquez pour agrandir...

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [E3]) Is Nothing Then
        Application.ScreenUpdating = False
        Application.ScreenUpdating = False
        With Range("E6:E125")
            .FormulaLocal = "=SI(F6=""x"";$E$3;"""")"
            Selection = Selection.Value
            .NumberFormat = "dd/mm/yy;@"
        End With
    End If
Fin:
End Sub

sylvanu à dit:

Donc en E3 il n'y a pas la fonction aujourdhui(), mais une valeur que vous entrez à la main ?
Donc le fichier demandé 3 fois aurait évité ce genre de souci, je l'aurais vu moi même.
Un essai en PJ. Le tableau se remet à jour lorsqu'on change la date en E3 :

VB:

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [E3]) Is Nothing Then
        Application.ScreenUpdating = False
        Application.ScreenUpdating = False
        With Range("E6:E125")
            .FormulaLocal = "=SI(F6=""x"";$E$3;"""")"
            Selection = Selection.Value
            .NumberFormat = "dd/mm/yy;@"
        End With
    End If
Fin:
End Sub

Cliquez pour agrandir...

sylvanu à dit:

Sorry, je jette l'éponge.
Si en E3 il y a la formule =Aujoudhui(), alors demain ce sera la date de main.
Donc on tourne en rond.
En espérant que quelqu'un de plus futé passe par là.

Cliquez pour agrandir...