Microsoft 365 figer une date

[MICHAEL]

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

 

[gbinforme]

Bonjour,
Il faut copier en valeur.

 

[sylvanu]

Bonjour Michael, Gbinforme,
Un petit fichier test aurait été le bienvenu;
D'une part pour éviter de se le retaper, d'autre part pour savoir si "cellules adjacentes" c'est à droite ou à gauche car les deux sont adjacentes.
En PJ un essai avec :

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

 

[MICHAEL]

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

MODIFICATION cette date est reporté en colonne E6:E125

 

[sylvanu]

Un petit fichier test aurait été le bienvenu;

Un nouvel essai avec :

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

 

[MICHAEL]

merci, je reviens vers vous.
j'aurais souhaiter que cette operation se fasse automatiquement et que les dates restent figees apres incrementation de la date du jours.

 

[sylvanu]

Un petit fichier test aurait été le bienvenu.

Et une demande itou.

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

Donc chaque jour, comme en E3 il y a la date d'aujourd'hui, toutes les dates se remettront à jour ?

Bizarre comme comportement. Car dans ce cas autant mettre en colonne E :

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

Cela aurait le même effet.

 

[MICHAEL]

je souhaite que les dates que je rentre ce jour soient les memes demain.
c'est à dire les dates de la veille.

 

[sylvanu]

j'entre en E3 la fonction aujourdhui.

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 :

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

 

[MICHAEL]

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 :

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

non en E3 = aujourdhui
votre tableau est identique au mien
f6=x
e6 = e3
cette date en e3 ne changera pas demain car elle sera figée

 

[sylvanu]

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à.

 

[Modeste geedee]

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à.

Bonsour,
En e3 au lieu de taper une formule, Taper la combinaison de touches
Alt ;