XL 2010 date figee et mise en forme conditionnelle

Atlas85200 · 27 Mars 2024

Bonjour,

je me torture la tête,

je voudrais savoir si il est possible via une formule et non une macro, de mettre la date du jour selon une condition remplie et de figer cette date ? Sinon avec une macro si pas de solutions.

J'ai aussi besoin d'un petit coup de main sur une mise en forme conditionnelle en sachant que les mises en forme bleu et jaune doivent rester et s'appliquer, ,

Je vous mets le fichier en pièce jointe,

Merci par avance de votre aide

sylvanu · 27 Mars 2024

Bonsoir Atlas,
Je ne sais pas figer une date dans une cellule sans VBA.
Alors en PJ un essai avec cette macro automatique lorsqu'on modifie une cellule de E ou G, uniquement si un client est déclaré en colonne A.

VB:

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [E:E]) Is Nothing Then
        If Cells(Target.Row, "A") <> "" And Target = "OUI" Then
            Cells(Target.Row, "F") = Date
        Else
            Cells(Target.Row, "F") = ""
        End If
    ElseIf Not Intersect(Target, [G:G]) Is Nothing Then
        If Cells(Target.Row, "A") <> "" And Target = "OUI" Then
            Cells(Target.Row, "H") = Date
        Else
            Cells(Target.Row...

sylvanu · 27 Mars 2024

Bonsoir Atlas,
Je ne sais pas figer une date dans une cellule sans VBA.
Alors en PJ un essai avec cette macro automatique lorsqu'on modifie une cellule de E ou G, uniquement si un client est déclaré en colonne A.

VB:

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [E:E]) Is Nothing Then
        If Cells(Target.Row, "A") <> "" And Target = "OUI" Then
            Cells(Target.Row, "F") = Date
        Else
            Cells(Target.Row, "F") = ""
        End If
    ElseIf Not Intersect(Target, [G:G]) Is Nothing Then
        If Cells(Target.Row, "A") <> "" And Target = "OUI" Then
            Cells(Target.Row, "H") = Date
        Else
            Cells(Target.Row, "H") = ""
        End If
    End If
Fin:
Application.ScreenUpdating = True
End Sub

JHA · 28 Mars 2024

Bonjour à tous,

A essayer

VB:

=SI($E6<>"oui";0;SI($F6>0;$F6;AUJOURDHUI()))

JHA

Atlas85200 · 30 Mars 2024

Super Merci Sylvanu

XL 2010 date figee et mise en forme conditionnelle

Atlas85200

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

Atlas85200

XLDnaute Nouveau

Discussions similaires