Comment manipuler une chaine de caractère sur VBA

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?

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, …

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

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.

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

Code:

---

1 2 3 4 5

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

---

Ce qui s'écrit ainsi, Patricktoulon

Code:

---

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

---

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

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

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

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?

Citation:

---

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!

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

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!

re
toi tu parle du dernier jour du mois ouvrable

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:

---

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é

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:

---

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;

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

Code:

---

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é

Et le .Value :rouleau:

:frenchy:

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

si tu change d'avis!

Code:

---

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:

---

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

---

re
normalement ceci devrait fonctionner

Code:

---

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:

---

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

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!

Bonjour,

déjà juste avec la fonction VBA DateDiff …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

re
on s'égare la robert la dernière solution que j'ai proposé garde bien que les dernier jour du mois des dates en cellules
et date(jour1 du mois ) +31 ne donne pas forcement le 1 du mois suivant c'est une erreur robert

test avec les 12 mois tu verra

Je ne parviens pas à croire que l'on se pose tant de questions en ce qui concerne l'utilisation de Dateserial.
Cette fonction, qui reconstitue en arrière plan le numérique d'une date ne saurait en aucun cas se tromper. Quel que soit le mois de quelle que soit l'année.
J'ai par ailleurs lu ici des interrogations relatives aux "jours ouvrables". Or :
1) qui a dit que le demandeur se limitait à des jours ouvrables ? Qui vous dit, d'ailleurs, qu'il s'agit de dates liées à une activité professionnelle ?
2) et quand bien même il s'agirait d'activité professionnelle :
-- a) certaines "vivent" 24 heures sur 24, 7 jours sur 7, y compris certains services de l'Etat !
-- b) d'autres s'étalent sur 5 jours par semaines et d'autres sur 6 jours par semaines et pour ces dernières :
------- le(s) jour(s) non ouvrables ne sont pas forcément les mêmes (samedi ou/et Dimanche)
etc, etc ...
-- c) et même si l'on acceptait l'idée d'une "généralité" : elle serait différente dans certains pays
alors, utiliser une "fonction" universelle pour déterminer les jours ouvrables relève de la quasi-utopie !

Il serait dans ces conditions assez sage de ne pas extrapoler la question du demandeur.

Et (pour garder les pieds sur terre),si l'on veut ne garder que les données correspondant à la dernière date ayant donné lieu à un enregistrement de chaque mois, même si cette date n'est pas le dernier jour du mois, rien de plus simple non plus (dès lors que l'on veut supprimer toutes les autres données) !
Je suggère maintenant qu'on attende que le demandeur s'exprime.

Mercii les gars

J'ai essayé le code de patricktoulon, mais au lieux de faire une boucle For, j'ai utilisé une boucle Do. Je l'ai exécuté sur un échantillon de 10 lignes, et ça marche

voici mon code final, en ayant rajouter la condition sur les doublons. En fait, ma feuille contient des doublons et je voudrai supprimer le doublon qui a la date < a 30 ou 31:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Sub dat()   Dim i As Integer   Sheets("Extraction").Select Application.Calculation = xlCalculationManual   Application.ScreenUpdating = False i = 2 Do Range("A" & i).Select   Range("I" & i).Select   If Cells(i, 1).Value = Cells(i + 1, 1).Value And Day(CDate(Cells(i, 9))) < 30 Then Rows(i).Delete i = i Else If Cells(i, 1).Value = Cells(i + 1, 1).Value And Day(CDate(Cells(i + 1, 9))) < 30 Then Rows(i + 1).Delete   i = i End If   i = i + 1   End If   Loop While (Sheets("Extraction").Range("A" & i) <> "")   Application.Calculation = xlCalculationAutomatic   End Sub

---

Mais interrogation ce portaient sur le fait de préciser si le dernier jours du mois pouvais ou non être un samedi ou dimanche, pas d'imposer les jours ouvrés!

Mon questionnement ce prêtait également sur le traitement du mois de février, mais puisque il semblerait que le demandeur a trouvé sa solution, le mois de février n'est pas traiter!

Maintenant j'ai dit que le premier jour du mois + 31 tombait en début du mois suivant pas que c'était le le premier jour du mois suivant, l solution que j'ai proposé le montre bie et elle donne la date du dernier jour du mois même pour février.

Les date reste des dates même si le sicle journalier est de 5 heures cumulé sur 31 jours sinon il faut s'intéresser qu'aux nombres d'heures!

La durée du temps de travail ne donneront jamais 31 jours au mois de février!

Bonjour Robert
Regarde :

Code:

---

1 2 3 4 5 6 7

Dim d As Date d = CDate("02/02/2007") ' année normale MsgBox DateSerial(Year(d), Month(d) + 1, 1) - 1 d = CDate("02/02/2008") ' année bissextile MsgBox DateSerial(Year(d), Month(d) + 1, 0) d = CDate("21/12/2008") ' on est à la fin d'une année MsgBox DateSerial(Year(d), Month(d) + 1, 0)

---

Dateserial ne se trompera jamais (et pour cause : il "repart" toujours d'un numérique, qu'il traite d'abord comme tel)
Amitiés

Je sais que ça fonctionne je fais autrement mais c'est une autre façon de voir

Utiliser ta méthode ou la mienne pour qualifier l valeur de la cellule ok.

De toutes le façons nos deux méthode ce place au 01 du mois suivant - 1!

Mais ne confondons pas les sujets, la question posée est le dernier jour du mois 30 ou 31!
Et c'est bien ce que fait la solution retenue (pas de 28 ou 29 février)

Citation:

---

Envoyé par Hania06

Mercii les gars

J'ai essayé le code de patricktoulon, mais au lieux de faire une boucle For, j'ai utilisé une boucle Do. Je l'ai exécuté sur un échantillon de 10 lignes, et ça marche

voici mon code final, en ayant rajouter la condition sur les doublons. En fait, ma feuille contient des doublons et je voudrai supprimer le doublon qui a la date < a 30 ou 31:

Sub dat()

Dim i As Integer

Sheets("Extraction").Select
Application.Calculation = xlCalculationManual

Application.ScreenUpdating = False
i = 2
Do
Range("A" & i).Select

Range("I" & i).Select
'1ere condition
If Cells(i, 1).Value = Cells(i + 1, 1).Value And Day(CDate(Cells(i, 9))) < 30 Then
Rows(i).Delete
i = i
Else
'2d condition
If Cells(i, 1).Value = Cells(i + 1, 1).Value And Day(CDate(Cells(i + 1, 9))) < 30 Then
Rows(i + 1).Delete

i = i
End If

i = i + 1

End If

Loop While (Sheets("Extraction").Range("A" & i) <> "")

Application.Calculation = xlCalculationAutomatic


End Sub

---

annia ton code est faux tout du moins il ne peut pas donner le résultat que tu attends
sans le tester on se rends bien compte que si la première condition est remplie il ne fera pas la 2 d

Pourquoi cela?

Ma boucle teste bien mes deux colonnes. Si la cellule (i,1) est égale à la cellule (i+1, 1), alors mon code supprime la ligne qui a la date < au 30 dans la cellule(i,9) ou bien le cellule (i+1,9)
Il supprimera la i ème ligne si la cellule(i,9)<30 et cellule (i+1,9) >30. Ou il supprimera la i ème +1 ligne si la cellule (i+1,9) est <30 et cellule(i,9) >30 . Et cela sous la condition qu'il ai un doublon

La seconde condition est imbriquée dans la première condition