clignoté la cellule date si a dépassé la date Today

[Ilino]

Bonsoir Forum
je cherche un code en VBA pour Comparer les dates dans une colonne par rapport a la date d’aujourd’hui et afficher un message pour informer que la date saisi a dépassée la date today et fait clignoté la cellule
Sinon au lieu de faire clignoter la cellue est ce que il est possible de mettre infobulle dans la cellue ?"la date saisi a dépassée la date today "
Merci

 

[Ilino]

Re : clignoté la cellule date si a dépassé la date Today

Bonjour Forum
est ce que mon souci est possible?
merci

 

[mutzik]

Re : clignoté la cellule date si a dépassé la date Today

bonjour,

la solution la plus simple est d'utiliser une mise en forme conditionnelle en comparant ta cellule avec aujourdhui()

 

[Ilino]

Re : clignoté la cellule date si a dépassé la date Today

Bonjour MUTZIK
Merci pour la réponse OUI tu as raison pourquoi pas (MFC)
Grazie

 

[job75]

Re : clignoté la cellule date si a dépassé la date Today

Bonjour Ilino, mutzik,

Une MFC est de loin la solution la plus simple.

Mais si l'on veut des alertes (textes) on peut les mettre dans des commentaires.

Avec des dates en colonne A :

Private Sub Worksheet_Calculate()
Dim c As Range
On Error Resume Next
For Each c In Intersect([A:A], Me.UsedRange)
  If IsDate(c) Then
    If c > Date Then
      c.AddComment
      c.Comment.Text "La date dépasse celle d'aujourd'hui"
      c.Comment.Shape.TextFrame.AutoSize = True
      c.Comment.Visible = True
    Else
      c.ClearComments
    End If
  Else
    c.ClearComments
  End If
Next
End Sub

Pour que la macro s'exécute mettre dans une cellule (quelconque) la formule =AUJOURDHUI()

A+

 

[Ilino]

Re : clignoté la cellule date si a dépassé la date Today

Bonjour Maitre
super ça fonctionne tro tres bien
et si je veux comparer avec une autre date que Today ?
a+

 

[Ilino]

Re : clignoté la cellule date si a dépassé la date Today

Re bonjour Maitre
info bulle reste tjr affiché ???
comment faire pour le masqué (en utilisant ton code ) et non pas manuelle ( clic bouton droit.... etc)

 

[job75]

Re : clignoté la cellule date si a dépassé la date Today

Re,

Avec c.Comment.Visible = False le commentaire s'affichera uniquement quand le curseur passera sur la cellule...

A+

 

[Ilino]

Re : clignoté la cellule date si a dépassé la date Today

RE MAITRE
UN GRAND THINKS A+😎

 

[Ilino]

Re : clignoté la cellule date si a dépassé la date Today

Bonjour Maitre
et si je veux comparer avec une autre date que Today ?
a+

Bonjour Forum
je suis de retour je vous solicite encore ... mon souci ci dessus
merci
@+

 

[BOISGONTIER]

Re : clignoté la cellule date si a dépassé la date Today

Bonsoir,


Affichage de commentaire avec fonction perso


JB

 

[Ilino]

Re : clignoté la cellule date si a dépassé la date Today

Bonsoir JB
j'ai rajouté ce lien dans mes FAVORIS 😎 c'est tres Intéressant un grand Merci
Mais si tu permets j'ai déjà ( plutôt on a déjà) élaboré un code (voir Post# 5) qui est déjà en service dans mes applications ,il compare entre une date et today , mais mon souci est de créer un code qui fait comparer entre deux colonnes de dates.
Entout les cas Merci
A+

 

[Ilino]

Re : clignoté la cellule date si a dépassé la date Today

Bonsoir forum
puis je avoir votre attention sur ce file
merci

 

[Lone-wolf]

Re : clignoté la cellule date si a dépassé la date Today

Bonsoir à tous,

@Ilino

Pour masquer le commentaire, il faut faire comme ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
On Error Resume Next
For Each c In Intersect([A:A], Me.UsedRange)
If IsDate(c) Then
    If c = Date Then
    c.Comment.Visible = True
   c.AddComment
     c.Comment.Text c.Text
    c.Comment.Shape.TextFrame.AutoSize = True
    c.Comment.Shape.TextFrame.Characters.Text = Format(Date, "dddd")
      c.Comment.Visible = False
     Else
      c.Comment.Visible = True
    End If
  Else
   c.Comment.Visible = True
  End If
Next
End Sub

A+ 😎

 

[Ilino]

Re : clignoté la cellule date si a dépassé la date Today

Bonjour WOLF
Merci pour la réponse mais si tu permets ce n'ai pas ce que je cherchais comme j'ai indiqué dans mon post # 10
merci
a +