Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Chaque début de mois.

Chaque début de mois.

9 réponses
Avatar
Crel
Bonjour à toutes et tous.
Je désire lancer une macro à chaque début du mois,
en fait il s'agit d'une macro qui tire un trait automatiquement dans un
tableau, ceci afin de visualiser chaque mois.
J'ai la macro qui tire le trait, mais pas la proc afin de la lancer.
Merci beaucoup.
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AV
Tu vas me trouver lourd, mais je n'arrive pas à la faire fonctionner,


Tu as fais exactement ce indiqué ?
Bien évidemment tu n'en rendras compte que le 1° septembre !
Pour tester : fais comme dit, enregistre et ferme ton fichier, modifie ta date
sytème(ex :01/08/03) et réouvre le fichier
Si "l'échec" persiste, envoi un mess en bal perso (avec adresse valide)

AV

aurais-tu un p'tit exemple pour moi ?
Merci beaucoup
Patrick.

"AV" a écrit dans le message de news:

Excuse moi AV, en fait si j'ai bien compris, la macro se déclenchera à
chaque 1er du mois.
Mais là elle se déclenche à chaque fois.


Ben comme tu voulais une macro.. pour que ça se déclenche à une date
donnée, il

faut ouvrir le fichier à la dite date !
Si le même jour tu refermes et réouvres le fichier, la macro va se
relancer sauf

à mémoriser (dans un nom par ex.) la 1° action
Ama, laisse tomber la macro et passe par une MFC ...
Si tes dates sont en A1:Ax :
Sélection A1:Ax --> MFC --> formule :
=(A1=AUJOURDHUI())*(JOUR(A1)=1)
--> format...

AV









Avatar
Stéphanie
Une astuce plus simple aussi, c'est dans format "mise en
forme conditionnelle".
mais il faut par avant que tu insères tes mois ds une
colonne ou sur une ligne, tt dépend de la construction de
ton tableau.
Avatar
AV
Dans le "Workbook_Open"

If Day(Date) = 1 Then mamacro

AV

"Crel" a écrit dans le message news:

Bonjour à toutes et tous.
Je désire lancer une macro à chaque début du mois,
en fait il s'agit d'une macro qui tire un trait automatiquement dans un
tableau, ceci afin de visualiser chaque mois.
J'ai la macro qui tire le trait, mais pas la proc afin de la lancer.
Merci beaucoup.





Avatar
Crel
Merci beaucoup Stéphanie, je suis également "preneur" de cette soluce.
Patrick.

"Stéphanie" a écrit dans le message de news:
077501c35a8c$0beb5800$

Une astuce plus simple aussi, c'est dans format "mise en
forme conditionnelle".
mais il faut par avant que tu insères tes mois ds une
colonne ou sur une ligne, tt dépend de la construction de
ton tableau.
Avatar
AV
Excuse moi AV, en fait si j'ai bien compris, la macro se déclenchera à
chaque 1er du mois.
Mais là elle se déclenche à chaque fois.


Ben comme tu voulais une macro.. pour que ça se déclenche à une date donnée, il
faut ouvrir le fichier à la dite date !
Si le même jour tu refermes et réouvres le fichier, la macro va se relancer sauf
à mémoriser (dans un nom par ex.) la 1° action
Ama, laisse tomber la macro et passe par une MFC ...
Si tes dates sont en A1:Ax :
Sélection A1:Ax --> MFC --> formule :
=(A1=AUJOURDHUI())*(JOUR(A1)=1)
--> format...

AV

Avatar
Crel
Merci beaucoup AV, je teste !
Patrick.

"AV" a écrit dans le message de news:

Excuse moi AV, en fait si j'ai bien compris, la macro se déclenchera à
chaque 1er du mois.
Mais là elle se déclenche à chaque fois.


Ben comme tu voulais une macro.. pour que ça se déclenche à une date
donnée, il

faut ouvrir le fichier à la dite date !
Si le même jour tu refermes et réouvres le fichier, la macro va se
relancer sauf

à mémoriser (dans un nom par ex.) la 1° action
Ama, laisse tomber la macro et passe par une MFC ...
Si tes dates sont en A1:Ax :
Sélection A1:Ax --> MFC --> formule :
=(A1=AUJOURDHUI())*(JOUR(A1)=1)
--> format...

AV





Avatar
Crel
Tu vas me trouver lourd, mais je n'arrive pas à la faire fonctionner,
aurais-tu un p'tit exemple pour moi ?
Merci beaucoup
Patrick.

"AV" a écrit dans le message de news:

Excuse moi AV, en fait si j'ai bien compris, la macro se déclenchera à
chaque 1er du mois.
Mais là elle se déclenche à chaque fois.


Ben comme tu voulais une macro.. pour que ça se déclenche à une date
donnée, il

faut ouvrir le fichier à la dite date !
Si le même jour tu refermes et réouvres le fichier, la macro va se
relancer sauf

à mémoriser (dans un nom par ex.) la 1° action
Ama, laisse tomber la macro et passe par une MFC ...
Si tes dates sont en A1:Ax :
Sélection A1:Ax --> MFC --> formule :
=(A1=AUJOURDHUI())*(JOUR(A1)=1)
--> format...

AV





Avatar
Crel
Ah bon..., je pensais que c'était seulement au niveau de la saisie qu'il y
avait un changement, en temps réel,
Ok, je teste, est-il possible d'avoir un trait plus gros , car celui proposé
est bien fin.
Patrick.


"AV" a écrit dans le message de news:

Tu vas me trouver lourd, mais je n'arrive pas à la faire fonctionner,


Tu as fais exactement ce indiqué ?
Bien évidemment tu n'en rendras compte que le 1° septembre !
Pour tester : fais comme dit, enregistre et ferme ton fichier, modifie ta
date

sytème(ex :01/08/03) et réouvre le fichier
Si "l'échec" persiste, envoi un mess en bal perso (avec adresse valide)

AV

aurais-tu un p'tit exemple pour moi ?
Merci beaucoup
Patrick.

"AV" a écrit dans le message de news:

Excuse moi AV, en fait si j'ai bien compris, la macro se déclenchera
à




chaque 1er du mois.
Mais là elle se déclenche à chaque fois.


Ben comme tu voulais une macro.. pour que ça se déclenche à une date
donnée, il

faut ouvrir le fichier à la dite date !
Si le même jour tu refermes et réouvres le fichier, la macro va se
relancer sauf

à mémoriser (dans un nom par ex.) la 1° action
Ama, laisse tomber la macro et passe par une MFC ...
Si tes dates sont en A1:Ax :
Sélection A1:Ax --> MFC --> formule :
=(A1=AUJOURDHUI())*(JOUR(A1)=1)
--> format...

AV













Avatar
Crel
C'est presque parfait, juste que le mois dans l'administration ne commnece
pas toujours le 1er ;-)
En fait, il faudrait un changement à chaque changement de mois,
indifferement du jour.
Merci beaucoup.
Patrick.

"AV" a écrit dans le message de news:

AV, après test, la fonction est volatile, comment faire afin de la
"figer" ?



Ben té... avec AUJOURDHUI() dans la formule de la MFC c'est normal et
heureux...!
J'avais cru comprendre que le but du jeu c'était justement de marquer le
jour J,

le 1° jour du mois, et ensuite (le lendemain par ex.) comme on n'est plus
le 1°

jour du mois ben...on marque plus !
Pour ce que tu demandes (formater et laisser formaté le 1°J du mois), tu
peux

passer aussi par une MFC :
formule : =JOUR(A1)=1 ---> format
PS : il n'y a pas de choix de d'épaisseur de bordures dans la MFC
Si tu tiens absolument à l'épaisseur du trait il n'y a que la proc !
Si tes dates sont saisies au fur et à mesure, une proc évènementielle :
Les dates en A avec le tableau jusqu'en D :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Column <> 1 Then Exit Sub
On Error Resume Next
If Day(zz) = 1 Then
With zz.Range("A1:D1").Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
End With
End If
End Sub

AV