Avoir un commentaire automatique... [Résolu]

Guy72 425 Messages postés dimanche 18 novembre 2007Date d'inscription 16 janvier 2018 Dernière intervention - 7 janv. 2018 à 10:49 - Dernière réponse : Guy72 425 Messages postés dimanche 18 novembre 2007Date d'inscription 16 janvier 2018 Dernière intervention
- 16 janv. 2018 à 15:23
Bonjour,

Je m'explique:
Je fais des relevés météo.
Voici une image du fichier :

Dans la cellule BT19, j'ai le temps passé ou il y a eu de la pluie.

Sur cette nouvelle image, dans les cellules Q166 à Q173, il y a le temps de pluie avec la formule en Q166 ....=SI(H166>0;60;"") les minutes en colonne H


Dans les images suivantes, c'est le même principe :






Donc, ma question, est:
Est-il possible faire apparaître un commentaire ou une bulle automatiquement (peut-être avec une formule donnat le résultat ??)en survolant la cellule BT19 avec le commentaire suivant indiquant qu'il a plus de :
2h37 à 2h44 - 4h05 à 4h44 - 5h26 à 5h44 - 6h54 à 6h59 ou quelques chose dans le même genre.

Sinon en ce moment, j'insert un commentaire à la main genre:
"il la plus de 2h37 à 2h44 et de 4h05 à 4h44 et de 5h26 à 5h44 et de 6h54 à 6h59"

J'espère que j'ai bien expliqué mon sujet.... ;)
Merci de votre aide
Cordialement

Afficher la suite 

30 réponses

Répondre au sujet
michel_m 14970 Messages postés lundi 12 septembre 2005Date d'inscriptionContributeurStatut 16 janvier 2018 Dernière intervention - 8 janv. 2018 à 17:17
+1
Utile
Bonjour

Pas de pièges énervants d'où le déli !

la procédure te donne les heures de pluie du jour
https://mon-partage.fr/f/O2arQaGg/
Commenter la réponse de michel_m
michel_m 14970 Messages postés lundi 12 septembre 2005Date d'inscriptionContributeurStatut 16 janvier 2018 Dernière intervention - 10 janv. 2018 à 16:48
+1
Utile
Merci, mais c'est tout le classeur ou ma procédure ;suite à une mauvaise manip, j'ai effacé la procédure que je t'avais proposé
Commenter la réponse de michel_m
michel_m 14970 Messages postés lundi 12 septembre 2005Date d'inscriptionContributeurStatut 16 janvier 2018 Dernière intervention - Modifié par michel_m le 11/01/2018 à 16:03
+1
Utile
1
Bonjour

Hyper-piégé ce pb

un point que je n'ai pas encore traité: une pluie d'une minute... à faire ou pas ?
ca semble pas trop compliqué mais en ce moment je sature!

Ci joint ( 4 jours: 1; 5;9;10)
https://mon-partage.fr/f/8IVIrLWp/

 Michel
michel_m 14970 Messages postés lundi 12 septembre 2005Date d'inscriptionContributeurStatut 16 janvier 2018 Dernière intervention - 11 janv. 2018 à 17:40
je viens de tester avec une pluie-minute----> cela pose aucun problème
Commenter la réponse de michel_m
michel_m 14970 Messages postés lundi 12 septembre 2005Date d'inscriptionContributeurStatut 16 janvier 2018 Dernière intervention - 7 janv. 2018 à 11:27
0
Utile
Bonjour,

quel est le rapport entre BT19 et les période de pluie?

Que fait on, par exemple, pour BR15 ou BZ20 ?

Rappel: on a que ce que tu écris pour essayer de t'aider....

de toutes façons, il faudrait le classeur (ou un extrait du classeur) car on ne va pas s'amuser à recopier à la main tes données...

Commenter la réponse de michel_m
Guy72 425 Messages postés dimanche 18 novembre 2007Date d'inscription 16 janvier 2018 Dernière intervention - 7 janv. 2018 à 11:37
0
Utile
1
Bonjour,
Je comprends, je vais voir si mon dossier passe :
https://www.aht.li/3163903/Janvier_2018_CCM.xlsm

Les relevés sont dans l'onglet "Relevésé et le résultat est dans l'onglet "Janvier_2018"
michel_m 14970 Messages postés lundi 12 septembre 2005Date d'inscriptionContributeurStatut 16 janvier 2018 Dernière intervention - 7 janv. 2018 à 13:55
Bien reçu, merci
Très beau travail: félicitations !

dans feuille "relevé" tu as la date du 6 janvier d'indiqué : les données du 6 sont elles annulées et remplacées par celles du 7 (ton bouton "supprime")?

dans ce cas, garde t on souvenir des survols-commentaires des jours précédents , soit 31 survols fin janvier ?

Edit 1435h
OK c'est vu j'y travaillerai demain, vie de familie oblige:; boulot intéressant mais il ne faut pas se précipiter; sois patient!
Commenter la réponse de Guy72
Patrice33740 6517 Messages postés dimanche 13 juin 2010Date d'inscription 16 janvier 2018 Dernière intervention - Modifié par Patrice33740 le 7/01/2018 à 14:16
0
Utile
Bonjour,

Essaies ce code (à adapter) :
Option Explicit

Sub MàjCommentairePluie()
Dim c As Range
  Set c = Worksheets("Janvier_2018").Range("BT19")
  Call CommentairePluie(c, True)
End Sub

Private Sub CommentairePluie(dst As Range, AM As Boolean)
' Met en place les heures de pluie en commentaire de la cellule dst
' Arguments : dst                 [in]  cellule destination
'             AM                  [in]  Vrai si matin et Faux si après-midi
' 07/01/18
Dim rng As Range
Dim cel As Range
Dim deb As String
Dim fin As String
Dim cmt As String

  With Worksheets("Relevés")
    Set rng = .Range("H9", .Cells(.Rows.Count, "H").End(xlUp))
  End With
  For Each cel In rng.Cells
    If cel.Value > 0 Then
      If AM And cel.Offset(0, 3) < 0.5 Or Not AM And cel.Offset(0, 3) >= 0.5 Then
        If deb = "" Then
          deb = Format(cel.Offset(0, 3).Value, "h""h""mm")
        Else
          fin = Format(cel.Offset(0, 3).Value, "h""h""mm")
        End If
      End If
    Else
      If deb <> "" Then
        If fin = "" Then fin = deb
        cmt = cmt & vbCrLf & deb & " à " & fin
        deb = ""
        fin = ""
      End If
    End If
  Next cel
  If cmt > "" Then
    cmt = "Pluie de :" & cmt
    With dst
      .ClearComments
      .AddComment
      .Comment.Text Text:=cmt
      .Comment.Shape.TextFrame.AutoSize = True
    End With
  End If
End Sub



Cordialement
Patrice
Commenter la réponse de Patrice33740
Guy72 425 Messages postés dimanche 18 novembre 2007Date d'inscription 16 janvier 2018 Dernière intervention - Modifié par Guy72 le 7/01/2018 à 14:42
0
Utile
2
Par contre, j'ai masqué les lignes de 1 à 8 sur le fichier que j'ai envoyé, il faut les affichées pour comprendre un peu plus la macro "Transfert"

Et je ne sais pas comment faire pour tout afficher :(
Patrice33740 6517 Messages postés dimanche 13 juin 2010Date d'inscription 16 janvier 2018 Dernière intervention - 7 janv. 2018 à 14:55
As-tu essayé la macro ci-dessus ?

Pour ré-afficher, sélectionne tous les cellules (coin supérieur droit) puis clic droit sur les numéros de ligne et afficher
Guy72 425 Messages postés dimanche 18 novembre 2007Date d'inscription 16 janvier 2018 Dernière intervention - 9 janv. 2018 à 10:01
J'ai essayé, mais ren ne bouge
Commenter la réponse de Guy72
Guy72 425 Messages postés dimanche 18 novembre 2007Date d'inscription 16 janvier 2018 Dernière intervention - 7 janv. 2018 à 15:07
0
Utile
Je n'ai pas essayé la macro, je cherche toujours à afficher mes lignes 1 à 7
Commenter la réponse de Guy72
Guy72 425 Messages postés dimanche 18 novembre 2007Date d'inscription 16 janvier 2018 Dernière intervention - 7 janv. 2018 à 15:12
0
Utile
Ouf !!!j'ai trouvé en sélectionnant toutes les cellules et après "Format" et"Afficher les lignes"
Commenter la réponse de Guy72
Guy72 425 Messages postés dimanche 18 novembre 2007Date d'inscription 16 janvier 2018 Dernière intervention - 7 janv. 2018 à 15:20
0
Utile
D'accord A+
Commenter la réponse de Guy72
0
Utile
Bonjour,
Je ne sais pas quoi dire à part:
OUAhahahah !!!! et merci, j'ai du mal à comprendre que l'on puisse faire ça, je trouve ça tout simplement fabuleux !!
Merci encore
Cordialement
Commenter la réponse de Guy72
Guy72 425 Messages postés dimanche 18 novembre 2007Date d'inscription 16 janvier 2018 Dernière intervention - 9 janv. 2018 à 10:14
0
Utile
Bonjour Michel
J'ai essayé la macro, comme je le disais plus haut, c'est fabuleux.....

Si je remplace 20170105 par 20170101 dans la cellule L de l'onglet "Relevés", ça fonctionne.
Par contre si je remplace les données du 05 janvier 2017 par celles du 01 janvier 2017, ça ne fonctionne plus.

J'ai dans le code la Ligne 25 surligné en jaune.... Fin = secteur(Cptr + 1)..... pourquoi ?

Cordialement
Commenter la réponse de Guy72
michel_m 14970 Messages postés lundi 12 septembre 2005Date d'inscriptionContributeurStatut 16 janvier 2018 Dernière intervention - 9 janv. 2018 à 17:17
0
Utile
Bonjour,

Curieux, mais sans plus de renseignements ni l'indication du message d'erreur.....
A tout hasard, Voir si la colonne A n'a pas bougé...
Commenter la réponse de michel_m
Guy72 425 Messages postés dimanche 18 novembre 2007Date d'inscription 16 janvier 2018 Dernière intervention - 9 janv. 2018 à 18:18
0
Utile
Ça affiche quand même les commentaires mais avec une erreur.

Dans la partie (12h-18h59) dans la cellule BX11, j'ai :
il a plu
de 12h00 à 12h44
(ça c'est bon)
de à 18h59 (je ne devrais rien avoir) ?

Dans la partie (19h-23h59) dans la cellule BX11, j'ai :
il a plu
de à 23h59
(je devrais rien y avoir) ?

Peut être ai-je un bug dans mon fichier, mais je ne vois pas quoi ?

Voici le fichier des données du 01 janvier 2018 sélectionner A2:L1441 puis le coller en A9 dans l'onglet "Relevés" du fichier "Janvier_2018_CCM.xlsm"

https://www.aht.li/3165155/01_Janvier_2018.xlsx

Regarde ce que ça donne, si tu vois quelque chose.
Ce n'est pas grave,car, les autres jours fonctionnent ;)
Commenter la réponse de Guy72
michel_m 14970 Messages postés lundi 12 septembre 2005Date d'inscriptionContributeurStatut 16 janvier 2018 Dernière intervention - 10 janv. 2018 à 09:52
0
Utile
Bonjour,

bizarre que cela se passe uniquement le 1° janvier...

J'essaierai peut-être dans la journée mais je n'aurai guère de temps, donc patience
Commenter la réponse de michel_m
Guy72 425 Messages postés dimanche 18 novembre 2007Date d'inscription 16 janvier 2018 Dernière intervention - 10 janv. 2018 à 11:10
0
Utile
Pour aujourd'hui, j'ai aussi une bizarrerie :
Commenter la réponse de Guy72
michel_m 14970 Messages postés lundi 12 septembre 2005Date d'inscriptionContributeurStatut 16 janvier 2018 Dernière intervention - Modifié par michel_m le 10/01/2018 à 14:23
0
Utile
Décidément!

envoie TOUT le classeur du 9 (j'ai résolu le 1)
en faisant une manip j'ai détruit le code !!!! :-/

 Michel
Commenter la réponse de michel_m
Guy72 425 Messages postés dimanche 18 novembre 2007Date d'inscription 16 janvier 2018 Dernière intervention - 10 janv. 2018 à 16:35
Commenter la réponse de Guy72
Guy72 425 Messages postés dimanche 18 novembre 2007Date d'inscription 16 janvier 2018 Dernière intervention - 10 janv. 2018 à 18:21
Commenter la réponse de Guy72
Guy72 425 Messages postés dimanche 18 novembre 2007Date d'inscription 16 janvier 2018 Dernière intervention - Modifié par Guy72 le 11/01/2018 à 10:33
0
Utile
Bonjour,

https://www.aht.li/3165694/10_Janvier_2018.xlsx

Voici ce que j'ai avec ce fichier d'hier (du 10 janvier)


Par contre si tu utilise la macro "supprimer" sur le classeur "Janvier_2018_CCM", elle n'est pas à jour, il faut la modifier et mettre O1448 au lieu de Q1448 .

Cordialement
Commenter la réponse de Guy72
Avoir un commentaire automatique... - page 2