F
Fab
Guest
Bonjour,
Une partie de ma macro doit tester des dates (se trouvant dans une colonne) pour savoir si elle sont déjà passées ou non.
Les dates déjà dépassées sont alors mises en évidence (grisée).
Mais, ça ne fonctionne pas (probablement des End If pas bien plaçés, j'ai essayé diverses combinaisons en vain)
Voici la partie du code concernée qui ne marche pas :
Sub auto_open()
'Macro exécuté à l'ouverture du fichier
Dim DateLimite As Date
Dim DelaiLimite
Dim k
Dim DateActuelle As Date
Dim Blanc
DateActuelle = Now
Sheets("ATTENTION").Select
' Colore en Gris les délais négatifs
For k = 3 To 25
' Test de la cellule selectionnée
Range("D" & k).Select
If Range("D" & k) = "" Then
Blanc = 0
Else
DateLimite = Range("D" & i).Value
DelaiLimite = (DateLimite - DateActuelle)
If (DelaiLimite < 0) Then
' Action
Range("D" & i).Select
Cell.Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
Else
Blanc = 0
End If
End If
Next k
Range("a1").Select
End Sub
Merci d'avance.
Fab
Une partie de ma macro doit tester des dates (se trouvant dans une colonne) pour savoir si elle sont déjà passées ou non.
Les dates déjà dépassées sont alors mises en évidence (grisée).
Mais, ça ne fonctionne pas (probablement des End If pas bien plaçés, j'ai essayé diverses combinaisons en vain)
Voici la partie du code concernée qui ne marche pas :
Sub auto_open()
'Macro exécuté à l'ouverture du fichier
Dim DateLimite As Date
Dim DelaiLimite
Dim k
Dim DateActuelle As Date
Dim Blanc
DateActuelle = Now
Sheets("ATTENTION").Select
' Colore en Gris les délais négatifs
For k = 3 To 25
' Test de la cellule selectionnée
Range("D" & k).Select
If Range("D" & k) = "" Then
Blanc = 0
Else
DateLimite = Range("D" & i).Value
DelaiLimite = (DateLimite - DateActuelle)
If (DelaiLimite < 0) Then
' Action
Range("D" & i).Select
Cell.Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
Else
Blanc = 0
End If
End If
Next k
Range("a1").Select
End Sub
Merci d'avance.
Fab