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).

[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é

[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