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

 

[dysorthographie]

En fait si, c'est chez moi qu'il n'y en avait pas.
Et je ne trouvais pas j'ai galéré pour identifier le problème !

Maintenant les voies d'internet sont impénetrables

 

[TooFatBoy]

En fait si, c'est chez moi qu'il n'y en avait pas.

C'est qu'est-ce que j'dit :

Pourquoi n'y avait-il un problème que chez NJ ?

Pourquoi un pb chez NJ et pas chez nous ?
Vient-ce de la version d'Excel en 32 ou 64 bits, ou Office 365 ?

 

[Nicolas JACQUIN]

Bonjour,
Il y a une différence entre le nom affiché sur le site et le nom dans l'URL {PORT-TUDY | Ile de Groix (Port-Tudy)}
et en plus il fallait gérer les caractères spéciaux espace %20 etc.

Non ça ça à l'air d'être ok

 

[Nicolas JACQUIN]

Merci pour ce gros chantier, là j'y comprends vraiment rien, chapeaux l'artiste

Donc là je garde juste le module1 ?
Et si je veux rejouter les hauteurs de marées c'est je sais même pas , c'est plus du vba ça pour moi .
Et juste mettre le format heure/minutes si c'est possible.

Merci encore pour le boulot et ta patience

Nicolas

 

[dysorthographie]

J'utilise adodb pour la mise a jour, il prend en compte le format existant dans l'onglet.

Formates les colonnes avec le format que tu souhaites

Tu veux rajouter la hauteur des marées dans le formulaire ?

 

[Nicolas JACQUIN]

La hauteur des marrées oui se serait bien
Mais le format heure j'ai changer dans la feuille marées mais ça prend pas en compte apparemment

 

[Nicolas JACQUIN]

Le format heure c'est bon j'ai trouvé

Matin_Basse = Format("" & Rs("Matin Basse mer"), "hh:mm")

 

[Nicolas JACQUIN]

Bonjour Jacky,
Ravis que ça te fasses rire mon ami

 

[TooFatBoy]

Je ne sais si je dois en ou en en fait...


Je te cherchais l'explication de Format d'Excel, mais je ne trouve point.
Si tu as la possibilité de trouver ça dans l'aide d'Excel, ce serait bien car j'ai bien une petite idée mais je ne sais plus ce que ça fait exactement.

[edit]
J'ai trouvé :

Retourne une valeur de type Variant (String) contenant une expression formatée en fonction des instructions qui se trouvent dans l’expression de mise en forme.

[/edit]

 

[Nicolas JACQUIN]

Mais je cogite même si ça se voit pas

 

[TooFatBoy]

Mais je cogite même si ça se voit pas

Peut-être trop.

 

[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