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)
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
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
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.
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.
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
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,
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
@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
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
@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)
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
@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
@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)