controle date de validation et couleur d'arriere plan de la cellule
1 réponse
sleg
Bonjour,
j'utilise cette macro pour controler une date dans une colonne definie
et je vourais savoir s'il est possible d'ajouter un controle sur la
couleur de fond qui est "blanc".
merci de votre aide
Macro
Sub testDatesrpsi()
Dim c As Range
For Each c In Selection
If c.Value = Date And Not IsEmpty(c) Then
MsgBox "TEXTE 1 " & c.Address _
& " DEADLINE CE JOUR"
End If
Next c
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. If c.Interior.ColorIndex = 2 Then Cordialement. Daniel "sleg" a écrit dans le message de news:
Bonjour,
j'utilise cette macro pour controler une date dans une colonne definie et je vourais savoir s'il est possible d'ajouter un controle sur la couleur de fond qui est "blanc".
merci de votre aide
Macro Sub testDatesrpsi() Dim c As Range For Each c In Selection If c.Value = Date And Not IsEmpty(c) Then MsgBox "TEXTE 1 " & c.Address _ & " DEADLINE CE JOUR" End If Next c End Sub
Bonjour.
If c.Interior.ColorIndex = 2 Then
Cordialement.
Daniel
"sleg" <bastientot@gmail.com> a écrit dans le message de news:
1184145190.264863.21570@n2g2000hse.googlegroups.com...
Bonjour,
j'utilise cette macro pour controler une date dans une colonne definie
et je vourais savoir s'il est possible d'ajouter un controle sur la
couleur de fond qui est "blanc".
merci de votre aide
Macro
Sub testDatesrpsi()
Dim c As Range
For Each c In Selection
If c.Value = Date And Not IsEmpty(c) Then
MsgBox "TEXTE 1 " & c.Address _
& " DEADLINE CE JOUR"
End If
Next c
End Sub
Bonjour. If c.Interior.ColorIndex = 2 Then Cordialement. Daniel "sleg" a écrit dans le message de news:
Bonjour,
j'utilise cette macro pour controler une date dans une colonne definie et je vourais savoir s'il est possible d'ajouter un controle sur la couleur de fond qui est "blanc".
merci de votre aide
Macro Sub testDatesrpsi() Dim c As Range For Each c In Selection If c.Value = Date And Not IsEmpty(c) Then MsgBox "TEXTE 1 " & c.Address _ & " DEADLINE CE JOUR" End If Next c End Sub