XL 2021 Calendrier des marées info

Nicolas JACQUIN · 3 Août 2024

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

Nicolas JACQUIN · 30 Août 2024

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

VB:

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 · 30 Août 2024

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 · 30 Août 2024

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 · 30 Août 2024

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 · 30 Août 2024

Nicolas JACQUIN à dit:
j'en ai un autre qui rage en privée aussi

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

dysorthographie · 30 Août 2024

tu n'as pas supprimer ce code?

VB:

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

Code:

    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 · 30 Août 2024

dysorthographie à dit:

tu n'as pas supprimer ce code?

VB:

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

Code:

    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

VB:

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 · 30 Août 2024

Nicolas JACQUIN · 30 Août 2024

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 · 30 Août 2024

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 · 31 Août 2024

Bonjour à tous,

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

VB:

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"

Code:

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

Merci
Nicolas

Nicolas JACQUIN · 31 Août 2024

Re, j'ai modifié la date système pour montrer le souhaité, c'est sur mon premier calendrier, pas celui souhaité

jcf6464 · 31 Août 2024

Bonjour à vous tous et le forum,

Je vous suis depuis un moment très beau travail à vous tous,
Un bug sur l'onglet villes en affichant le formulaire voir photo jointe

Bonne continuation jcf

dysorthographie · 31 Août 2024

Bonjour,
Je suis sur mon téléphone portable.
Cette partie reste valide.

Code:

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

Pour cette partie il faut rajouter une méthode qui vérifie si la date est présente dans l'onglet Marées.

Code:

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

Ceci dit je gérerai ça dans le formulaire car tout les champs sont à "" si pas le couple ville date n'est pas trouvé

dysorthographie · 31 Août 2024

jcf6464 à dit:
Bonjour à vous tous et le forum,

Je vous suis depuis un moment très beau travail à vous tous,
Un bug sur l'onglet villes en affichant le formulaire voir photo jointe

Regarde la pièce jointe 1202748
Bonne continuation jcf

Bonjour jcf6464,
Oui c'est une mauvaise utilisation de show 0

XL 2021 Calendrier des marées info

Nicolas JACQUIN

XLDnaute Impliqué

Nicolas JACQUIN

XLDnaute Impliqué

dysorthographie

XLDnaute Accro

Nicolas JACQUIN

XLDnaute Impliqué

Nicolas JACQUIN

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

Nicolas JACQUIN

XLDnaute Impliqué

dysorthographie

XLDnaute Accro

Pièces jointes

Nicolas JACQUIN

XLDnaute Impliqué

dysorthographie

XLDnaute Accro

Nicolas JACQUIN

XLDnaute Impliqué

Nicolas JACQUIN

XLDnaute Impliqué

jcf6464

XLDnaute Impliqué

dysorthographie

XLDnaute Accro

Pièces jointes

dysorthographie

XLDnaute Accro

Discussions similaires