Intervalle de dates Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
S
SNKG
Jeune membre
Jeune membre
Messages : 32
Inscrit le : 4 juillet 2019
Version d'Excel : 2013

Message par SNKG » 5 juillet 2019, 17:40

AlgoPlus a écrit :
5 juillet 2019, 17:19
Bonjour à tous,

un essai macro:
For x = 2 To 50
    jour = Day(Cells(x, 3))
    mois = Round(Int((Month(Cells(x, 3)) - 1) / 3)) * 3 + 3
    année = Year(Cells(x, 3))
    Cells(x, 3) = DateAdd("d", -1, DateAdd("m", 1, "01/" & mois & "/" & année))
Next x
A+

edit :

ou bien
For x = 2 To 50
    mois = Round(Int((Month(Cells(x, 3)) - 1) / 3)) * 3 + 3
    année = Year(Cells(x, 3))
    Cells(x, 3) = DateSerial(année, mois + 1, 0)
Next x
Merci pour votre retour, le code marche comme je le voudrais! ::D
Je l'ai adapté à mon cas, voici la version finale si cela peut aider quelqu'un d'autre.
Merci encore!

Sub DATE_MODIFICATION()
Dim x As Integer
Dim LastRow2 As Long
Dim mois As Date
Dim année As Date

Columns(9).Insert
Cells(1, 9) = ("Date traitée")

LastRow2 = Sheets("DATA SELECTION").Range("A" & Rows.Count).End(xlUp).Row

For x = 2 To LastRow2
mois = Round(Int((Month(Cells(x, 8)) - 1) / 3)) * 3 + 3
année = Year(Cells(x, 8))
Cells(x, 9) = DateSerial(année, mois + 1, 0)
Next x
End Sub
j
jmd
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'599
Appréciations reçues : 250
Inscrit le : 8 décembre 2007
Version d'Excel : 365 + PowerBI

Message par jmd » 5 juillet 2019, 18:40

James007 a écrit :
5 juillet 2019, 16:49
=DATE(ANNEE(A2);PLAFOND(MOIS(A2);3)+1;0)
trop fort !
bien mieux que mon bidouillage que je n'ai pas terminé
mais il faut connaître le PLAFOND ::o

pour SNKG :
mon avis perso de moi : ne JAMAIS faire avec VBA ce qui existe en formules

amitiés à vous
Apprenez les fonctions d'Excel.
Exemple "Mettre sous forme de tableau", TCD, "Récupérer des données".
Apprendre les fonctionnalités "récentes".
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message