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

Ilino · 21 Janvier 2013

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 · 25 Janvier 2013

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

Lone-wolf à dit:

Bonsoir à tous,

@Ilino

Pour masquer le commentaire, il faut faire comme ceci:

Code:

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

ET ceci la réponse de job pour masquer les commentaires

job75 à dit:
Re,

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

A+

voir le post#5
MERCI

Lone-wolf · 26 Janvier 2013

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

RE Ilino,

un autre exemple en PJ.

A+ 😎

Ilino · 26 Janvier 2013

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

Re
super un bon travail , mais si je modifié la date , le message reste tjr affiché ???

Lone-wolf · 26 Janvier 2013

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

RE Ilino,

normalement pas, dans le code il y a la condition si cellule est inférieur à aujourd'hui; tu peux modifié par: si cellule est supérieur ( > ) à aujourd'hui.

Edit: le code de job que j'ai montré, chez moi il masquait le commentaire. En passant la souris sur la cellule celui-ci s'affichait. Celui de job par contre, le commentaire restait toujours affiché.

A+ 😎

Ilino · 26 Janvier 2013

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

Re
merci WOLF
et bonne nuit et bon week end amico

Lone-wolf · 26 Janvier 2013

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

Buenas noces Señor ! 😉

Ilino · 26 Janvier 2013

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

molte grazie caro amico Wolf 🙂

job75 · 26 Janvier 2013

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

Bonjour Ilino, JB, Lone-wolf,

Ilino vous n'avez fourni aucun fichier 😕

Mais peut-être s'agit-il du fichier de ce fil :

https://www.excel-downloads.com/threads/texte-info-de-la-cellule-en-arriere-plan.199804/

Alors tout simplement il faut empêcher Date Arrivée d'être inférieure à Date Départ :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'ligne de titres en ligne 1
Dim r As Range, c1 As Range, c2 As Range
Set r = Intersect([K:K,R:R], Rows("2:" & Rows.Count))
Set r = Intersect(Target, r, Me.UsedRange)
If Not r Is Nothing Then
  Application.EnableEvents = False 'désactive les événements
  For Each r In r 'si plusieurs cellules
    Set c1 = Cells(r.Row, "K"): Set c2 = Cells(r.Row, "R")
    If Not IsDate(c1) Then c1 = ""
    If IsDate(c2) Then
      If c2 < c1 Then c2 = ""
    Else
     c2 = IIf(IsDate(c1), "Date en attente", "")
    End If
  Next
  Application.EnableEvents = True 'réactive les événements
End If
End Sub

Fichier (2) joint.

Edit : par MP Ilino m'a confirmé qu'il s'agissait bien de ce fichier, bisous à ma boule de cristal 😛

A+

Ilino · 26 Janvier 2013

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

Re
Merci pour votre aide et bon week-end.
buon fine settimana.😉 job

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

Ilino

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

Ilino

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Ilino

XLDnaute Barbatruc

Discussions similaires

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

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency