Format de date mois dernier
Bonjour
je me permets de vous solliciter sur mon souci suivant:
je souhaite obtenir la valeur du mois dernier au format standard caractère AAAA-MM.
j'ai essayé =MOIS.DECALER(AUJOURDHUI();-1) en Excel
et
DateAdd("m", -1, Date) en VBA
mais je n'arrive pas à les transformer en caractère ...
Si vous aviez une piste pour me dépatouiller et s'il manque la moindre info, je suis preneur bien volontiers.
Cordialement
Bonjour,
Il te suffit d'appliquer un format personnalisé à la cellule, soit : aaaa-mm (valeur numérique) !?
S'il te faut une chaîne de caractères (du texte) :
=TEXTE(MOIS.DECALER(AUJOURDHUI();-1);"aaaa-mm") Quand on a les compétences, ça semble plus facile.
Merci beaucoup ,ça va me faire avancer.
Bonjour
j'ai encore un manque côté VBA, je n'arrive pas à "transformer" la formule Excel ( =TEXTE(MOIS.DECALER(AUJOURDHUI();-1);"aaaa-mm") ) en VBA.
Pour la période de la semaine dernière, j'ai trouvé difficilement :
ActiveCell.FormulaR1C1 = _
"=IF(ISBLANK(RC[-7]),""""," & _
" YEAR(LOOKUP(NOW()-7,DATE(YEAR(NOW()-7)+{-1;0;1},1,3)-WEEKDAY(DATE(YEAR(NOW()-7)+{-1;0;1},1,3))+2,DATE(YEAR(NOW()-7)+{-1;0;1},1,3)))" & _
" &""-S""&" & _
" TEXT(INT((NOW()-7-LOOKUP(NOW()-7,DATE(YEAR(NOW()-7)+{-1;0;1},1,3)-WEEKDAY(DATE(YEAR(NOW()-7)+{-1;0;1},1,3))+2))/7)+1,""00""))"
Mais pour mon mois dernier, je sèche un peu.
Si vous aviez une piste, je serai ravi.
Merci d'avance.
Bonjour,
Merci de joindre un fichier et de reformuler précisément ce que tu veux réaliser.
Cdlt.
Effectivement, c'est pas très clair.
Dans l'exemple ci-dessous, j'aimerais afficher au format Caractère ( Standard ) le mois précédent sous la forme AAAA-MM dans les cellules de la colonne H ( Mois ) et seulement s'il y a une valeur de renseigné dans la colonne A ( ID Probleme ) :
Sub Traitement_GDP_Stock()
'
' Traitement du fichier Export_gdp_stock
'
Application.ScreenUpdating = False
Worksheets("Feuille de travail").Select
'
' Mois
'
Range("H1").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISBLANK(RC[-7]),""""," & _
" ??????? )
Selection.Copy
lastrow = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
Range("H2:H" & lastrow).Select
ActiveSheet.Paste
Range("H1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Mois"
'
End Sub
J'espère avoir été plus clair et franchement un grand merci pour votre attention, ca m'enlève un stress assez particulier en ce moment...
au plaisir de vous lire.
Cordialement.
bonjour
je n'ai pas donné assez d'info ?
j'ai essayé de créer cette formule dans une macro et elle ne fonctionne pas. Que me manque-t-il svp ?
' Mois dernier par rapport à aujourdhui 2019-06
'
Range("H1").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISBLANK(RC[-7]),"""",Format(DateAdd("m", -1, Date), "yyyy-mm"))"
Merci à vous
re
pourquoi faire en VBA ce qui fonctionne avec une formule
Une question d'harmonisation mais quelle mauvaise idée. ..
Merci encore