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]

Re, j'ai modifié la date système pour montrer le souhaité, c'est sur mon premier calendrier, pas celui souhaité

 

[jcf6464]

Bonjour à vous tous et le forum,

Je vous suis depuis un moment très beau travail à vous tous,
Un bug sur l'onglet villes en affichant le formulaire voir photo jointe

Bonne continuation jcf

 

[dysorthographie]

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é

 

[dysorthographie]

Bonjour à vous tous et le forum,

Je vous suis depuis un moment très beau travail à vous tous,
Un bug sur l'onglet villes en affichant le formulaire voir photo jointe

Regarde la pièce jointe 1202748
Bonne continuation jcf

Bonjour jcf6464,
Oui c'est une mauvaise utilisation de show 0

 

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