XL 2021 Calendrier des marées info

Nicolas JACQUIN · 3 Août 2024

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

Nicolas JACQUIN · 5 Août 2024

Jeannette à dit:
Est-ce que ta combinaison

VB:

(j) & "/" & (m) & "/" & (a)

te donne bien une date?

En théori je pense que oui, mais oui j'ai un doute sur cette ligne aussi, sinon je vois pas.

jm.andryszak · 5 Août 2024

Bonsoir

En réponse au post #80

For i = 1 To ActiveWorkbook.Names.Count
If ActiveWorkbook.Names(i).Name = "'" & Worksheets(1).Name & "'" & "!Import_1" Or _
ActiveWorkbook.Names(i).Name = Worksheets(1).Name & "!Import_1" Then
'Range(ActiveWorkbook.Names(i).RefersToRange.Address).Select
Exit For
End If
Next
Ces lignes de code ne servent à rien, elles pourraient servir à faire une mise en forme du tableau, ce que je n'ai pas fait, d'où la mise en commentaire.
J'ai aussi quelque part les horaires de lever et coucher du soleil pour une latitude et longitude donnée, si ça intéresse quelqu'un (Référence WIKIPEDIA ou IMCEE, ne sait plus ??)

Nicolas JACQUIN · 5 Août 2024

jm.andryszak à dit:
J'ai aussi quelque part les horaires de lever et coucher du soleil pour une latitude et longitude donnée, si ça intéresse quelqu'un

Bonsoir jm.andryszak,
Pourquoi pas
Merci

Staple1600 · 5 Août 2024

Re

@Nicolas JACQUIN
Pour rester sur ta logique VBA, voir ce test

Code:

Sub test()
a = "2024" 'Year(Worksheets("Calendrier").Range("B1"))
m = 8 'Month(Worksheets("Calendrier").Range("B1"))
j = 5 'ActiveCell.Value
vDate = DateSerial(a, m, j)
MsgBox vDate
'...
'If .Cells(I, 1) = vDate Then
End Sub

et adapter en conséquence pour ta procédure Sub Marée()

PS: retirer les ' que j'ai mis pour tester avec le MsgBox

Staple1600 · 5 Août 2024

jm.andryszak à dit:
Bonsoir
En réponse au post #80
For i = 1 To ActiveWorkbook.Names.Count
If ActiveWorkbook.Names(i).Name = "'" & Worksheets(1).Name & "'" & "!Import_1" Or _
ActiveWorkbook.Names(i).Name = Worksheets(1).Name & "!Import_1" Then
'Range(ActiveWorkbook.Names(i).RefersToRange.Address).Select
Exit For
End If
Next
Ces lignes de code ne servent à rien, elles pourraient servir à faire une mise en forme du tableau, ce que je n'ai pas fait, d'où la mise en commentaire.
J'ai aussi quelque part les horaires de lever et coucher du soleil pour une latitude et longitude donnée, si ça intéresse quelqu'un (Référence WIKIPEDIA ou IMCEE, ne sait plus ??)

Bonsoir @jm.andryszak

Merci pour le feedback (et bravo pour la qualité de ton code VBA qui mets mes neurones à l'épreuve)

jm.andryszak · 5 Août 2024

Merci mais le code mérite d'être simplifié.
Canicule, pas le pied marin…, la terre tourne toujours autour du soleil, alors je prend le temps. (retraite oblige)
Ah, j'ai aussi le calcul des saisons.

Nicolas JACQUIN · 5 Août 2024

Staple1600 à dit:
Re

@Nicolas JACQUIN
Pour rester sur ta logique VBA, voir ce test

Code:

Sub test() a = "2024" 'Year(Worksheets("Calendrier").Range("B1")) m = 8 'Month(Worksheets("Calendrier").Range("B1")) j = 5 'ActiveCell.Value vDate = DateSerial(a, m, j) MsgBox vDate '... 'If .Cells(I, 1) = vDate Then End Sub

et adapter en conséquence pour ta procédure Sub Marée()

PS: retirer les ' que j'ai mis pour tester avec le MsgBox

Parfait mon ami, ça match impéc, j'était pas si loin pourtant

VB:

Sub Mareee()

    a = Year(Worksheets("Calendrier").Range("B1"))
    m = Month(Worksheets("Calendrier").Range("B1"))
    j = ActiveCell.Value
    vDate = DateSerial(a, m, j)
    With Worksheets("Marees")
        For I = 2 To 12
            If .Cells(I, 1) = vDate Then
                Forme.Label29 = .Cells(I, 3).Value
                Forme.Label30 = .Cells(I, 4).Value
                Forme.Label31 = .Cells(I, 2).Value
                Forme.Label32 = .Cells(I, 6).Value
                Forme.Label33 = .Cells(I, 7).Value
                Forme.Label34 = .Cells(I, 5).Value
            End If
        Next I
    End With
    
End Sub

Plus qu'à essayer de faire un peu joli l'userform
et voir les codes de jm.andryszak sur la lunaison

TooFatBoy · 5 Août 2024

Jeannette à dit:
VB:

(j) & "/" & (m) & "/" & (a)

te donne bien une date?

Logiquement non, ça donne un texte, et c'est pour ça que je lui ai demandé si .Cells(I, 1) contenait bien un texte représentant une date, ce qu'il a confirmé.

Sur ce, bonne soirée à tous.

Nicolas JACQUIN · 5 Août 2024

jm.andryszak à dit:
Merci mais le code mérite d'être simplifié.
Canicule, pas le pied marin…, la terre tourne toujours autour du soleil, alors je prend le temps. (retraite oblige)
Ah, j'ai aussi le calcul des saisons.

Prenez le temps, je suis pas pressé, ça fait un moment que c'est en cours

Nicolas JACQUIN · 5 Août 2024

Je ressort les archives du placard et les améliore un peu

Nicolas JACQUIN · 5 Août 2024

Re au participant, une petite démo vite fait, mais encore quelques améliorations à faire

Désolé, je suis pas un as de la vidéo

dysorthographie · 6 Août 2024

Jeannette à dit:
Bonjour @Staple1600
Sur le site visité, https://horaire-maree.fr/maree/LORIENT/
Le premier tableau (Ligne 0) donne les informations du jour (mais pas de colonne "Date"
Et en ligne 1, les prévisions

Bonjour,
Le premier tableau donne les informations du jour donc à la date d'aujourd'hui ????? Non?

dysorthographie · 6 Août 2024

Bonjour,
Ce que je voulais dire c'est que la date n'est pas forcément pertinente Vu que nous avons le tableau du jour et une prévision sur 10 jours.

Il nous ait possible de reconstruire ces dates.
Du reste la date est implicitement cité dans le tableau journalier,il faut juste la reconstituer avec les informations que nous disposons mais la date du jour peut suffire.

Nicolas JACQUIN · 6 Août 2024

Bonjour à tous,

je regardais à nouveau les sites de marées, les heures et coef ne sont pas tous d'accord à moins de 10 minutes sur les marées et 1 ou 2 points sur les coefs, pas facile tout ça.

Sur la version présenté, j'en reste là pour l'instant (avec la proposition de jeannette), juste un peu lent au démarrage
Je vais refaire avec la proposition de jm.andryszak voir si j'y parvient.

Merci à tous

ALS35 · 6 Août 2024

Nicolas JACQUIN à dit:
Bonjour à tous,

je regardais à nouveau les sites de marées, les heures et coef ne sont pas tous d'accord à moins de 10 minutes sur les marées et 1 ou 2 points sur les coefs, pas facile tout ça.

Bonjour à tous,
Comme je l'ai dit, c'est le SHOM qui délivre les horaires officiels (de référence ?). Ces données peuvent être reprises par d'autres organismes avec autorisation. C'est le cas de marée.info, il y en a peut-être d'autres. Sinon les autres organismes fournissent des prévisions qui sont légèrement différentes selon la méthode de calcul utilisée (méthode harmonique avec constantes harmoniques). Le SHOM ne délivre plus sa méthode de calcul ni les constante qui vont avec.
Les horaires dépendent du lieu qui t'intéresse, si tu es à une dizaine de minutes près, les horaires de Lorient port de commerce sont différents des horaires sur la côte atlantique.

XL 2021 Calendrier des marées info

Nicolas JACQUIN

XLDnaute Impliqué

Nicolas JACQUIN

XLDnaute Impliqué

jm.andryszak

XLDnaute Occasionnel

Bonsoir

En réponse au post #80

Nicolas JACQUIN

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Bonsoir

En réponse au post #80

jm.andryszak

XLDnaute Occasionnel

Nicolas JACQUIN

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

Nicolas JACQUIN

XLDnaute Impliqué

Nicolas JACQUIN

XLDnaute Impliqué

Nicolas JACQUIN

XLDnaute Impliqué

dysorthographie

XLDnaute Accro

dysorthographie

XLDnaute Accro

Nicolas JACQUIN

XLDnaute Impliqué

ALS35

XLDnaute Impliqué

Discussions similaires

XL 2021 Calendrier des marées info

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Occasionnel

Bonsoir​

En réponse au post #80 ​

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Barbatruc

Bonsoir​

En réponse au post #80 ​

XLDnaute Occasionnel

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Accro

XLDnaute Accro

XLDnaute Impliqué

XLDnaute Impliqué

Discussions similaires

Bonsoir

En réponse au post #80

Bonsoir

En réponse au post #80