Macro sur date

Victor21

XLDnaute Barbatruc

Supporter XLD

• 14 Octobre 2012

• #2

Re : Macro sur date

Bonjour, sanigui 🙂

colorer certaines cellules

Cliquez pour agrandir...

- Pourriez- vous être un peu plus explicite, voire même joindre un un court exemple sur un fichier Excel sans données confidentielles, avec les différents cas, le résultat souhaité et les explications ?
- Avez-vous envisagé la mise en forme conditionnelle, en alternative au VBA ?

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 14 Octobre 2012

• #3

Re : Macro sur date

Bonjour à tous,

Pourquoi ne pas tout simplement utiliser une mise en forme conditionnelle (MFC) avec cette formule ? :

Code:

=SI(OU($A2="";$B2="");FAUX;SI($A2+18>AUJOURDHUI();VRAI;FAUX))

A+

 

Vote positif 0 Vote négatif

D

Didier972

Guest

• 14 Octobre 2012

• #4

Re : Macro sur date

Salut

=SI(A2="";"";SI(B2="";"";SI(A2>AUJOURDHUI()+18;"Vrai";"FAUX")))

Voilà, une formule si tu veux. ensuite tu peux mettre ta mise en forme conditionnel pour la couleur de ta cellule.

Cordialement

 

Vote positif 0 Vote négatif

S

sanigui

Guest

• 14 Octobre 2012

• #5

Re : Macro sur date

je veux créer une macro car la solution actuellement en place (mise en forme conditionnelle) est trop lourde....
De plus je me suis trompé dans la ligne c'est:
Si A2 + 18 < Aujourdhui = Vrai

 

Pièces jointes

• test.xlsx

  8.8 KB · Affichages: 36
• test.xlsx

  8.8 KB · Affichages: 36
• test.xlsx

  8.8 KB · Affichages: 35

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 14 Octobre 2012

• #6

Re : Macro sur date

Re-bonjour,

Voici la macro qui correspond à ton fichier exemple et non à ce que tu as écrit dans ton post #1 :

VB:

Sub relance()
    Dim i
    For i = 2 To Range("A65536").End(xlUp).Row
        If Cells(i, 1) + 18 < Date And Cells(i, 2) = "" Then Cells(i, 2).Interior.ColorIndex = 3
    Next
End Sub

En effet, dans ton post #1,

Si A2 = rien alors rien
Si B2 = rien alors rien

Cliquez pour agrandir...

ce qui est différent dans ton fichier.

A+

 

Vote positif 0 Vote négatif

S

sanigui

Guest

• 14 Octobre 2012

• #7

Re : Macro sur date

le problème c'est que lorsqu'une case est vide (A21) la case de la colonne B est rouge alors que devrait restée "neutre".

 

Pièces jointes

• test.xls

  34 KB · Affichages: 36
• test.xls

  34 KB · Affichages: 37
• test.xls

  34 KB · Affichages: 37

Dernière modification par un modérateur: 14 Octobre 2012

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 14 Octobre 2012

• #8

Re : Macro sur date

Re-bonsoir,

Ce n'est pas une raison pour perdre les bonnes vieilles habitudes que sont bonjour ou bonsoir, merci, A+.

Voici cependant une correction du code :

VB:

Sub relance()
    Dim i
    For i = 2 To Range("A65536").End(xlUp).Row
        If Cells(i, 1) + 18 < Date And Cells(i, 2) = "" And Cells(i, 1) <> "" Then
            Cells(i, 2).Interior.ColorIndex = 3
        Else
            Cells(i, 2).Interior.ColorIndex = 0
        End If
    Next
End Sub

A+

 

Vote positif 0 Vote négatif

S

sanigui

Guest

• 14 Octobre 2012

• #9

Re : Macro sur date

ok cela fonctionne, merci pour la réactivité et désolé pour cette "perte" de bonnes habitudes....

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 14 Octobre 2012

• #10

Re : Macro sur date

re-bonsoir,

T'es peut-être désolé mais tu n'a pourtant pas corrige cela dans ton dernier message !!!!!! (sauf pour le merci)

A+

 

Vote positif 0 Vote négatif