XL 2016 Faire une alerte

Créer une discussion
Répondre

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 !

S'inscrire
M

marc94600

XLDnaute Occasionnel
Bonjour tout le monde
Je souhaiterai dans mon tableau Excel feuille "en cours à partir de 2019" créer une alerte (Prévenir David pour "la personne concernée ou numéro de ligne)lorsque la "date de fin de prorogation" colonne H arrive à H-2 mois .
Je vous remercie
Marc
 

Pièces jointes

Dernière édition:
Solution
R
On peut fixer la couleur par la mise en forme conditionnelle sans recours au code VBA avec la formule suivante :
Dans l'onglet -> Acceuil < mise en forme conditionnelle : autres règles
Taper la formule et sélectionner la couleur de ton choix
=ET(G2="RENOUVELLEMENT";(FIN.MOIS(H2;-2)<AUJOURDHUI()))

Ou exécuter ce code une seule fois pour définir par VBA la formule de la mise en forme sur la colonne H
VB: 
Sub MiseEnFormeColonneH()
   Columns("H:H").FormatConditions.Delete
   With Columns("H:H").FormatConditions.Add( _
        Type:=xlExpression, Formula1:= _
        "=ET(G1=""RENOUVELLEMENT"";(FIN.MOIS(H1;-2)<AUJOURDHUI()))")
      .SetFirstPriority
      .Interior.Color = RGB(255, 150, 0) ' couleur marron
  End With
End Sub
...
Trier par date Trier par votes
Ma proposition est basée sur la coloration des cellules concernées qui s'approches au délais de deux mois donc elles ci sont en couleur de nuance rouge , les dates antérieures à la date d'aujourdhui sont en gris.

VB: 
Sub TestDelais()
 Dim L As Long
 Dim D1, D2 
 Dim Feuil, cValue
 Set Feuil = Worksheets("En cours à partir de 2019")
 L = Feuil.Range("A" & Rows.Count).End(xlUp).Row
 D1 = WorksheetFunction.EoMonth(Date, 2)
 For i = 1 To L
    cValue = Feuil.Cells(i, 8)
    With Feuil.Cells(i, 8).Interior
        If IsDate(cValue) Then
           .Pattern = xlSolid
           D2 = CDate(cValue)
           If D2 < Date Then ' Date anterieure
             .ThemeColor = xlThemeColorAccent3
           ElseIf WorksheetFunction.EoMonth(D2, 0) <= D1 Then
              'MsgBox "Alerte échéance"
             .ThemeColor = xlThemeColorAccent2
           Else
             .ThemeColor = xlThemeColorAccent6
           End If
           .TintAndShade = 0.5
        Else
           .Pattern = xlNone
           .TintAndShade = 0
        End If
    End With
 Next
End Sub
 
Vote positif 0 Vote négatif
Rheeem à dit:
Ma proposition est basée sur la coloration des cellules concernées qui s'approches au délais de deux mois donc elles ci sont en couleur de nuance rouge , les dates antérieures à la date d'aujourdhui sont en gris.

VB: 
Sub TestDelais()
 Dim L As Long
 Dim D1, D2
 Dim Feuil, cValue
 Set Feuil = Worksheets("En cours à partir de 2019")
 L = Feuil.Range("A" & Rows.Count).End(xlUp).Row
 D1 = WorksheetFunction.EoMonth(Date, 2)
 For i = 1 To L
    cValue = Feuil.Cells(i, 8)
    With Feuil.Cells(i, 8).Interior
        If IsDate(cValue) Then
           .Pattern = xlSolid
           D2 = CDate(cValue)
           If D2 < Date Then ' Date anterieure
             .ThemeColor = xlThemeColorAccent3
           ElseIf WorksheetFunction.EoMonth(D2, 0) <= D1 Then
              'MsgBox "Alerte échéance"
             .ThemeColor = xlThemeColorAccent2
           Else
             .ThemeColor = xlThemeColorAccent6
           End If
           .TintAndShade = 0.5
        Else
           .Pattern = xlNone
           .TintAndShade = 0
        End If
    End With
 Next
End Sub
Cliquez pour agrandir...
bonjour,
Dans le tableau que vous me proposez, j'ai bien une alerte message qui m'est proposée. En revanche je n'ai pas de couleur afficher. Peut on rectifier la formule car j'ai omis dans mon précédent message de dire :
SI en colonne "G" j'ai un RENOUVELLEMENT et que la "date de fin de prorogation" colonne H arrive à H-2 mois alors créer une alerte (Prévenir David pour "la personne concernée ou numéro de ligne).
Le principe de faire une alerte message et une coloration me plait beaucoup.
Merci et désolé de n'avoir pas pu répondre avant car j'étais malade.
 
Vote positif 0 Vote négatif
On peut fixer la couleur par la mise en forme conditionnelle sans recours au code VBA avec la formule suivante :
Dans l'onglet -> Acceuil < mise en forme conditionnelle : autres règles
Taper la formule et sélectionner la couleur de ton choix
=ET(G2="RENOUVELLEMENT";(FIN.MOIS(H2;-2)<AUJOURDHUI()))

Ou exécuter ce code une seule fois pour définir par VBA la formule de la mise en forme sur la colonne H
VB: 
Sub MiseEnFormeColonneH()
   Columns("H:H").FormatConditions.Delete
   With Columns("H:H").FormatConditions.Add( _
        Type:=xlExpression, Formula1:= _
        "=ET(G1=""RENOUVELLEMENT"";(FIN.MOIS(H1;-2)<AUJOURDHUI()))")
      .SetFirstPriority
      .Interior.Color = RGB(255, 150, 0) ' couleur marron
  End With
End Sub


Correction de l'ancien code pour la vérification de la cellule G

VB: 
Sub TestDelais()
 Dim L As Long
 Dim D1, D2
 Dim Feuil, cValue
 Set Feuil = Worksheets("En cours à partir de 2019")
 L = Feuil.Range("A" & Rows.Count).End(xlUp).Row
 D1 = WorksheetFunction.EoMonth(Date, 2)
 For i = 2 To L
     With Feuil.Cells(i, 8).Interior
        If Feuil.Cells(i, 7) = "RENOUVELLEMENT" Then 'cellule G
            cValue = Feuil.Cells(i, 8)
            If IsDate(cValue) Then
               D2 = CDate(cValue)
               If D2 < Date Then ' Date anterieure
                 .Color = RGB(190, 190, 190)
               ElseIf WorksheetFunction.EoMonth(D2, 0) <= D1 Then
                  'MsgBox "Alerte échéance"
                 .Color = RGB(255, 150, 0)
               Else
                 .Color = RGB(120, 255, 150)
               End If
           End If
       Else
          .Pattern = xlNone
          .TintAndShade = 0
       End If
    End With
 Next
End Sub
 
Vote positif 0 Vote négatif
Solution
Rheeem à dit:
On peut fixer la couleur par la mise en forme conditionnelle sans recours au code VBA avec la formule suivante :
Dans l'onglet -> Acceuil < mise en forme conditionnelle : autres règles
Taper la formule et sélectionner la couleur de ton choix
=ET(G2="RENOUVELLEMENT";(FIN.MOIS(H2;-2)<AUJOURDHUI()))

Ou exécuter ce code une seule fois pour définir par VBA la formule de la mise en forme sur la colonne H
VB: 
Sub MiseEnFormeColonneH()
   Columns("H:H").FormatConditions.Delete
   With Columns("H:H").FormatConditions.Add( _
        Type:=xlExpression, Formula1:= _
        "=ET(G1=""RENOUVELLEMENT"";(FIN.MOIS(H1;-2)<AUJOURDHUI()))")
      .SetFirstPriority
      .Interior.Color = RGB(255, 150, 0) ' couleur marron
  End With
End Sub


Correction de l'ancien code pour la vérification de la cellule G

VB: 
Sub TestDelais()
 Dim L As Long
 Dim D1, D2
 Dim Feuil, cValue
 Set Feuil = Worksheets("En cours à partir de 2019")
 L = Feuil.Range("A" & Rows.Count).End(xlUp).Row
 D1 = WorksheetFunction.EoMonth(Date, 2)
 For i = 2 To L
     With Feuil.Cells(i, 8).Interior
        If Feuil.Cells(i, 7) = "RENOUVELLEMENT" Then 'cellule G
            cValue = Feuil.Cells(i, 8)
            If IsDate(cValue) Then
               D2 = CDate(cValue)
               If D2 < Date Then ' Date anterieure
                 .Color = RGB(190, 190, 190)
               ElseIf WorksheetFunction.EoMonth(D2, 0) <= D1 Then
                  'MsgBox "Alerte échéance"
                 .Color = RGB(255, 150, 0)
               Else
                 .Color = RGB(120, 255, 150)
               End If
           End If
       Else
          .Pattern = xlNone
          .TintAndShade = 0
       End If
    End With
 Next
End Sub
Cliquez pour agrandir...
SUPER...
Merci beaucoup cela m'aide pour mon travail
Je vous souhaite une bonne journée
Bien à vous
marc
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

M
  • Résolu(e)
XL 2016 DOUBLONS
Réponses
2
Affichages
55
marc94600
M
M
  • Résolu(e)
XL 2016 Alerte excel
2
Réponses
23
Affichages
2 K
marc94600
M
F
  • Question Question
Microsoft 365 alerte
Réponses
5
Affichages
328
Fab1403
F
M
  • Résolu(e)
XL 2016 formules sous VBA
Réponses
9
Affichages
334
vgendron
vgendron
M
  • Résolu(e)
XL 2016 compter le nombre de date en 2018
Réponses
5
Affichages
362
marc94600
M
nrdz83
  • Question Question
XL 2016 [Résolu]calculer le nombre d'un critère entre deux dates
Réponses
7
Affichages
84
TooFatBoy
TooFatBoy
T
  • Résolu(e)
XL 2016 Recherche dans un tableau suivant dates
Réponses
5
Affichages
147
Gégé-45550
Gégé-45550
M
  • Résolu(e)
XL 2016 calcul de date
Réponses
9
Affichages
479
djidji59430
djidji59430
Calvus
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
248
p56
p56
C
  • Question Question
XL 2016 Création d'une alerte
Réponses
1
Affichages
166
sylvanu
sylvanu
richardlion
  • Question Question
XL 2016 colonnes automatique
Réponses
0
Affichages
247
richardlion
richardlion
K
  • Question Question
XL 2021 Mettre un message d'erreur si les cellules ne sont pas verrouillées
2
Réponses
18
Affichages
816
krolik serge
K
ob7523
  • Question Question
XL 2016 relevé de consommation électrique
Réponses
1
Affichages
54
wDog66
wDog66
S
  • Question Question
XL 2016 Création de factures à parti d'un tableau
Réponses
5
Affichages
90
sfconstant
S
J
  • Résolu(e)
Microsoft 365 [RESOLU] VBA boucle, insertion plusieurs lignes, exécution formules, suppression sur si
Réponses
5
Affichages
486
Phil69970
Phil69970
M
  • Question Question
XL 2016 problème de calcul
Réponses
4
Affichages
330
Jacky67
Jacky67
J
  • Résolu(e)
XL 2021 Coloriser une cellule avec un click d'une colonne
Réponses
10
Affichages
242
TooFatBoy
TooFatBoy
M
  • Résolu(e)
XL 2016 statistiques
Réponses
10
Affichages
605
JHA
J
M
  • Résolu(e)
XL 2016 2 formules
Réponses
8
Affichages
605
marc94600
M
Y
  • Question Question
Microsoft 365 Suite de mise en forme onditionnelle en fonction dune liste déroulante Compter des valeurs >0.75
Réponses
3
Affichages
46
YGU1
Y
Retour