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]

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

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.

    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é
Regarde la pièce jointe 1202754

Je suis d'essayé de trouver le truc mais j'arrive pas, j'essayais de bricolé un code pour trouver si la date existe mais je ne sais que faire de plus, sans doute pas la bonne approche, et ne sais pas comment l'intégrer (l'exploiter)

Sub VerifierDate()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim dateCherchee As Date
    Dim dateTrouvee As Boolean
    Dim DerniereLigne As Long

    'DerniereLigne = cells(rows.Count, 2).End(xlUp).row
  
    A = Year(Range("B1")): M = month(Range("B1")): j = Left(ActiveCell, 2)
    vdate = DateSerial(A, M, j)
  
    ' Définir l'onglet et la colonne à vérifier
    Set ws = ThisWorkbook.Sheets("Marées")
    Set rng = ws.Range("B1:B1000")
  
    ' Définir la date à chercher
    dateCherchee = vdate ' Remplacez par la date que vous cherchez
  
    ' Initialiser la variable qui indique si la date est trouvée
    dateTrouvee = False
  
    ' Parcourir chaque cellule de la colonne
    For Each cell In rng
        If cell.Value = dateCherchee Then
            dateTrouvee = True
            Exit For
        End If
    Next cell
  
    ' Afficher le résultat
    If dateTrouvee Then
        MsgBox "La date " & dateCherchee & " existe dans la colonne."
    Else
        MsgBox "La date " & dateCherchee & " n'existe pas dans la colonne."
    End If
End Sub

Ce code a l'air de fonctionner mais je ne sais pas comment faire pour l'intégrer à mon problème.
C'est pas très clair ce que je dis mais j'espère que tu comprendras la vision que j'avais par rapport à ce que tu as cité plus haut.

 

[dysorthographie]

pas de souci

 

[TooFatBoy]

J'avais fait le code si dessous, qui fonctionnais très bien,

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

Je ne sais pas ce que contient B1, et encore moins ce que contient la cellule active, mais je me, et te, pose une question :
y a-t-il un réel intérêt à calculer vdate alors qu'on connaît déjà sa valeur ?

 

[dysorthographie]

nom pas besoin de calculer la date

 If Not Rs.EOF Then
      ' soit touve le couple ville date
    Else
    'soit on le trouve pas'
        If Format(Dates, "yyyy-mm-dd") < Format(Date, "yyyy-mm-dd") Then
           Lbl_MaréeJour = "Les données ne sont plus disponibles"
            Lbl_MaréeJour.ForeColor = &HFF&
    Else
        Lbl_MaréeJour = "Les données ne sont pas encore disponibles pour cette date"
        Lbl_MaréeJour.ForeColor = &HFF&
          
        End If
    End If

 

[dysorthographie]

bonjour,

 

[jcf6464]

Re

Chez moi cela fonctionne,

Pas de message d'erreur (Windows 10 -- 365) comme post 275

Mais sur les dates antérieures au jour ,

bonne continuation jcf

 

[Nicolas JACQUIN]

bonjour,
Regarde la pièce jointe 1202766

Merci pour la modif Robert

 

[Nicolas JACQUIN]

Bonjour jcf6464,

Chez moi pas de bug

 

[TooFatBoy]

Je ne sais pas ce que contient B1, et encore moins ce que contient la cellule active, mais je me, et te, pose une question :
y a-t-il un réel intérêt à calculer vdate alors qu'on connaît déjà sa valeur ?

Maintenant je sais ce que contient B1, et ce que contient la cellule active, mais sans réponse de la part de l'auteur de cette macro je me, et lui, demande toujours s'il y a réellement un intérêt à calculer vdate alors qu'on connaît déjà sa valeur.


Et j'ajoute : chez moi non plus pas de bug avec #275.

 

[jcf6464]

Bonjour à vous tous et le forum,

J'ai fait des essais ce matin et toujours la même erreur 13, des fois oui des fois non et toujours sur la même date du 4 ,essaie fait sur la dernière version (4) de Nicolas,
J'ai fermé le classeur et rouvert cela fonctionne bizarre,

Une note:
Peut on mettre un message à l'ouverture du classeur ( en attente d'actualisation des marées )

bonne journée jcf

 

[dysorthographie]

Bonjour à vous tous et le forum,

J'ai fait des essais ce matin et toujours la même erreur 13,

Bonjour tous,
Peux tu développé sur les conditions qui ont provoquées l'erreur, tu as click sur une cellule plutôt qu'une autre, tu as saisi un ville qui n'existe pas dans la liste ou modifier la date ?

Une note:
Peut on mettre un message à l'ouverture du classeur

Un forum d'entraide c'est comme une auberge espagnole chacun peut apporter ce qu'il a.

Tu as raison ça évitera un attentes sans que l'utilisateur y comprenne rien.

Personnellement j'avais proposé un vbscript exécuté via le planificateur de tâches, ainsi le traitement ce serait fait tous les soirs après minuit, autant dire tous les matins pour laisser dormir l'utilisateur.

 

[Nicolas JACQUIN]

Bonjour à tous,

Oui effectivement j'ai le code erreur aussi, le jour +10 pour obtenir les marées via le site des marées se fait au niveau du combobox "Date", mais ne se fait pas sur la feuille des marées.

Si je prends Belle-ile (le palais) sur le combobox j'ai du 29/08 au 11/09
mais sur la feuille Marées j'ai du 29/08 au 09/09 donc si je clic sur le 10/09 ou le 11/09 j'ai l'erreur 13 aussi

 

[Nicolas JACQUIN]

L'actualisation se fait sans se faire

 

[Nicolas JACQUIN]

Parce qu'on ne devrait même plus avoir les marées du mois d'aout en fait,
vu que c'est Jour J + 10 prochains jours

 

[dysorthographie]

Pour ce qui concerne Belle-ile et la date du 29/08 j'avais expliqué que adodb typait c'est champ par expérience et qu'il lui fallait une ligne à évaluer.

Il est possible de supprimer la première ligne, mais le problème ne vient pas de là.

Il y a un traitement sur les dates don je ne suis pas l'auteur qui est mal évalué sur le changement de date dans la listebox dates.

Ceci dit je ne savais qu'il fallait supprimer les valeurs existante.

Je comprendrais qu'il ne faille pas garder les dates depuis 1910 mais sur 6 mois ou 1 ans...