Macro excel : le premier du mois en cours
Résolu
Lebeaupat
Messages postés
198
Date d'inscription
Statut
Membre
Dernière intervention
-
Lebeaupat Messages postés 198 Date d'inscription Statut Membre Dernière intervention -
Lebeaupat Messages postés 198 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis actuellement sur un projet sour Excel 2003.
Je dois insérer dans une cellule (A1 par exemple) :
- le premier du mois précédent si on est dans la première quinzaine du mois
- le premier du mois en cours si on est dans la deuxième quinzaine du mois
Et dans une seconde cellule (A2) :
- la date de la veille (J-1).
Le tout au format JJ/MM/YYYY.
Je vous remercie pour votre aide et vous souhaite une bonne journée.
Au plaisir.
Je suis actuellement sur un projet sour Excel 2003.
Je dois insérer dans une cellule (A1 par exemple) :
- le premier du mois précédent si on est dans la première quinzaine du mois
- le premier du mois en cours si on est dans la deuxième quinzaine du mois
Et dans une seconde cellule (A2) :
- la date de la veille (J-1).
Le tout au format JJ/MM/YYYY.
Je vous remercie pour votre aide et vous souhaite une bonne journée.
Au plaisir.
A voir également:
- Macro excel : le premier du mois en cours
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
3 réponses
Bonjour,
pas besoin de macro pour ca!
début mois
à mettre au format date (format-cellule-nombre-date)
fin;mois activé par les unitaires d'analyse(outils-macros complémentaires)
la date de la veille
=aujourdhui()-1
a mettre au format date
maintenant si tu tiens absolument à une macro, tu dis et on fera :-)
:-x
pas besoin de macro pour ca!
début mois
=SI(jour(AUJOURDHUI())>=15;FIN.MOIS(AUJOURDHUI();-1)+1;FIN.MOIS(AUJOURDHUI();-2)+1)
à mettre au format date (format-cellule-nombre-date)
fin;mois activé par les unitaires d'analyse(outils-macros complémentaires)
la date de la veille
=aujourdhui()-1
a mettre au format date
maintenant si tu tiens absolument à une macro, tu dis et on fera :-)
:-x
Y a encore des gens sous excel 2003 ?
Change de boite !
Change de boite !
Je vais t'envoyer un collegue qui est specialiste des macros.
Mais il me semble important que tu saches qu'il existe des solutions gratuites bien plus performantes que windows.
C'etait juste pour t'aider.
;-)
Mais il me semble important que tu saches qu'il existe des solutions gratuites bien plus performantes que windows.
C'etait juste pour t'aider.
;-)
Je te remercie.
Je sais qu'il existe des solutions gratuites, mais actuellement ils utilisent Excel 2003, et je n'ai pas d'autre choix que de faire avec...
Je leur ai demandé s'ils pouvaient changer, mais ils ne veulent pas car (je cite) "Excel fonctionne très bien et nous avons déjà les licences"...
Je pense surtout qu'ils (les informaticiens) sont un peu faignants sur les bords... M'enfin bon.
Merci à toi ^^
++
Je sais qu'il existe des solutions gratuites, mais actuellement ils utilisent Excel 2003, et je n'ai pas d'autre choix que de faire avec...
Je leur ai demandé s'ils pouvaient changer, mais ils ne veulent pas car (je cite) "Excel fonctionne très bien et nous avons déjà les licences"...
Je pense surtout qu'ils (les informaticiens) sont un peu faignants sur les bords... M'enfin bon.
Merci à toi ^^
++
Je ne voulais pas parler des informaticiens en général, mais de ceux qui sont dans mon entreprise !!!
Je suis moi-même informaticien, mais novice... Je suis encore étudiant...
Et je ne vais pas aller taper sur le dos de ceux qui m'ont aidé, ce serait traitre !
En tout cas merci et à bientôt !
Au plaisir.
Je suis moi-même informaticien, mais novice... Je suis encore étudiant...
Et je ne vais pas aller taper sur le dos de ceux qui m'ont aidé, ce serait traitre !
En tout cas merci et à bientôt !
Au plaisir.
Je vous remercie et vous souhaite une bonne journée.
Au plaisir.
Trouvé ici :
1er jour du mois précédent :
Dim dFirst As Date dFirst = CDate("1/" & Format(DateAdd("m", -1, Date), "mm/yyyy"))Ce qui donne donc avec un test pour la quinzaine :
If CInt(Format(Date, "d")) < 15 Then [A1] = CDate("1/" & Format(DateAdd("m", -1, Date), "mm/yyyy")) Else [A1] = CDate("1/" & Format(DateAdd("m", 0, Date), "mm/yyyy")) End Ifpour la date de la veille en A2 :
en tant que "robot à ton service", je te propose une macro déclenchée dans la zone A1:F10 par un clic droit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("A1:F10")) Is Nothing Then: Exit Sub Cancel = True If Day(Date) >= 15 Then Target = Date - Day(Date) + 1 Else Target = DateSerial(Year(Date), Month(Date) - 1, 1) End If End Suba installer dans le module feuille concernée:
copier cette macro
clic droit dans le nom de l'onglet
visualiser le code
coller
si tu préfères déclencher par un double clic
remplace
Private Sub Worksheet_BeforeRightClick
par
Worksheet_BeforeDoubleClick
En tout cas je vous remercie pour votre aide.
A très vite.
Merci pour votre travail !!
Quant-à vous, michel_m, non vous n'êtes pas un robot, et encore moins à mon service...
Par contre votre macro me semble être plus simple (textuellement parlant) et aussi efficace !
Merci pour à tous pour votre aide, et bonne journée !
Au plaisir.