VBA, problème de syntaxe avec les dates
Résolu
Bonjour,
Je souhaite trier des articles à l'aide de leur date:
si l'article date de plus du 30/12/2011 alors il est mis au rebus.
Le problème c'est que pour les cases vides il affiche aussi refusée...
voici mon code
Dim j As Integer, lg As Integer
j = 3
lg = Cells(Rows.Count, 2).End(xlUp).row
While (j < lg)
'condition de rebus
If (fichier.Worksheets(1).Range("C" & j).Value < #12/30/2011#) Then
fichier.Worksheets(1).Range("K" & j).Value = "Refusée"
End If
j = j + 1
Wend
Merci d'avance!
Je souhaite trier des articles à l'aide de leur date:
si l'article date de plus du 30/12/2011 alors il est mis au rebus.
Le problème c'est que pour les cases vides il affiche aussi refusée...
voici mon code
Dim j As Integer, lg As Integer
j = 3
lg = Cells(Rows.Count, 2).End(xlUp).row
While (j < lg)
'condition de rebus
If (fichier.Worksheets(1).Range("C" & j).Value < #12/30/2011#) Then
fichier.Worksheets(1).Range("K" & j).Value = "Refusée"
End If
j = j + 1
Wend
Merci d'avance!
5 réponses
-
Bonjour
probleme de lunette
tu change ton if
For L = 3 To Nlig
If Range("C" & L).Value <> "" And Range("C" & L).Value < DateValue("30/10/2013") Then
Range("K" & L).Value = "Refusée"
Else
Range("K" & L).Value = ""
End If
Next
A+
Maurice -
Bonjour
modification de ta macro
Sub TestDate()
Dim L As Integer, Nlig As Integer
Nlig = Cells(Rows.Count, 2).End(xlUp).Row
For L = 4 To Nlig
If Range("C" & L).Value < DateValue("30/12/2011") Then
Range("K" & L).Value = "Refusée"
Else
Range("K" & L).Value = ""
End If
Next
End Sub
A+
Maurice -
Merci pour votre aide, mais je me suis peut être ma exprimée parce que j'obtient le même problème...
En faite si la date est absente, il affiche quand même "Refusée" alors que je voudrais qu'il n'affiche rien -
je te remercie pour ton aide!
ça marche très bien! -
j'ai une nouvelle question sur le même sujet....
Je veux comparer des dates mais la cellule ne contient pas que la date exemple "15/05/2012 Accessoires de levage"
comment puis je faire?
