XL 2021 Calendrier des marées info

[Nicolas JACQUIN]

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]

Est-ce que ta combinaison

(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]

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]

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]

Re

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

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]

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]

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]

Re

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

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

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]

(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]

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]

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

 

[Nicolas JACQUIN]

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]

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]

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]

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]

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.