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

 

[TooFatBoy]

ça match pour moi

Ah l'or c'est perfect !


Tschüss

 

[Nicolas JACQUIN]

 

[Nicolas JACQUIN]

Ah l'or c'est perfect !


Tschüss

Tu aurais fais autrement ??

Moi là je fais une pose, j'arrive plus à rien, j'essais d'assembler le tout mais bon

 

[Nicolas JACQUIN]

A Robert, une dernière fois j'espère

N'en déplaise à d'autre désolé, j'ai essayé de rassembler le tout mais j'ai une erreur, à moins que j'ai oublié un truc, je sélect la ville ok mais quand je sélect la date j'ai une erreur.

Je joint le fichier complet

Merci

 

[Nicolas JACQUIN]

Sur le combobox "Dates" je vais mettre la date sélectée à l'initialise, tout en gardant la choix des dates comme tu as fais, c'est très bien. Pourtant je ne pense pas avoir oublié quoi que se soit.

 

[dysorthographie]

tu n'as pas déclaré ta connection!
Private Charge As Boolean, Décharger As Boolean
Dim conn As Object

Private Sub Dates_Change()

je t'invites à utiliser le menu fromat

 

[Nicolas JACQUIN]

L'alignement j'avais pas fais attention, c'est bien le Dim conn As Object qui manquait, merci beaucoup

Nico

 

[dysorthographie]

Dans ton formulaire j'ai fais ça

Private Sub UserForm_Initialize()

        Me.StartUpPosition = 1
        Me.Show 0
     
Set conn = CreateADODBConnection(ThisWorkbook.FullName)
With conn.Execute("Select distinct [Date] from [Marées$] order by [Date] DESC")
    If Not .EOF Then Dates.Column = .getrows
End With

 

[Nicolas JACQUIN]

oui merci, j'ai fais ça mais un peu plus bas, mais l'userform s'ouvre depuis que sur le multipage Marée !!

 

[Nicolas JACQUIN]

oui merci, j'ai fais ça mais un peu plus bas, mais l'userform s'ouvre depuis que sur le multipage Marée !!

C'est bon j'ai trouvé
Merci encore Robert

 

[Nicolas JACQUIN]

Voilà si amélioration ou idée je suis preneur

C'est toujours version v2 mais là on doit être à je ne sais combien

Merci à tous.

 

[dysorthographie]

Hauteur_basse_mer_am = "" & Rs("Matin Basse mer Niveau Zéro") & "m"

 

[Nicolas JACQUIN]

" m"
Oui merci bien ça
N'hésite pas si tu en as d'autres.

le "ParVentEtMaré" je le mets dans "thisworkbook open" ??? je pense oui

 

[dysorthographie]

oui
tu ne veux pas récupérer les dates déjà créé ou tu garde le 11 date du jours et aprè?

Private Sub UserForm_Initialize()

        Me.StartUpPosition = 1
        Me.Show 0
    
Set conn = CreateADODBConnection(ThisWorkbook.FullName)
With conn.Execute("Select distinct [Date] from [Marées$] order by [Date] DESC")
    If Not .EOF Then Dates.Column = .getrows
End With

 

[Nicolas JACQUIN]

Franchement merci Robert, trop bien