Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 Calendrier des marées info

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD
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
 
Trier par date Trier par votes

TooFatBoy

XLDnaute Barbatruc
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.
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
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 ?
VB: 
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.
 
Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD

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
 
Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD

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

Staple1600

XLDnaute Barbatruc
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
PowerQuery: 
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
 
Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD
Staple1600 à dit:
Pour la marée du jour, la requête de Jeannette affiche bien la marée du jour, non ?
Cliquez pour agrandir...

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

Staple1600 à dit:
Par contre quand je fais cet essai, la ligne de la marée du jour est zappée
Cliquez pour agrandir...

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.....

VB: 
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 ??
 
Dernière édition:
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
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)
 
Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD

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

 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Re

@Nicolas JACQUIN
Me basant sur tes messages parlant d'erreur, j'étais resté sur l'URL utilisé par @JHA
Avec marée.info, je n'ai pas d'erreur
PowerQuery: 
let
    Source = Web.Page(Web.Contents("https://maree.info/95")),
    Data = Source{1}[Data],
    #"Type modifié" = Table.TransformColumnTypes(Data,{{"Date", type text}, {"Heure", type text}, {"Hauteur", type text}, {"Coeff.", type text}}),
    #"Fractionner la colonne par délimiteur" = Table.SplitColumn(#"Type modifié", "Heure", Splitter.SplitTextByDelimiter("#(cr)", QuoteStyle.Csv), {"Heure.1", "Heure.2", "Heure.3", "Heure.4"}),
    #"Type modifié1" = Table.TransformColumnTypes(#"Fractionner la colonne par délimiteur",{{"Heure.1", type text}, {"Heure.2", type text}, {"Heure.3", type text}, {"Heure.4", type text}}),
    #"Fractionner la colonne par délimiteur1" = Table.SplitColumn(#"Type modifié1", "Hauteur", Splitter.SplitTextByDelimiter("#(cr)", QuoteStyle.Csv), {"Hauteur.1", "Hauteur.2", "Hauteur.3", "Hauteur.4"}),
    #"Type modifié2" = Table.TransformColumnTypes(#"Fractionner la colonne par délimiteur1",{{"Hauteur.1", type text}, {"Hauteur.2", type text}, {"Hauteur.3", type text}, {"Hauteur.4", type text}}),
    #"Colonnes permutées" = Table.ReorderColumns(#"Type modifié2",{"Date", "Heure.1", "Hauteur.1", "Heure.2", "Hauteur.2", "Heure.3", "Hauteur.3", "Heure.4", "Hauteur.4", "Coeff."}),
    #"Fractionner la colonne par délimiteur2" = Table.SplitColumn(#"Colonnes permutées", "Coeff.", Splitter.SplitTextByDelimiter("#(cr)", QuoteStyle.Csv), {"Coeff..1", "Coeff..2", "Coeff..3"}),
    #"Type modifié3" = Table.TransformColumnTypes(#"Fractionner la colonne par délimiteur2",{{"Coeff..1", Int64.Type}, {"Coeff..2", type text}, {"Coeff..3", Int64.Type}}),
    #"Colonnes supprimées" = Table.RemoveColumns(#"Type modifié3",{"Coeff..2"})
in
    #"Colonnes supprimées"

@Jeannette
Merci pour les précisions
Donc ici j'ai la marée du jour
PowerQuery: 
let
    Source = Web.Page(Web.Contents("https://horaire-maree.fr/maree/LORIENT/")),
    Data0 = Source{0}[Data],
    #"Type modifié" = Table.TransformColumnTypes(Data0,{{"Matin Coeff.", type text}, {"Matin Basse mer", type text}, {"Matin Pleine mer", type text}, {"Après midi Coeff.", type text}, {"Après midi Basse mer", type text}, {"Après midi Pleine mer", type text}}),
    #"Premières lignes supprimées" = Table.Skip(#"Type modifié",2),
    #"Personnalisée ajoutée" = Table.AddColumn(#"Premières lignes supprimées", "DATE", each DateTime.Date(DateTime.FixedLocalNow())),
    #"Colonnes permutées" = Table.ReorderColumns(#"Personnalisée ajoutée",{"DATE", "Matin Coeff.", "Matin Basse mer", "Matin Pleine mer", "Après midi Coeff.", "Après midi Basse mer", "Après midi Pleine mer"}),
    #"Type modifié1" = Table.TransformColumnTypes(#"Colonnes permutées",{{"DATE", type date}})
in
    #"Type modifié1"

Idem: code M généré par l'assistant PQ (donc optimisable mais là c'est l'heure de ma soupe )
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
XL 2021 Vacances scolaires sur calendrier
Réponses
2
Affichages
164
goube
P
  • Question
XL 2016 Créer un tirage aléatoire, mais avec critères/conditions ?
Réponses
9
Affichages
1 K
patricktoulon
L
  • Question
XL 2016 Inscrire des RDV dans Outlook (calendrier partagé) via Excel macro
2
Réponses
23
Affichages
13 K
Lolote83
L
V
  • Question
XL 2019 Comment améliorer un planning avec vba et sauvegardes
Réponses
0
Affichages
2 K
VBMars
V
  • Résolu(e)
Microsoft 365 suite calendrier de Roland_M
2 3 4
Réponses
55
Affichages
6 K
Usine à gaz
L
  • Question
Outlook Inscrire des RDV dans Outlook (calendrier partagé) via Excel macro
Réponses
14
Affichages
3 K
Barbichette
B
  • Question
XL 2010 Toujours l'exellent calendrier de Roland
Réponses
7
Affichages
1 K
Usine à gaz
  • Question
XL 2010 Résolu par Mapomme : Calendrier Roland "Renvoyer à la ligne"
Réponses
5
Affichages
1 K
laurent950
H
  • Question
XL 2010 Gestion des absences (VBA)
Réponses
8
Affichages
3 K
luno123
  • Question
Calcul des heures supplémentaires sur un calendrier
Réponses
4
Affichages
11 K
hollen ar mor
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…