VBA, problème de syntaxe avec les dates
Résolu
gathou13
Messages postés
12
Date d'inscription
Statut
Membre
Dernière intervention
-
gathou13 Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
gathou13 Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
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 Excel
- Trouver erreur de syntaxe fichier txt pix ✓ - Forum Programmation
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Vba excel sélectionner une plage de cellules variable ✓ - Forum VB / VBA
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