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]

Sans doute oui

 

[dysorthographie]

Tu fais un clic droit sur la colonne et tu modifier le format

Et n'oublie pas de registrer les modifications.

 

[TooFatBoy]

Sans doute oui

As-tu lu mon "edit" de #219 ?

 

[Nicolas JACQUIN]

Tu fais un clic droit sur la colonne et tu modifier le format

Oui c'est ce que j'avais fait mais ça match pas
Du coup j'ai modifié là et c'est bon

Sub requête()
Dim Rs As Object
    sql = "SELECT * FROM [Marées$] WHERE [Date]=#" & Format(Dates, "yyyy-mm-dd") & "# AND [Ville]='" & Replace(VILLES, "'", "''") & "'"
         ' Créer un objet Recordset
        Set Rs = CreateObject("ADODB.Recordset")
        Matin_Coefficient = "": Après_Coefficient = ""
         Matin_Basse = "": Après_Basse = ""
          Matin_Haute = "": Après_Haute = ""
        Rs.Open sql, conn, 1, 3
        If Not Rs.EOF Then
            Matin_Coefficient = "" & Rs("Matin Coeff"):  Après_Coefficient = "" & Rs("Après-midi Coeff")
            Matin_Basse = "" & Rs("Matin Basse mer"):  Après_Basse = "" & Rs("Après-midi Basse mer")
            Matin_Haute = "" & Rs("Matin Pleine mer"):  Après_Haute = "" & Rs("Après-midi Pleine mer")

            Matin_Basse = Format("" & Rs("Matin Basse mer"), "hh:mm"): Matin_Haute = Format("" & Rs("Matin Pleine mer"), "hh:mm")
            Après_Basse = Format("" & Rs("Après-midi Basse mer"), "hh:mm"): Après_Haute = Format("" & Rs("Après-midi Pleine mer"), "hh:mm")
        End If
        
End Sub

 

[Nicolas JACQUIN]

Et en étudiant tes codes j'ai vu ça: "août"

Dans cette fonction

Function ExtractTideData(tideTable As Object) As Collection
    Dim rows As Object
    Dim row As Object
    Dim tideData As Collection
    Dim tideEntry As Collection
    Dim dateStr As String

    Set tideData = New Collection
   
    ' Parcourir chaque ligne de la table HTML
    Set rows = tideTable.getElementsByTagName("tr")
    For Each row In rows
        ' Obtenir la date à partir de la première cellule
        If row.getElementsByTagName("td").Length > 0 Then
            dateStr = row.getElementsByTagName("td")(0).innerText
           
            ' Vérifier si la date contient "août" (mois spécifié)
            If InStr(dateStr, "août") > 0 Then
                ' Créer une nouvelle entrée de marée
                Set tideEntry = New Collection
                tideEntry.Add Replace(dateStr, "Demain", "")
                tideEntry.Add row.getElementsByTagName("td")(1).innerText ' Matin Coeff
                tideEntry.Add row.getElementsByTagName("td")(2).innerText ' Matin Basse mer
                tideEntry.Add row.getElementsByTagName("td")(3).innerText ' Matin Pleine mer
                tideEntry.Add row.getElementsByTagName("td")(4).innerText ' Après-midi Coeff
                tideEntry.Add row.getElementsByTagName("td")(5).innerText ' Après-midi Basse mer
                tideEntry.Add row.getElementsByTagName("td")(6).innerText ' Après-midi Pleine mer
                tideData.Add tideEntry
            End If
        End If
    Next row
   
    Set ExtractTideData = tideData
End Function

ça sera à modifier avec la variable mois ??

 

[TooFatBoy]

Du coup j'ai modifié là et c'est bon

Le doute m'habite, mais je ne peux pas vérifier si c'est bon ou pas car je suis sur mon tél.

 

[Nicolas JACQUIN]

Le doute m'habite, mais je ne peux pas vérifier si c'est bon ou pas car je suis sur mon tél.

 

[TooFatBoy]

Merci pour cette animation.

Une dernière chose : as-tu essayé de trier ton tableau par dates ?

 

[Nicolas JACQUIN]

Restant plus que les hauteurs de marées si pas trop chiant,
et la question concernant "aout" si le mettre en variable mois, je dirais oui ??

 

[Nicolas JACQUIN]

Merci pour cette animation.

Une dernière chose : as-tu essayé de trier ton tableau par dates ?

Non pas touché c'est trié par ville, ça risque de m'embrouillé encore plus si je fais une connerie

 

[Nicolas JACQUIN]

Déjà rien que de penser rassembler ça à mon calendrier

 

[dysorthographie]

Désolé j'ai oublié de supprimer mes fonction de test! ExtractTideData n'est pas utilisé dans le code

Notes que si tu ajoutes la hauteur des marées


Matin_Basse = "" & Rs("Matin Basse mer")
NomDuLabel= "" & Rs("NomDeLentêteDeColonne")

je vais faire le trie et je reposte

 

[TooFatBoy]

Non pas touché c'est trié par ville, ça risque de m'embrouillé encore plus si je fais une connerie

Dommage. On aurait été sûrs du bon fonctionnement de ton Format.

Mais tant pis. Le principal est que ça fonctionne comme tu veux.


Sur ce, bonne journée


ps : j'ai aussi un doute quant au tri par ville...

 

[Nicolas JACQUIN]

Dommage. On aurait été sûrs du bon fonctionnement de ton Format.

Mais tant pis. Le principal est que ça fonctionne comme tu veux.


Sur ce, bonne journée


ps : j'ai aussi un doute quant au tri par ville...

 

[TooFatBoy]

Pour le tri des villes, je parlais du gros tableau.


@+ tard