VBA, problème de syntaxe avec les dates
Résolu
gathou13
Messages postés
13
Statut
Membre
-
gathou13 Messages postés 13 Statut Membre -
gathou13 Messages postés 13 Statut Membre -
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!
A voir également:
- VBA, problème de syntaxe avec les dates
- Nombre de jours entre deux dates excel - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Syntaxe precise - Forum Mail
- Trouver une date de naissance gratuit - Forum Webmastering
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
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
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
En faite si la date est absente, il affiche quand même "Refusée" alors que je voudrais qu'il n'affiche rien
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question