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
 

jcf6464

XLDnaute Impliqué
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

XLDnaute Accro
Bonjour,
Je suis sur mon téléphone portable.
Cette partie reste valide.
Code:
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.
Code:
    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é
 

Pièces jointes

  • New Calendrier v2 (3).xlsm
    212.4 KB · Affichages: 0
Dernière édition:

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD

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)

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

TooFatBoy

XLDnaute Barbatruc
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

XLDnaute Accro
nom pas besoin de calculer la date

VB:
 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
 

jcf6464

XLDnaute Impliqué
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
 

Pièces jointes

  • Dates.jpg
    76.5 KB · Affichages: 5

TooFatBoy

XLDnaute Barbatruc
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

XLDnaute Impliqué
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


 

Pièces jointes

  • Capture d’écran 2024-08-27 114639.jpg
    70.3 KB · Affichages: 4

dysorthographie

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

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…