Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 Calendrier Éphéméride Lunaison

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Nicolas JACQUIN

XLDnaute Accro
Supporter XLD
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
 

Pièces jointes

Solution
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...
Trier par date Trier par votes

oui là pour mon niveau je sèche franchement
 
Vote positif 0 Vote négatif
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..
 
Vote positif 0 Vote négatif

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.

 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Bonjour à tous

Oups a l'ouverture du classeur

En sortie

En position il ne trouve pas

bonne continuation jcf
 

Pièces jointes

  • 2024-09-02 .jpg
    28.8 KB · Affichages: 8
  • 2024-09-02-1.jpg
    95.4 KB · Affichages: 6
Dernière édition:
Vote positif 0 Vote négatif
@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)
 
Vote positif 0 Vote négatif
@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 ?
 
Vote positif 0 Vote négatif
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
 

Pièces jointes

  • 2024-09-02 175621.jpg
    104.8 KB · Affichages: 5
Dernière édition:
Vote positif 0 Vote négatif
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é
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 Récupérer info météo
8 9 10
Réponses
137
Affichages
5 K
jurassic pork
B
  • Question Question
XL 2019 sauvegarde de donnée dans un calendrier automatique
Réponses
5
Affichages
253
fanfan38
  • Question Question
XL 2021 Création calendrier ( Agenda ) en VBA
2
Réponses
15
Affichages
2 K
Nicolas JACQUIN
  • Question Question
XL 2021 Calendrier des marées info
24 25 26
Réponses
376
Affichages
24 K
Mooga
M
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
695
Max
M
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
737
Max
M
D
  • Question Question
Microsoft 365 Cas réel - avec problème complexe sur de la prevision de match en evitant les doublons
Réponses
1
Affichages
839
Dock91
D
E
  • Question Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
1 K
fanch55
E
  • Question Question
XL 2013 Ajouter un rdv calendrier depuis excel via exchange
Réponses
0
Affichages
1 K
estivill
E
E
  • Question Question
XL 2013 VBA envoyer une rendez-vous vers Outlook
Réponses
2
Affichages
939
Eric BZH
E
A
  • Question Question
XL 2019 Variable du bureau dans l'envoie par Outlook Filename:= et .Attachments.Add
Réponses
11
Affichages
772
fanch55
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
T
  • Question Question
Microsoft 365 Import de données et liaisons entre classeurs
Réponses
14
Affichages
917
TCHIS
T
P
  • Résolu(e)
XL 2013 Mise en forme suite à utilisation de UserForm
Réponses
4
Affichages
676
PR.
P
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
685
job75
T
  • Question Question
Microsoft 365 Planning de réservation de matériel (avec gestion des stocks) - Formules utiles ?
Réponses
7
Affichages
2 K
vgendron
P
  • Question Question
XL 2016 Créer un tirage aléatoire, mais avec critères/conditions ?
Réponses
9
Affichages
1 K
patricktoulon
K
  • Question Question
Autres Création d'un calendrier de procédure
Réponses
6
Affichages
3 K
Deadpool_CC
M
  • Résolu(e)
Microsoft 365 [Résolu] Macro extraction de dates
Réponses
6
Affichages
1 K
maxime45
M
  • Résolu(e)
Microsoft 365 suite calendrier de Roland_M
2 3 4
Réponses
55
Affichages
7 K
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…