Texte info de la cellule en arriéré plan

[Ilino]

Bonjour Forum
je postule encore mon souci :
Voila , J'ai deux colonnes
Colonne K : elle comporte des dates départs
Colonne R : elle comporte des dates d’arrivées
Comment faire afficher un texte en VBA (comme arrière plan de la cellule) dans la cellule Arrivée de la colonne R si la cellule départ de la colonne K non vide

Le type texte : Date en attente

 

[vgendron]

Re : Texte info de la cellule en arriéré plan

Hello
Voir exemple en PJ

 

[Ilino]

Re : Texte info de la cellule en arriéré plan

Bonjour Vgendron
Merci pour la réponse ça fonctionne Nickel
Grazie
@+

 

[job75]

Re : Texte info de la cellule en arriéré plan

Bonjour Ilino, vgendron,

Une solution qui contrôle l'entrée des dates en évitant tout bouclage de la macro :

Private Sub Worksheet_Change(ByVal Target As Range)
'ligne de titres en ligne 1
Dim r 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
    If Not IsDate(Cells(r.Row, "K")) Then Cells(r.Row, "K") = ""
    If Not IsDate(Cells(r.Row, "R")) Then _
    Cells(r.Row, "R") = IIf(IsDate(Cells(r.Row, "K")), "Date en attente", "")
  Next
  Application.EnableEvents = True 'réactive les événements
End If
End Sub

Fichier joint.

Edit : c'est un problème intéressant, j'ai mis un Like au post #1 🙂

A+

 

[job75]

Re : Texte info de la cellule en arriéré plan

Bonjour,

Suite et fin sur ce fil :

https://www.excel-downloads.com/threads/clignote-la-cellule-date-si-a-depasse-la-date-today.199787/

Faut faire le ménage soi-même sur XLD.

A+