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

XL 2021 Calendrier des marées info

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD
Bonjour à tous,

A ceux qui ont le pied marin,

je voulais savoir s'il était possible de créer un calendrier des marées avec :
-les heures de marée Haute
-les heures de marée Basse

et éventuellement les coefs.

Je ne sais pas du tout si c'est possible, mais si certains ont déjà étudiés sur la chose je suis preneur.

Je sais qu'il y a plein de site en ligne qui donne ce que je veux, mais se serait pour compléter un calendrier
avec les phases lunaires, éphémérides ..........

Si ça peut aider je suis de la région Lorientaise (Bretagne)

En vous remerciant d'avance.

Nicolas
 
Trier par date Trier par votes

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD
Bonjour à tous,

Je fait suite au message 121

XL 2021 - Calendrier des marées info

Bonjour à tous, A ceux qui ont le pied marin, je voulais savoir s'il était possible de créer un calendrier des marées avec : -les heures de marée Haute -les heures de marée Basse et éventuellement les coefs. Je ne sais pas du tout si c'est possible, mais si certains ont déjà étudiés sur...
excel-downloads.com

J'ai essayé de reprendre le code de @jm.andryszak concernant les phases de lune, mais je n'y arrive pas.
J'aimerai que quand je modifie le mois ou l'année de mon calendrier, les phases lunaires correspondantes s'actualise.
J'ai essayé plusieurs choses mais ça me renvoie systématiquement une erreur au même endroit.




Avec ce code

VB: 
Sub Phase_lune()
Application.ScreenUpdating = False
Algorithme (Year(Range("B1"))), (Month(Range("B1")))
End Sub

Merci
Nico
 
Dernière édition:
Vote positif 0 Vote négatif
J

jm.andryszak

XLDnaute Occasionnel
Bonjour, 133 post je suis perdu
Voici un fichier que j'ai adapté par rapport à la demande du post#1
Les heures de lever coucher du soleil sont calculées par défaut à Paris, on peut paramétrer.
Pour les phase lunaires, je dois pouvoir mettre les heures.
Toutes les heures ne sont pas en heures légales (UTC +2 , UTC +1)
Quand est-il des infos à afficher dans le label pour les marées, les heures sont-elles en UTC ?
Pas de données perso dans le fichier.
Il faut placer les icones dans le répertoire du fichier, il faut les nommer DQ, NL etc. .gif
Ca vous intéresse ?
Bonne journée
 

Pièces jointes

  • copie_Calendrier.xlsm
    921.6 KB · Affichages: 2
  • DQ.gif
    642 bytes · Affichages: 3
  • NL.gif
    496 bytes · Affichages: 1
  • PL.gif
    390 bytes · Affichages: 1
  • PQ.gif
    630 bytes · Affichages: 4
Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD
Bonjour,
merci du retour,
je vais l'étudier.

Au post 133, ce que je demandai c'est que quand je change mon année ou mon mois du calendrier, ça me face comme ma première version un commentaire sur la date ou il y a une nouvel phase, mais j'arrive pas à adapter ton code, j'ai une erreur systématiquement.

Merci
 
Vote positif 0 Vote négatif
J

jm.andryszak

XLDnaute Occasionnel
Bonjours
Vous y étiez, sauf que vous avez omis option explicit en début de module.
Ca oblige de bien typer les variables.
Voyez les infos en b17 et, b18 pour les lever et coucher du soleil, un nouveau label serait bienvenu.
PS : la fonction Ensoleillement ne fonctionne pas sur votre fichier ??
 

Pièces jointes

  • New Calendrier v2.xlsm
    144.2 KB · Affichages: 4
Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc
TooFatBoy à dit:
Est-ce que .Cells(I, 1) contient un texte représentant une date ?
Cliquez pour agrandir...

Nicolas JACQUIN à dit:
ben oui

Cliquez pour agrandir...

TooFatBoy à dit:
Ce n'est pas avec une capture d'écran qu'on peut le savoir.
Cliquez pour agrandir...

Effectivement, avec la capture d'écran on ne pouvait pas savoir, donc je viens de retélécharger et jeter un œil au tableau, et en fait la réponse était plutôt "ben non" puisqu'en réalité c'est bien une vraie date au sens Excel.
Donc effectivement, si tu cherches un texte, tu ne risques pas de le trouver.


Nicolas JACQUIN à dit:
mon image fait que 22Ko, moins que celles que tu m'as proposé
Cliquez pour agrandir...
J'en doute fort car, sauf erreur de ma part, il suffit de remplacer l'image par "Aucun remplissage" pour que, comme je le disais en #60, le fichier passe de plus de 1127 ko à seulement 159 ko.

Et un classeur vierge, avec juste la Lune de ton fichier recopiée dans la feuille "Feuil1" pèse près de 973 ko.

Alors je ne sais pas d'où tu sors ce temp.gif de 22 kio, mais ce n'est certes pas la Lune de ton fichier !
 
Dernière édition:
Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD
Et j'ai laissé tomber mon idée de départ, car mon code n'est pas aussi précis que celui de
jm.andryszak concernant la lunaison, moi sur mon code vba, j'ai un décalage de une journée à chaque fois sur deux phases donc pas terrible quant on essai de faire quelque chose d'un peut près précis, bien que j'aimais bien mon idée.
 
Vote positif 0 Vote négatif
J

jm.andryszak

XLDnaute Occasionnel
Bonsoir
Vous pourriez vous inspirer de cette macro appelée par un bouton pour le calcul de la durée d'ensoleillement
par défaut c'est la Longitude et la Latitude de Paris dans la fonction LeverCoucherSoleil, vous pouvez paramétrer.
Bonne soirée,
Sub Test()
'https://www.automateexcel.com/fr/formules/convertir-secondes-en-minutes-heures/
Dim Annee, Mois, Jour
Jour = ActiveCell.Value
Mois = Month(Worksheets("Calendrier").Range("B1"))
Annee = Year(Worksheets("Calendrier").Range("B1"))
If Jour = vbNullString Or Not IsNumeric(Jour) Then Exit Sub
LevercoucherDuSoleil (DateSerial(Annee, Mois, Jour))
'Debug.Print datediff("n", LeverTU, CoucherTU, vbMonday)
Range("g17") = (datediff("n", LeverTU, CoucherTU, vbMonday) * 60) / 86400
Range("g17").NumberFormat = "h:mm"
End Sub
 

Pièces jointes

  • New Calendrier v2.xlsm
    157 KB · Affichages: 4
Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD

Bonjour jm.andryszak, est vous sûre du code pour ce qui est du lever et coucher du soleil ?

J'ai fait une capture sur la date d'aujourd'hui et ça ne colle pas avec le calendrier solaire.

Pour ce qui est de l'ensoleillement ç'est bon par contre.

Merci
Nicolas

 
Vote positif 0 Vote négatif
J

jm.andryszak

XLDnaute Occasionnel
Bonjour
De toute vraisemblance je suis resté en temps universel, oubli de ma part ?? (rajouter + 2 h en été, 1 h en hiver)
Le code n'est pas précis à la minute près, en plus d'un éphéméride à l'autre ça peut varier.
J'arrive à refaire fonctionner la fonction Ensoleillement, c'est mieux que ma dernière proposition Excel n'accepte pas les heures négatives.
Je crains cependant ne pas avoir du temps à vous consacrer
Bonne journée
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
XL 2021 Vacances scolaires sur calendrier
Réponses
2
Affichages
165
goube
L
  • Résolu(e)
XL 2021 Tableau de suivi des heures supplémentaires et récupérations
Réponses
5
Affichages
140
C'est papy Mougeot !
P
  • Question
XL 2016 Créer un tirage aléatoire, mais avec critères/conditions ?
Réponses
9
Affichages
1 K
patricktoulon
L
  • Question
XL 2016 Inscrire des RDV dans Outlook (calendrier partagé) via Excel macro
2
Réponses
23
Affichages
13 K
Lolote83
L
V
  • Question
XL 2019 Comment améliorer un planning avec vba et sauvegardes
Réponses
0
Affichages
2 K
VBMars
V
  • Résolu(e)
Microsoft 365 suite calendrier de Roland_M
2 3 4
Réponses
55
Affichages
6 K
Usine à gaz
L
  • Question
Outlook Inscrire des RDV dans Outlook (calendrier partagé) via Excel macro
Réponses
14
Affichages
3 K
Barbichette
B
  • Question
XL 2010 Toujours l'exellent calendrier de Roland
Réponses
7
Affichages
1 K
Usine à gaz
  • Question
XL 2010 Résolu par Mapomme : Calendrier Roland "Renvoyer à la ligne"
Réponses
5
Affichages
1 K
laurent950
H
  • Question
XL 2010 Gestion des absences (VBA)
Réponses
8
Affichages
3 K
luno123
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…