XL 2010 date figee et mise en forme conditionnelle

Atlas85200

XLDnaute Nouveau
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
 

Pièces jointes

  • TABLEAU VALID.xlsm
    10.5 KB · Affichages: 3
Solution
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

XLDnaute Barbatruc
Supporter XLD
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
 

Pièces jointes

  • TABLEAU VALID.xlsm
    17.2 KB · Affichages: 1

Statistiques des forums

Discussions
312 210
Messages
2 086 277
Membres
103 170
dernier inscrit
HASSEN@45