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

 

[jcf6464]

RE,

Après chargement du classeur 1ere ouverture blocage d'excel,
fermeture de l'ordi
A la réouverture du classeur tout fonctionne,
comprend pas

J'ai changer le département et la ville la date est bonne du jour cliquer,
Par contre quand on change la ville en gardant le département la date s'efface

A+ jcf

 

[dysorthographie]

Le postulat de départ était de télécharger toutes les 11 marrées de toutes les villes.

J'ai récupéré les informations sur le site internet et si tu regardes le nombre de villes et que tu multiples par 11 t'imagine.

Nous avions avec Nicolas compris que c'était pas viable donc j'importe uniquement les villes sélectionné dans le formulaire. Ce qui fait qu'il peut y avoir une disparité de dates.

Donc je ractualse la liste des dates en fonction de la ville. Maintenant si Nicolas veux garder la date pas de souci je peux faire la modification.

 

[Nicolas JACQUIN]

Bonsoir tout le monde,

J'ai revue quelques truc, assez content du résultat, par contre le fichier à grossi à 1117 ko, comprends pas pourquoi, j'ai juste rajouté un petit userform et une feuille ???

New-Calendrier-V7.xlsm

Le service des pièces jointes, CJoint.com est un service de partage de fichier gratuit pour partager vos documents dans vos courriels, sur les forums ou dans vos petites annonces.

www.cjoint.com

sinon je sèche sur un petit truc, savoir en cliquant sur une date, dans la partie marée savoir si m&rée montante ou déscendante.

Mais là c'est plus le poids du fichier qui m'intrigue.

Merci
Nico

 

[TooFatBoy]

Sans la feuille "F_BD" le fichier passe de 1,144 Mo à... 277 ko !

Une liste de 38949 villes, qui fait 867 ko... Est-ce bien indispensable ???


Et pourquoi ladite feuille va-t-elle jusqu'à la colonne 16131 alors que seulement deux colonnes semblent "utiles" ?

 

[Nicolas JACQUIN]

Sans la feuille "F_BD" le fichier passe de 1,144 Mo à... 277 ko !

Une liste de 38949 villes, qui fait 867 ko... Est-ce bien indispensable ???


Et pourquoi ladite feuille va-t-elle jusqu'à la colonne 16131 alors que seulement deux colonnes semblent "utiles" ?

Bonjour Jacky,

Oui effectivement c'est bien ça, pourtant je l'avais exportée pour voir dans un classer vierge ça pesais pas tant.
L'histoire des colonnes je sais pas, c'est un vieux truc que j'ai sortie pour symplifier

Merci à toi

 

[TooFatBoy]

pourtant je l'avais exportée pour voir dans un classer vierge ça pesais pas tant.

En copiant la feuille dans un nouveau classeur, ledit classeur fait quand même 850 ko...

 

[Nicolas JACQUIN]

En copiant la feuille dans un nouveau classeur, ledit classeur fait quand même 850 ko...

En faite oui, bien vu

 

[Nicolas JACQUIN]

Bon je le rejoint,
Dire ce qui colle pas à part marée montante descendante
Presque final j'espère
Merci

 

[vgendron]

Hello
cette dernière version est pas mal aboutie..
juste une remarque sur le formulaire de départ pour récuperer l'adresse..
ca ne sert à rien de mettre des combobox (pour CP et Ville) vides..
soit tu les charges avec une liste (va etre longue) soit tu mets de simples TextBox

 

[Nicolas JACQUIN]

Hello
cette dernière version est pas mal aboutie..
juste une remarque sur le formulaire de départ pour récuperer l'adresse..
ca ne sert à rien de mettre des combobox (pour CP et Ville) vides..
soit tu les charges avec une liste (va etre longue) soit tu mets de simples TextBox

Bonsoir, oui j'avais modifié entre temps, 2 textboxs

 

[jurassic pork]

Hello,
A noter que sur le site ip-api.com on peut récupérer les infos en xml par http://ip-api.com/xml/ . Dans ce cas on peut faire une analyse en xml et plus besoin du module jsonConverter

Sub MaPositionGpsxml()
    Dim Pos As PositionGps
    Pos = GPSxml
    With Worksheets("MaPosition")
        .Range("B1") = Pos.latitude
        .Range("B2") = Pos.longitude
        .Range("B3") = Pos.ville
        'openUrl "https://www.google.com/maps?q=" & Pos.latitude & "," & Pos.longitude
    End With
End Sub

Private Function GPSxml() As PositionGps
    Dim Position As Object
    ' Obtenir la position de l'utilisateur
    Set Position = GetCurrentPositionIPxml()
    ' Extraire les informations de position
    GPSxml.latitude = Position.SelectSingleNode("/query/lat").Text
    GPSxml.longitude = Position.SelectSingleNode("/query/lon").Text
    GPSxml.ville = Position.SelectSingleNode("/query/city").Text
    Set Position = Nothing
End Function
Sub openUrl(URL As String)
    ' Ouvre l'URL dans le navigateur par défaut
    Shell "cmd.exe /c start " & URL, vbHide
End Sub

Function GetCurrentPositionIPxml() As Object 'retourne la position à partir de l'IP du pc==> position du serveur du FAI
    Dim http As Object, objDom As Object
    Dim jsonResponse As Object
    Dim xmlResponse As String
    Dim URL As String
    
    URL = "http://ip-api.com/xml/"

    ' Créer une instance de l'objet XMLHttpRequest et de l'objet DOM
    Set http = CreateObject("MSXML2.XMLHTTP")
    Set objDom = CreateObject("MSXML2.DOMDocument.6.0")
    ' Effectuer la requête GET
    On Error GoTo ErrorHandler
    http.Open "GET", URL, False
    http.Send
    xmlResponse = http.responseText
    Set http = Nothing
    objDom.LoadXML xmlResponse
    Debug.Print "Latitude : " & objDom.SelectSingleNode("/query/lat").Text
    Debug.Print "Longitude : " & objDom.SelectSingleNode("/query/lon").Text
    Debug.Print "Ville : " & objDom.SelectSingleNode("/query/city").Text
    ' Retourner l'objet DOM
    Set GetCurrentPositionIPxml = objDom
    Exit Function

ErrorHandler:
    ' Gestion des erreurs
    MsgBox "Erreur lors de la récupération des données : " & Err.Description
    Set GetCurrentPositionIPxml = Nothing
    Set http = Nothing
End Function

Ami calmant, J.P

 

[Nicolas JACQUIN]

Hello,

Bonjour jurassic pork,

Je viens de réessayer toute les différentes solutions proposées par les amis pour récupérer la position, pas une n'est mieux qu'une autre, elles me ramène toutes au même endroit ( pour ma part toujours ).
Donc sans doute navigateur oui

Merci

 

[Nicolas JACQUIN]

Là je viens d'essayer avec Firefox (en navigateur par défaut), ça me cible vers ma ville mais aucun pointeur de précision

 

[jcf6464]

Bonjour a vous tous,

Un essai avec la V21 en mettant la bonne adresse cela pointe chez moi , essai avec une autre adresse idem au bon endroit avec le marqueur visible,

Un autre essai avec la V6 RD (Position adresse IP) toujours à 10kms de chez moi

Un autre essai avec (MaPositionGpsxml) dejurassic pork Voir photo toujours a 10kms mais dans la forêt !!!

Avec firefox windows 10 et excel 365

Bonne continuation jcf

 

[dysorthographie]

Bonjour,
La version que j'ai fourni avec IE me donne la photo de la baie vitrée de mon immeuble.
La version ou j'execute Google maps via la commande shell me positionne e 50 mettre de chez moi.

Maintenant je n'utilise pas de navigateur Microsoft, chrome ou firefox.

J'utilise Brave Basé sur Chromium, comme chrome et firefox.