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

 

[Nicolas JACQUIN]

Tableau structuré tu veux dire ??
J'ai essayé de 1 au nbre de ligne aussi, mais non plus

 

[TooFatBoy]

Tableau structuré tu veux dire ??

Voui, un Tableau Structuré.

J'ai essayé de 1 au nbre de ligne aussi, mais non plus

T'as dû te tromper.
Mais ce n'est pas grave. Ce n'était qu'une petite suggestion pour utiliser les caractéristiques du TS.

 

[Nicolas JACQUIN]

Moi je récupère toujours les données de cette façon, après je ne sais si c'est différent sur un tableau structuré, après j'ai peut-être encore loupé un truc

 

[TooFatBoy]

C'est juste que si tu te bases sur le TS au lieu de la feuille, tu n'as pas besoin de modifier le code quand le TS change de taille ou de place.

Si les données de ton TS vont toujours de la ligne 2 de la feuille à la ligne 11, alors tout va bien.

 

[Staple1600]

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

Bonjour le fil

Comme le fichier posté par @jm.andryszak le fait superbement, plus rapidement et sans passer par PQ. je passe mon tour
Au passage, chapeau bas @jm.andryszak pour les petites VBA se trouvant dans le module 2 de son classeur
(petit en taille: 53,7Ko mais costaud niveau VBA)

@jm.andryszak
Cette partie du code est obligatoire, on peut la mettre en commentaire ?

For i = 1 To ActiveWorkbook.Names.Count
        If ActiveWorkbook.Names(i).Name = "'" & Worksheets(1).Name & "'" & "!Import_1" Or _
            ActiveWorkbook.Names(i).Name = Worksheets(1).Name & "!Import_1" Then
            'Range(ActiveWorkbook.Names(i).RefersToRange.Address).Select
            Exit For
        End If
Next

J'ai testé plusieurs fois en ayant commenté ces lignes.
Pas vu de loup, mais je suppose que si ces lignes sont là, c'est qu'il y a une raison.

@TooFatBoy
[Pour infos]
C'est la requête PQ qui génère automatiquement un TS lorsqu'elle se charge dans une feuille.

 

[Nicolas JACQUIN]

Bonjour le fil

Comme le fichier posté par @jm.andryszak le fait superbement, plus rapidement et sans passer par PQ. je passe mon tour
Au passage, chapeau bas @jm.andryszak pour les petites VBA se trouvant dans le module 2 de son classeur
(petit en taille: 53,7Ko mais costaud niveau VBA)

@jm.andryszak
Cette partie du code est obligatoire, on peut la mettre en commentaire ?

For i = 1 To ActiveWorkbook.Names.Count
        If ActiveWorkbook.Names(i).Name = "'" & Worksheets(1).Name & "'" & "!Import_1" Or _
            ActiveWorkbook.Names(i).Name = Worksheets(1).Name & "!Import_1" Then
            'Range(ActiveWorkbook.Names(i).RefersToRange.Address).Select
            Exit For
        End If
Next

J'ai testé plusieurs fois en ayant commenté ces lignes.
Pas vu de loup, mais je suppose que si ces lignes sont là, c'est qu'il y a une raison.

@TooFatBoy
[Pour infos]
C'est la requête PQ qui génère automatiquement un TS lorsqu'elle se charge dans une feuille.

Bonjour Staple1600,

J'avoue que son code est bien aussi, il fonctionne bien, avec les chose bien rangées j'arrive pas à les intégrers dans mon userform, mais là je ne suis encore plus perdu

 

[Jeannette]

Bonjour,
Voici une concaténation (jour d'appel + 10 jours suivants)
La difficulté résidait dans :
- Pas de date dans le tableau du jour
- Noms des colonnes différents (Après midi dans tableau du jour, Après-midi dans le tableau des 10 prochains jours)
Il y a donc une requête supplémentaire (en connexion uniquement), qui est ensuite combinée avec la requête principale

 

[TooFatBoy]

C'est la requête PQ qui génère automatiquement un TS lorsqu'elle se charge dans une feuille.

Merci pour l'information.

 

[Nicolas JACQUIN]

Bonjour,
Voici une concaténation (jour d'appel + 10 jours suivants)
La difficulté résidait dans :
- Pas de date dans le tableau du jour
- Noms des colonnes différents (Après midi dans tableau du jour, Après-midi dans le tableau des 10 prochains jours)
Il y a donc une requête supplémentaire (en connexion uniquement), qui est ensuite combinée avec la requête principale

Bonjour, merci ç'est niquel là, tip top, reste que je règle mon intégration.
J'approche la fin
Vraiment un grand merci.

 

[Staple1600]

Re

@Nicolas JACQUIN
Le 1er point, pour ce qui me concerne (et c'est lié) à mon PC, l'import PQ est beaucoup plus lent qu'avec la solution postée par @jm.andryszak
Le second point, c'est que son code VBA sera idéal pour mes lectures de code au coin du feu, les soirs d'hiver.

Pour la marée du jour, la requête de Jeannette affiche bien la marée du jour, non ?

Par contre quand je fais cet essai, la ligne de la marée du jour est zappée
Je ne comprends pas pourquoi pour le moment

let
    Source = Web.Page(Web.Contents("https://horaire-maree.fr/maree/LORIENT/")),
    Data = Source{1}[Data],
    #"Premières lignes supprimées" = Table.Skip(Data,2),
    #"Valeur remplacée" = Table.ReplaceValue(#"Premières lignes supprimées","Demain ","",Replacer.ReplaceText,{"Date"})
in
    #"Valeur remplacée"

EDITION: Je parlais du code M de @Jeannette présent dans le message#52
Je viens juste de voir la nouvelle proposition de @Jeannette

 

[Nicolas JACQUIN]

Pour la marée du jour, la requête de Jeannette affiche bien la marée du jour, non ?

oui je l'ai bien, j'ai pas compris la question.

Par contre quand je fais cet essai, la ligne de la marée du jour est zappée

moi je l'ai, le tableau est complet comme elle là envoyée.

Moi ça me convient bien, le seul souci que j'ai maintenant c'est l'intégration dans l'userform, je sais pas ou j'ai cou.....

Sub Mareee()

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

    With Worksheets("Marees")

        For I = 2 To 12

            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

Est ce parce que c'est un tableau ??

 

[Staple1600]

Re

@Nicolas JACQUIN
En creusant un peu, j'ai l'impression que le site horaires-marées n'est pas des plus fiables
(comme l'avait signalé précedemment @ALS35 dans ce message)


Je parlais du code M que j'ai posté dans le message#85
Si tu le testes sur un classeur vierge, tu verras que la ligne du 5 aout ne sera charger dans Excel alors qu'elle apparait dans l'éditeur PQ

Dans PQ

Dans Excel

@Jeannette
Je ne comprends pas d'où viennent ces données qui n'apparaissent pas sur le site web
(qui normalement concerne le 5 aout 2024)

 

[Nicolas JACQUIN]

Re

@Nicolas JACQUIN
En creusant un peu, j'ai l'impression que le site horaires-marées n'est pas des plus fiables
(comme l'avait signalé précedemment @ALS35 dans ce message)
Regarde la pièce jointe 1201519

Je parlais du code M que j'ai posté dans le message#85
Si tu le testes sur un classeur vierge, tu verras que la ligne du 5 aout ne sera charger dans Excel alors qu'elle apparait dans l'éditeur PQ

Dans PQ Regarde la pièce jointe 1201523

Dans Excel Regarde la pièce jointe 1201524

@Jeannette
Je ne comprends pas d'où viennent ces données qui n'apparaissent pas sur le site web
(qui normalement concerne le 5 aout 2024)
Regarde la pièce jointe 1201520

Tu m'avais repris quand j'avais essayé avec ce site

 

[TooFatBoy]

le seul souci que j'ai maintenant c'est l'intégration dans l'userform, je sais pas ou j'ai cou....

Si j'étais toi, je commencerais par vérifier une dernière fois que la colonne A est bien du texte.

J'ai récemment eu le souci avec la recherche de dates en utilisant Find, et je n'ai jamais compris pourquoi Excel se trompait...

 

[Staple1600]

Re

@Nicolas JACQUIN
Précisions
Je ne t'avais pas repris
Simplement tu disais avoir une erreur
Alors que pas d'erreur avec le site utilisé dans le fichier de JHA
(je parle de la requête PQ pas de la précision des données)