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)
Bonjour JP,
Non du tout, je cherchais la méthode la plus simple et plus proche par rapport à ce que tu avais proposé précédemment
Mais cette dernière version est mieux, je peux rentrer mon adresse correctement et c'est reconnue, à 100-120 mètres de chez moi mais c'est reconnue.
VB:
Sub PositionAvecApiAdresseGouv(adresse)
Dim http As Object, res As Object, lat, lon, houseNum
Const BaseURL = "https://api-adresse.data.gouv.fr/search/?q="
Set http = CreateObject("MSXML2.XMLHTTP")
URL = BaseURL & adresse
On Error Resume Next
With http
.Open "GET", URL, False
.Send
Set res = JsonConverter.ParseJson(.responseText)
End With
Set http = Nothing
lon = res("features")(1)("geometry")("coordinates")(1)
lat = res("features")(1)("geometry")("coordinates")(2)
houseNum = res("features")(1)("properties")("housenumber")
With Worksheets("MaPosition")
.cells(2, 4) = Info_adresse.TextBox1 & " " & Info_adresse.Cp & " " & Info_adresse.Cpville
.cells(2, 2) = Info_adresse.Cpville
.cells(2, 7) = lon
.cells(2, 8) = lat
End With
Set res = Nothing
End Sub
Sub RecupPositionsJP()
Dim adresse As String
adresse = Info_adresse.TextBox1 & " " & Info_adresse.Cp & " " & Info_adresse.Cpville
PositionAvecApiAdresseGouv adresse
End Sub
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...
excel-downloads.com
Je pense que je dois chercher trop compliqué, dans Feuil1(Calendrier)
VB:
If Hour(Now) >= .Matin_Basse And Hour(Now) <= .Matin_Haute Then .Etatmare = "Etat de la marée ( Montante )"
If Hour(Now) >= .Après_Basse And Hour(Now) <= .Après_Haute Then .Etatmare = "Etat de la marée ( Montante )"
If Hour(Now) >= .Matin_Haute And Hour(Now) <= .Après_Basse Then .Etatmare = "Etat de la marée ( Descendante )"
If Hour(Now) >= .Après_Haute Then .Etatmare = "Etat de la marée ( Descendante )"
Et puit j'arrête
Merci encore à tous d'avoir participé
Nicolas
Bonjour,
Tu te complique pas la vie,tu te fourvois.
Hour(Now) c'est l'heure de maintenant que tu compares a une date qui peut avoir plusieurs jours d'écart avec la date du jour entre temps il peut y avoir plusieurs marées montentes ou descendentes.
Vu qu'il n'est question qu de d'ajourdui et des 10 prochain jours difficiles d'évaluer le sens des marées vue que l'info n'existe pas sur le site mais je peux tenter un calcule à l'import.
Deplus l'information sur les marées demande des villes choisi par l'utilisation et pour afficher l'information sur la feuille calendrier ça ce complique. Dans le formulaire si le calcul s'importe pourquoi pas
Si tu identifie l'heure de marré base elle est forcément montante vue qu'il n'y a pas d'information sur l'heure de mère etal base ou haut. Cette information est elle pertinente ?
If Matin_Basse_mer<Matin_Pleine_mer montentes else descendante
Bonjour,
Tu te complique pas la vie,tu te fourvois.
Hour(Now) c'est l'heure de maintenant que tu compares a une date qui peut avoir plusieurs jours d'écart avec la date du jour entre temps il peut y avoir plusieurs marées montentes ou descendentes.
Vu qu'il n'est question qu de d'ajourdui et des 10 prochain jours difficiles d'évaluer le sens des marées vue que l'info n'existe pas sur le site mais je peux tenter un calcule à l'import.
Deplus l'information sur les marées demande des villes choisi par l'utilisation et pour afficher l'information sur la feuille calendrier ça ce complique. Dans le formulaire si le calcul s'importe pourquoi pas
Si tu identifie l'heure de marré base elle est forcément montante vue qu'il n'y a pas d'information sur l'heure de mère etal base ou haut. Cette information est elle pertinente ?
If Matin_Basse_mer<Matin_Pleine_mer montentes else descendante
If Hour(Now) >= .Matin_Basse And Hour(Now) <= .Matin_Haute Then .Etatmare = "Etat de la marée ( Montante )"
If Hour(Now) >= .Après_Basse And Hour(Now) <= .Après_Haute Then .Etatmare = "Etat de la marée ( Montante )"
If Hour(Now) >= .Matin_Haute And Hour(Now) <= .Après_Basse Then .Etatmare = "Etat de la marée ( Descendante )"
If Hour(Now) >= .Après_Haute And Hour(Now) <= .Matin_Basse Then .Etatmare = "Etat de la marée ( Descendante )"
C'est pas mieux apparemment.
ça matchait sur la dernière marée montante mais maintenant ça match plus, comme j'avais je crois sur la dernière marée du jour ça colle plus
Merci
Le truc c'est que sur la dernière marée montante ça matchait, et j'ai recliqué dessus après 20h00 soit marée descendante mais match plus, c'est pour ça je pense que c'est sur la dernière marée du jour que ça bug comme ça me faisait. image si dessous à l'instanté
en fait c'es juste le jour J je peux effectivement afficher l'information notes que si Basse mer> Pleine mer
on peut déterminer qu'elle descend donc on pourra déterminer uniquement pour le jour J l'information.
on est d'accord?
Maintenant on peut travailler sur la date sélectionné dans la feuille planning sans donner la possibilité de choisir une date dans le formulaire.
C'est la date du jour on affiche si maintenant la mère monte ou descend sans offre la possibilité de changer de date ?
Re dysorthographie,
Tu as fais un gros boulot encore, j'en demandais pas tant,
J'ai réussi à l'ouvrir une fois, mais après dès que je clic sur la date j'ai message d'erreur, et ça crash tous seul
Il y a plus les dates du coup