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]

Tiens, une Lune libre de droits et d'à peine plus de 208 ko.

ou celle-ci de 396 ko

 

[Nicolas JACQUIN]

Bonjour TooFatBoy

Merci de ton retour, je verrai en rentrant ce soir.

A plus tard

 

[Bernard_XLD]

Bonjour le fil, le forum

Tiens, une Lune libre de droits et d'à peine plus de 208 ko.

Tiens, une lune de 56 kilos !

 

[Nicolas JACQUIN]

Re bonjour tout le monde,

A Staple1600,
je n'est pas fait attention hier, mais y a t'il un moyen de mettre les marées du jour aujourd'hui en plus ??
Si possible très bien sinon tampi.

La c'est coupure vite fait, à ce soir sinon,
merci

A Bernard_XLD, élégant , je vais peut-être revoir la chose

Nico

 

[jm.andryszak]

Bonjour
Une autre proposition, avec les marées du jour.
PS : je suis entrain de revoir les phases lunaire, bien que le code fonctionne.

 

[Nicolas JACQUIN]

Re les amis,

Ou est l'erreur dans mon code pour récupérer les données des marées à intégrer dans mon userform
Je n'ai aucun message d'erreur, mais il ne se passe rien

Sub Mareee()

    a = Year(Worksheets("Calendrier").Range("B1"))
    m = Month(Worksheets("Calendrier").Range("B1"))
    j = ActiveCell.Value

    With Worksheets("Marees")

        For I = 2 To 11

            If .Cells(I, 1) = (j) & "/" & (m) & "/" & (a) Then
               
                Forme.Label29 = .Cells(I, 3).Value
                Forme.Label30 = .Cells(I, 4).Value
                Forme.Label31 = .Cells(I, 2).Value
                Forme.Label32 = .Cells(I, 6).Value
                Forme.Label33 = .Cells(I, 7).Value
                Forme.Label34 = .Cells(I, 5).Value
               
            End If

        Next I

    End With

End Sub

Celui ci dessous c'est celui qui fait appel à l'autre ( fonctionne très bien )

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not IsNumeric(ActiveCell) Or ActiveCell = "" Then
        Exit Sub
    Else

        With Forme
            .StartUpPosition = 1
            .Show 0
            a = Year(Range("B1"))
            m = Month(Range("B1"))
            j = ActiveCell.Value
            Worksheets("Lune").Range("G1").Value = DateSerial(a, m, j)
            Set LeGraph = Worksheets("Lune").ChartObjects(1).Chart
            NomImage = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
            LeGraph.Export Filename:=NomImage, FilterName:="GIF"
            .Image1.Picture = LoadPicture(NomImage)
            ''''''''''''''''''''''''''''''''''''''''''''''''''''
           
            calculer
            fete
            Mareee
           
            ''''''''''''''''''''''''''''''''''''''''''''''''''''
            If Not ActiveCell.Comment Is Nothing Then
                .Label2.Caption = ActiveCell.Comment.Text
            Else
                Forme.Label2.Caption = ""
            End If

            .Label4.Caption = ""
            .Label4.Caption = "Le" & " " & ActiveCell.Value & " " & ActiveSheet.Range("B1").Value 'Offset(1, 0)
            ladate = (Year(ActiveSheet.Range("B1").Value) & "/" & (Month(ActiveSheet.Range("B1").Value) & "/" & Day(ActiveCell.Value)))
            .Label19.Caption = "Semaine n° " & DatePart("ww", ladate, vbMonday, vbFirstFourDays) 'code pour n° de semaine', "WW", vbMonday)
        End With
    End If
End Sub

Merci

 

[Nicolas JACQUIN]

Bonjour jm.andryszak

Merci pour la participation, je vais regarder

Nico

 

[TooFatBoy]

If .Cells(I, 1) = (j) & "/" & (m) & "/" & (a) Then

Est-ce que .Cells(I, 1) contient un texte représentant une date ?

 

[Nicolas JACQUIN]

Est-ce que Cells(I, 1) contient un texte représentantune date ?

re,
ben oui

 

[TooFatBoy]

ben oui

Ce n'est pas avec une capture d'écran qu'on peut le savoir.

 

[Nicolas JACQUIN]

Si tu as téléchargé le fichier, tu verra bien qu'il est en format date

 

[TooFatBoy]

With Worksheets("Marees") For I = 2 To 11

En revanche sur ta capture d'écran on peut voir que tu utilises un TS, donc il serait peut-être bien de revoir ton

    With Worksheets("Marees")
        For I = 2 To 11

 

[TooFatBoy]

Si tu as téléchargé le fichier, tu verra bien qu'il est en format date

Je ne peux ouvrir les fichiers MS-Office sur mon tél.

Mais ta réponse est incohérente par rapport à ta réponse précédente : il ne sert à rien de mettre un format date à une cellule qui contient du texte !

 

[Nicolas JACQUIN]

tu utilises un TS

    With Worksheets("Marees")
        For I = 2 To 11

??

 

[TooFatBoy]

??

Pourquoi adresser les cellules par rapport à la feuille et non par rapport au TS ?
Et pourquoi aller de 2 à 11 alors que tu peux aller de 1 au nombre de lignes du TS ?

Ce n'est qu'une suggestion.