XL 2019 Aide formule alerte

  • Initiateur de la discussion Initiateur de la discussion Fidmo
  • 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 !

Fidmo

XLDnaute Occasionnel
Bonsoir à Tous. J'espère que vous allez bien,
J'ai besoin d'aide.
Merci de me trouver une fonction d'alerte rouge dans la colonne (D4) lorsque:
La date de fin colonne (D) dépasse de 10 jours la date de début colonne (C).
J'espère avoir été claire. Et Mille mercis par avance.
Fidwa.
 

Pièces jointes

Bonsoir Vgendron,
Un grand merci pour votre réponse, néanmoins je suis employée commerçante ne connaissant rien en Excel. Ce qui m'oblige à quémander les connaissances des experts comme vous. Pourriez-vous m'aider encore une fois avec mon fichier résoulu ?
Merci toujours. Fidwa
 
Quand on débute, oui, normal de demander de l'aide.. mais la. ca fait au moins 9 ans (ton inscription en 2016) que tu utilises excel.. j'ose espérer que tu as quand meme appris la base du logiciel..
c'est un peu comme si tu me disais que tu as passé le permis de conduire il y a 30 ans, mais tu ne sais toujours pas comment faire pour passer les vitesses...
 
Bonjour à tous, pas trop compris votre conversation, mais voici une réponse

VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    Dim ligne As Long
    Dim dateDebut As Variant, dateFin As Variant

    ' Vérifie si le changement est dans la colonne C ou D (date début ou date fin)
    If Intersect(Target, Me.Columns("C:D")) Is Nothing Then Exit Sub

    Application.EnableEvents = False

    For Each cell In Intersect(Target, Me.Columns("D"))
        ligne = cell.Row
        dateDebut = Me.Cells(ligne, "C").Value
        dateFin = Me.Cells(ligne, "D").Value

        If IsDate(dateDebut) And IsDate(dateFin) Then
            If dateFin - dateDebut > 10 Then
                cell.Interior.Color = RGB(255, 0, 0) ' Rouge
            Else
                cell.Interior.ColorIndex = xlNone ' Supprime la couleur si condition non remplie
            End If
        End If
    Next cell

    Application.EnableEvents = True
End Sub

et le fichier

Nicolas
 

Pièces jointes

Bonsoir Nicola JACQUIN.
Je vous remercie pour votre super boulot, cela me convient parfaitement vous êtes génial, mille mercis à ces superes âmes charitables et coeurs qui existent dans ce génial site, pour réaliser le bonheur des gens comme moi.
Trés bonnne journée/soirée à tous. Et encore merci Nicola JACQUIN, amicalement.
 
- 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
7
Affichages
140
Réponses
10
Affichages
149
  • Question Question
XL 2019 fonction
Réponses
2
Affichages
107
Réponses
4
Affichages
109
Réponses
2
Affichages
115
Réponses
6
Affichages
121
Réponses
3
Affichages
133
  • Question Question
Microsoft 365 MFC dans tableau
Réponses
2
Affichages
224
Réponses
6
Affichages
158
  • Résolu(e)
Microsoft 365 DATEDIF
Réponses
11
Affichages
184
Retour