XL 2010 date figee et mise en forme conditionnelle

  • Initiateur de la discussion Initiateur de la discussion Atlas85200
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
102
Réponses
25
Affichages
600
Réponses
6
Affichages
158
Réponses
4
Affichages
131
Retour