XL 2021 Calendrier Éphéméride Lunaison

Nicolas JACQUIN · 24 Août 2024

Bonjour à tous,

Je termine mon calendrier mais bug sur un point encore,
Sur la partie lunaison
j'essai de trouver une solution pour que à la création du calendrier, j'ai juste un commentaire qui se crée sur le jour ou il y a un changement de phase lunaire (éventuellement avec l'heure, qui sont déjà accessible).

Certains d'entre vous mon déjà beaucoup aidé et connaisse le fichier.

Merci à tous
Nico

Nicolas JACQUIN · 25 Août 2024

En me relisant j'ai vu mon erreur

VB:

Sub recup_phase()
    recup = recup_phase_lune(year(Range("B1")), month(Range("B1")))
End Sub

Function recup_phase_lune(année, mois)
    Dim i As Long, col As Long, lig As Long, nbjour As Long

    Application.ScreenUpdating = False

    nbjour = day(DateSerial(année, mois + 1, 0))    ' te donne le nombre de jours dans le mois en parametre
    col = Weekday(DateSerial(année, mois, 1), vbMonday) + 1 ' te donne l'index du jour de la semaine (commencant un lundi), et ajouter 1 si calendrier commence en colonne "A"
    lig = 3

    With Worksheets("Calendrier")
    
        For i = 1 To nbjour

            If col = 9 Then lig = lig + 2: col = 2 'pour changer de ligne quand on arrive au...

Nicolas JACQUIN · 2 Septembre 2024

vgendron à dit:
je pense effectivement que c'était l'objectif initial de cette partie "Lunaison du mois"

l'ennui que je vois maintenant c'est que selon le mois.. il peut y avoir 4 ou 5 phases lunaires différentes
ET ce n'est pas toujours la meme phase qui commence le mois
ex: mois de septembre, 4 phases, > 1ere phase = nouvelle Lune

mois de décembe 5 phases, 1ere phase = nouvelle lune
et donc.. mois de janvier 2025==>1ere phase sera un premier quartier

==> au final, dans le formulaire, les intitulés "premier q, nouvelle lune (2 fois)..) ne sont pas forcément bons...

oui là pour mon niveau je sèche franchement

vgendron · 2 Septembre 2024

la, c'est pas du code.. juste des dates et des phases lunaires
selectionnes Janvier 2024
le tableau des lunaisons complète jusqu'à décembre est créé
il te suffit de regarder le nombre de phases lunaires par mois, et la première phase de chaque mois
tu vas voir que ca change de temps en temps..
4 ou 5 phases, et Première phase change..

Nicolas JACQUIN · 2 Septembre 2024

vgendron à dit:
la, c'est pas du code.. juste des dates et des phases lunaires
selectionnes Janvier 2024
le tableau des lunaisons complète jusqu'à décembre est créé
il te suffit de regarder le nombre de phases lunaires par mois, et la première phase de chaque mois
tu vas voir que ca change de temps en temps..
4 ou 5 phases, et Première phase change..

Je viens de sélectionner janvier 2024 est j'ai ça, entre le 11 et le 13 ça colle pas, mais comme je disais précédemment je ne saurais pas corriger.

vgendron · 2 Septembre 2024

Dans le calendrier, ok, j'ai vu l'erreur,
comme le tableau t_Lune contient des dates 2023 et 2025, la macro ajoute toutes les dates de janvier sur le calendrier (sans se préoccuper de l'année)
je corrigerai ca toute à l'heure
pour l'instant, j'ai un rendez vous

à plus tard

Nicolas JACQUIN · 2 Septembre 2024

vgendron à dit:
Dans le calendrier, ok, j'ai vu l'erreur,
comme le tableau t_Lune contient des dates 2023 et 2025, la macro ajoute toutes les dates de janvier sur le calendrier (sans se préoccuper de l'année)
je corrigerai ca toute à l'heure
pour l'instant, j'ai un rendez vous

à plus tard

Merci à toi

Nicolas JACQUIN · 2 Septembre 2024

Je te rejoind le fichier actuel à jour, parce que j'étais perdu avec le tiens

jcf6464 · 2 Septembre 2024

Bonjour à tous

Oups a l'ouverture du classeur

En sortie

En position il ne trouve pas

bonne continuation jcf

Nicolas JACQUIN · 2 Septembre 2024

jcf6464 à dit:
Bonjour à tous

Oups a l'ouverture du classeur

En sortie

En position il ne trouve pas

bonne continuation jcf

Rééssaie avec celui là, désolé du français

jcf6464 · 2 Septembre 2024

Re
A l'ouverture cela fonctionne,

jcf

Nicolas JACQUIN · 2 Septembre 2024

jcf6464 à dit:
Re
A l'ouverture cela fonctionne,

jcf

ça match après ou pas ??

jcf6464 · 2 Septembre 2024

Re
pour Les marées cela fonctionne,
Pour éphéméride aussi,

Il faut changer

Private Sub Dates_Change()

Pour les lunes sur le calendrier cela fonctionne sur les mois précédents

a+ jcf

vgendron · 2 Septembre 2024

@jcf6464
qu'est ce qui fonctionne?? de quoi on parle??
si vous parlez du bouton "ma position Google", avec le fichier du post 53: AUCUNE chance que ca marche..
la macro associée au bouton ne fait strictement rien, à aucun moment les latitutes, longitude... ne sont calculées.. la ligne qui est censée le faire est mise en commentaire
de plus, ce post traite des lunaisons. pas du GPS
il y a plusieurs posts de Nicolas sur plusieurs sujets (toujours le meme fichier, mais des sujets différents)

vgendron · 2 Septembre 2024

@Nicolas JACQUIN
j'ai corrigé la macro algo en remettant le bout de code qui supprime les jours de lunaisons. mais uniquement celles qui ne sont pas dans l'année en cours
==> plus de souci d'affichage des jours de lunaison dans le calendrier

POUR le formulaire:
tu as prévu 5 textbox pour les lunaisons du mois
Nouvelle lune / PremierQ / Pleine Lune / Dernier Q / Nouvelle Lune

comme je te l'indiquais.. certains mois, il n'y a QUE 4 jours de lunaisons, et pas forcément une Nouvelle lune en premier
==> selon le mois: le 5eme textbox ne sera pas rempli, et le label ne sera pas forcément bon...
ce que je te propose
Renommer les Textbox en Tbx_JourLunaison1 2 3 4 5 et les label en Lbl_JourLunaison1 2 3 4 5
selon le mois: on affiche 4 ou 5 Tbx (et Lbl) et on change le nom du label selon qu'on commence par une Pleine lune, ou un PQ ou Nouvelle lune....

==> les 4 ou 5 Tbx n'afficheront donc QUE les jours de lunaison du mois en cours

Est ce OK ?

jcf6464 · 2 Septembre 2024

Re
dans classeur du post 53 Quand on clique sur le mercredi 11/09 cela affiche le lundi 11/09 !!!

Cela à fonctionner un moment et rebelote même problème que le post52,

a+jcf

vgendron · 2 Septembre 2024

Dans le fichier du post 53, la macro du GPS fout le bordel... elle efface la date en B1 du calendrier ainsi que le B2

dans CE fichier que j'ai renommé "Lunaison"
la macro du GPS place les infos (vides) dans la feuille "Ma position"
with nomfeuill
.range("B1") = "grgherghrg"

si tu ne mets pas le point devant range("B1") l'info est mise dans la feuille active.. le with ne sert donc à rien

maintenant
quand tu choisis un mois (bouton choisir date), toutes les lunaisons depuis le mois selectionné jusqu'à la fin d'année sont calculées dans la feuille "Lune"
sur le calendrier, les 4 ou 5 lunaisons du mois sont bien positionnées
quand tu cliques sur une date, ton formulaire s'ouvre et les 4 ou 5 lunaisons du mois sont affichées avec le bon intitulé

XL 2021 Calendrier Éphéméride Lunaison

XLDnaute Impliqué

Pièces jointes

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Impliqué

Pièces jointes

XLDnaute Impliqué

Pièces jointes

XLDnaute Impliqué

Pièces jointes

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Impliqué

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

Discussions similaires