VBA, problème de syntaxe avec les dates Résolu/Fermé

Question

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!


Configuration: Windows 8 / Internet Explorer 10.0

Maurice · Answer

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

gathou13 · Answer

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

Maurice · Answer

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

gathou13 · Answer

je te remercie pour ton aide!
ça marche très bien!

gathou13 · Answer

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?

VBA, problème de syntaxe avec les dates

5 réponses

Discussions similaires