Discussion :

[Hania06]

Bonjour a tous

Je travailles dans un fichier Excel issu d'une extration qui contient plusieurs lignes (environs 20000) et plusieurs colonnes (environs 20). mon problème
concerne une colonne qui contient des dates (eg: 02/12/2016): je voudrais supprimer les lignes qui ont une date infèrieure au dernier jour du moi ( c'est à dire celles qui sont differentes du 31/.. ou 30/...), peu importe le mois ou l'année. Je voudrais le faire en utilisant un code sur VBA

Quelle variable ou fonction puis-je utiliser sur VBA qui désigne le jour, dans la date de ma colonne?

[Marc-L]

Bonjour !

Y-a-t-il un rapport entre le titre de cette discussion et le problème exposé ?

Car si ce sont des vraies dates, donc stockées numériquement en interne,
utiliser soit la fonction de feuille de calculs JOUR (voir l'aide d'Excel) ou l'équivalente côté VBA Day.

Si ce ne sont pas des dates mais du texte, voir du côté de la fonction VBA Split par exemple …
Sans compter le tutoriel Manipuler les chaînes de caractères en VB6 et VBA Excel !

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[patricktoulon]

bonjour
et les filtres alors il servent a quoi???

[unparia]

Bonjour
Ce qui veut dire :
- pour chaque date :
commencer par déterminer le dernier jour du mois de cette date. C'est tout simplement la veille du premier jour du mois suivant, ce qui se détermine très facilement à l'aide de DateSerial
Question, donc, avant de parler de suppressions de lignes : sais-tu déterminer le dernier jour du mois d'une date spécifiée, à l'aide de DateSerial ?
Si non : commence par cela.

[patricktoulon]

tiré de ma fonction nb_jours de ma contrib calendrier
exemple sur la date

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test()
 
    NB_JOURS = Day(DateSerial(Year(Date), Month(Date) + 1, 1) - 1)
MsgBox NB_JOURS
End Sub

[unparia]

Ce qui s'écrit ainsi, Patricktoulon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DateSerial(Year(d), Month(d) + 1, 0)

où d est la date considérée.
(Dateserial a certaines particularités ad-hoc).

[patricktoulon]

https://msdn.microsoft.com/en-us/lib...ffice.14).aspx

[unparia]

Voilà !
(également exposé dans l'aide VBA, d'ailleurs - avec un exemple encore plus poussé )

[Invité]

Bonjour,
La définition du dernier jour du mois,a toujours été un peut flou pour moi!

Je ne parle même pas de février! Mais que ce passe-t-il si le dernier jour du mois est un dimanche, en quoi le dernier jour du mois est important?

peu importe le mois ou l'année.

on et bien d'accord tous ce qui est supérieur à 31 est inférieur au 31 du mois suivant!

[patricktoulon]

re Bonjour robert je te suis pas trop sur ta dernière réflexion

tout les mois ne font pas 31 jours

et tout ce qui est supérieur a 31 du mois et inferieur au 31 du mois suivant

est donc déjà un raisonnement faux !!!!!!!!! et même une erreur

d'ailleur fait le test
msgbox isdate ("31/11/2016")

tandis que le 1 du mois - 1 jour est forcement le dernier jours du mois précèdent ca c'est catégorique hein!!!!!!

pas bien dormis cette nuit mon petit robert

[Invité]

Ce que je voulais dire, c'est que le dernier jour du moi travaillé est peut être le,28 si le 31 est un dimanche, d'ou ma réflexion sur la définition su dernière jour du mois!

[patricktoulon]

re
toi tu parle du dernier jour du mois ouvrable

[Hania06]

Merci pour vos réponses

ce sont bien des dates en valeurs numérique qui sont stockées dans ma colonne. dans mon code je chercher a prendre en compte uniquement la date du 30 ou 31 rien d'autre

En utilisant la fonction DateSerial: Function DateSerial(Year As Integer, Month As Integer, Day As Integer) As DateTime, je devrais obligatoirement la calculé dans

ma feuille Excel? sinon, comme je peut faire appelle a la fonction (DateSerial), ou même à l'argument Day de ma fonction, dans une procédure afin de pouvoir appliquer la condition ci-dessous sur ma colonne?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
i=i
Do
Range("I" & i).Select
If Day <> 30 Or Day <> 31 Then
Rows(i).Delete
i = i
Else
i = i + 1
End If
Loop While (Sheets("Extraction").Range("A" & i) <> "")

Excusez ma syntaxe douteuse. J'espère que mon problème est bien posé

[joe.levrai]

Bonjour,

Patrick, tu as raison dans un contexte lambda
Robert, tu as raison dans un contexte professionnel soumis à jours ouvrées (et/ou ouvrables)

dans ce second contexte, il suffit d'espionner le JOURSEM de la date du premier jour du mois suivant, et de retrancher en conséquence

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub toto()
Dim LaDate As Date
Dim LaDateCherchee As Date
 
LaDate = CDate("01/08/2016")
 
Select Case DatePart("w", LaDate, vbMonday, vbFirstFourDays)
    Case 1
        LaDateCherchee = LaDate - 3
    Case 7
        LaDateCherchee = LaDate - 2
    Case Else
        LaDateCherchee = LaDate - 1
End Select
 
MsgBox LaDateCherchee
 
End Sub

Si l'on souhaite prendre en compte les jours fériés, alors il faudra plutôt travailler par combinaison de plusieurs formules de dates, dont NB.JOURS.OUVRES.INTL (Application.WorksheetFunction.NetworkDays_Intl) en lui fournissant en troisième paramètre une plage Excel (ou un tableau) stockant les jours fériés de l'année observée;

[patricktoulon]

remplace 1 par le numéro de ta colonne ou la lettre de ta colonne entre guillemet dans les address

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test()
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Day(CDate(Cells(i, 1))) < 30 Then Cells(i, 1).EntireRow.Delete
Next
End Sub

edit oupss c'est le contraire j'ai corrigé

[joe.levrai]

Et le .Value

[patricktoulon]

[Invité]

si j'ai bien compris le mois de février ne t’intéresses pas!

si tu change d'avis!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Dim LaDate as date
LaDate =Now
Debug.Print CDate(Format(CDate(Format(LaDate , "yyyy-mm-01")) + 31, "yyyy-mm-01")) - 1
Debug.Print CLng(CDate(Format(CDate(Format(LaDate , "yyyy-mm-01")) + 31, "yyyy-mm-01")) - 1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Cells(i, 1)<> CLng(CDate(Format(CDate(Format(Cells(i, 1), "yyyy-mm-01")) + 31, "yyyy-mm-01")) - 1) Then Cells(i, 1).EntireRow.Delete

[patricktoulon]

re
normalement ceci devrait fonctionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
ladate = CDate(Cells(i, 1))
nbjour = IIf(Month(ladate) = 2, Day(DateSerial(Year(ladate), Month(ladate) + 1,0)), 30)
If Day(ladate) < nbjour Then Cells(i, 1).EntireRow.Delete
Next
End Sub

il est dur ce robert hein !!!

au puré c'était 30 ou!!! 31
voila celle la c'est la bonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
ladate = CDate(Cells(i, 1))
If Day(ladate) < Day(DateSerial(Year(ladate), Month(ladate) + 1, 0)) Then Cells(i, 1).EntireRow.Delete
Next
End Sub

voila
peut etre un app.screenupdating false auusi
ou alors gérer cela dans un tableau
la base est la

[Invité]

Patrick il faut tenir compte du passage à l'année suivant

Si tu fais le premier du mois en cours +31 tu tombe forcément au début du moi suivant et tu passe l'année ans problème!