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]

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

 

[Nicolas JACQUIN]

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

Ton code j'ai pas compris, ça me donne bizard

 

[dysorthographie]

En fait tu devrais accumulé des dates septembre, octobre,novembre etc. la date du jour devrait au fur et à mesure descendre dans la liste.

"Select distinct [Date] from [Marées$] order by [Date] DESC"

Ici je sélectionne sans doublons toutes les dates de l'onglet Marées ordonné de façon descendant de la date la plus récente à la plus ancienne

Mais comme tu double click sur un cellule de ton planning la les dates appartenos en encadré de celle sélectionné. Fait le test en double cliquant sur 31

Sachant en plus qu'il est possible de taper la date directement

 

[Nicolas JACQUIN]

Désolé Robert j'ai pas compris ton dernier message, j'ai un peu de mal et j'en ai un autre qui rage en privée aussi, désolé.
Je double clique pas sur les cellules, et ton code "Select distinct [Date] from [Marées$] order by [Date] DESC",
je vois pas ou le mettre.

 

[Nicolas JACQUIN]

Oui ok mais c'est ce que j'ai fais précédemment

Mais comme je t'es montré j'ai les dates en doublons

 

[TooFatBoy]

j'en ai un autre qui rage en privée aussi

Mais il faut dire qu'il y a de quoi "rager" !...

 

[dysorthographie]

tu n'as pas supprimer ce code?

 For I = 0 To 10
        Dates.AddItem Date + I
    Next

    Me.StartUpPosition = 1
    Me.Show 0

    Me.MultiPage1.Value = 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

    TablMois(1) = "Janvier"
    TablMois(2) = "Février"
    TablMois(3) = "Mars"
    TablMois(4) = "Avril"
    TablMois(5) = "Mai"
    TablMois(6) = "Juin"
    TablMois(7) = "Juillet"
    TablMois(8) = "Août"
    TablMois(9) = "Septembre"
    TablMois(10) = "Octobre"
    TablMois(11) = "Novembre"
    TablMois(12) = "Décembre"

    'chargement du tableau des Mois
    With Sheets("FichFetes").ListObjects("t_Mois")
        For I = 1 To .ListRows.Count
            TablMois(I) = Format(.ListColumns("Mois").DataBodyRange(I), "mmmm")
        Next I
    End With
    'chargement combo des prénoms
    With Sheets("FichFetes").ListObjects("t_Fetes")
        For I = 1 To .ListRows.Count
            Me.Cbx_Prénom.AddItem .ListColumns("Fete").DataBodyRange(I)
        Next I
    End With
End Sub

 

[Nicolas JACQUIN]

tu n'as pas supprimer ce code?

 For I = 0 To 10
        Dates.AddItem Date + I
    Next

    Me.StartUpPosition = 1
    Me.Show 0

    Me.MultiPage1.Value = 0

    TablMois(1) = "Janvier"
    TablMois(2) = "Février"
    TablMois(3) = "Mars"
    TablMois(4) = "Avril"
    TablMois(5) = "Mai"
    TablMois(6) = "Juin"
    TablMois(7) = "Juillet"
    TablMois(8) = "Août"
    TablMois(9) = "Septembre"
    TablMois(10) = "Octobre"
    TablMois(11) = "Novembre"
    TablMois(12) = "Décembre"

    'chargement du tableau des Mois
    With Sheets("FichFetes").ListObjects("t_Mois")
        For I = 1 To .ListRows.Count
            TablMois(I) = Format(.ListColumns("Mois").DataBodyRange(I), "mmmm")
        Next I
    End With
    'chargement combo des prénoms
    With Sheets("FichFetes").ListObjects("t_Fetes")
        For I = 1 To .ListRows.Count
            Me.Cbx_Prénom.AddItem .ListColumns("Fete").DataBodyRange(I)
        Next I
    End With
End Sub

Non du tout

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

    Me.MultiPage1.Value = 0

    TablMois(1) = "Janvier"
    TablMois(2) = "Février"
    TablMois(3) = "Mars"
    TablMois(4) = "Avril"
    TablMois(5) = "Mai"
    TablMois(6) = "Juin"
    TablMois(7) = "Juillet"
    TablMois(8) = "Août"
    TablMois(9) = "Septembre"
    TablMois(10) = "Octobre"
    TablMois(11) = "Novembre"
    TablMois(12) = "Décembre"

    'chargement du tableau des Mois
    With Sheets("FichFetes").ListObjects("t_Mois")
        For I = 1 To .ListRows.Count
            TablMois(I) = Format(.ListColumns("Mois").DataBodyRange(I), "mmmm")
        Next I
    End With
    'chargement combo des prénoms
    With Sheets("FichFetes").ListObjects("t_Fetes")
        For I = 1 To .ListRows.Count
            Me.Cbx_Prénom.AddItem .ListColumns("Fete").DataBodyRange(I)
        Next I
    End With
End Sub

 

[dysorthographie]

 

[Nicolas JACQUIN]

Ok, tu part avec la date la plus récente du bas, je sais pas ce que j'ai fait comme connerie encore
Merci

 

[dysorthographie]

le 09/09/2024 est la date la plus récente même si elle est prémonitoire

ainsi l'accumulation des date par le haut ferra descendre la date d'au aujourd'hui dans le abysse

 

[Nicolas JACQUIN]

Bonjour à tous,

Dernier petit réglage qui reste,
J'avais fait le code si dessous, qui fonctionnais très bien,

Sub Mareee(vdate As Date)

    A = Year(Range("B1")): M = month(Range("B1")): j = Left(ActiveCell, 2)
    vdate = DateSerial(A, M, j)

    Forme.Lbl_MaréeJour = IIf(vdate = Date, "Marée d'aujourd'hui", "Marée du" & " " & vdate)

    If vdate < Date Then
        Forme.Lbl_MaréeJour = "Les données ne sont plus disponibles"
        Forme.Lbl_MaréeJour.ForeColor = &HFF&
    End If

    If vdate > Date + 10 Then
        Forme.Lbl_MaréeJour = "Les données ne sont pas encore disponibles pour cette date"
        Forme.Lbl_MaréeJour.ForeColor = &HFF&
    End If

End Sub

les couleurs matchs mais pas les textes ??

les couleurs et textes sont réinitialisé à chaque "Worksheet_SelectionChange"

        .Lbl_MaréeJour = ""
        .Lbl_MaréeJour.ForeColor = -2147483630

Merci
Nicolas