Avoir un commentaire automatique... Résolu/Fermé

Question

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

Configuration: Windows 10, Google Chrome

michel_m · Answer

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

Guy72 · Answer

Bonjour,
Je comprends, je vais voir si mon dossier passe :
http://www.archive-host.com

Les relevés sont dans l'onglet "Relevésé et le résultat est dans l'onglet "Janvier_2018"

Patrice33740 · Answer

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

Guy72 · Answer

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

Guy72 · Answer

Je n'ai pas essayé la macro, je cherche toujours à afficher mes lignes 1 à 7

Guy72 · Answer

Ouf !!!j'ai trouvé en sélectionnant toutes les cellules et après "Format" et"Afficher les lignes"

Guy72 · Answer

D'accord A+

michel_m · Answer

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/

Guy72 · Answer

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

Guy72 · Answer

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

michel_m · Answer

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

Guy72 · Answer

Ç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"

http://www.archive-host.com

Regarde ce que ça donne, si tu vois quelque chose.
Ce n'est pas grave,car, les autres jours fonctionnent ;)

michel_m · Answer

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

Guy72 · Answer

Pour aujourd'hui, j'ai aussi une bizarrerie :

michel_m · Answer

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

Guy72 · Answer

http://www.archive-host.com

michel_m · Answer

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é

Guy72 · Answer

D'accord
http://www.archive-host.com

Guy72 · Answer

Bonjour,

http://www.archive-host.com

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

michel_m · Answer

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

Guy72 · Answer

Bonjour,
J'ai fais pas mal d'essais
.
Il y a 2 jours ou ça ne fonctionne pas (le 2 et 3 janvier, je ne vois pas pourquoi ceux-là)
Je joins le fichier simplifié avec les page des jours (01-02-03 etc....) et le masquage de colonnes (Onglet Janvier_2018) pour que cela soit plus clair.

http://www.archive-host.com

Merci de ton aide
Cordialement

Guy72 · Answer

Bonjour,
D'accord
C'est pus-tôt moi qui te remercie de ta patience (tu n'était pas obligé de le faire).
Cordialement

michel_m · Answer

Bonjour
ouf!
Ci joint classeur avec code modifié

j'ai testé sur tous les jours du 1 au 11
testé pluie d'une minute et de 24h
recopie le code dans ton classeur dossier commentaires

https://mon-partage.fr/f/ctxEJBWd/
 
 Michel

Guy72 · Answer

Bonjour Michel, 
Impeccable !!!
Ça fonctionne toujours aussi bien ;)
Cordialement

Guy72 · Answer

Bonjour Michel
J'ai modifié mes tableaux, et je n'arrive pas à modifier la macro.
Normalement, il ne devrait pas avoir besoin de la modifier ??

Du 1 au 9 juin, j'ai juste copié les cellule
C'est à partir du 10 que j'ai utilisé la macro.



Et là, elle s'arrête à : AddComment

'------Inscription du texte dans un survol commentaire                    If Flag = False Then                        With Sheets("Juin_2018")                            Ligne = 11 + (Jour - 1) * 2                            With .Cells(Ligne, Col)                                .AddComment

Est-tu toujours là pour m'aider ?
Cordialement

michel_m · Answer

Bonjour,

Je n'ai plus du tout  ce classeur en t^te  et guère de temps ce WE pour une fois ensoleillé...
Lundi , joins ton classeur

Bon WE

Guy72 · Answer

Bonjour,
Quelqu'un peut-il m'aider ?

Guy72 · Answer

Bonjour,
Merci de ton aide, mais je n'arrive pas à regarder si ça fonctionne.
Impossible d'ouvrir la macro, il me parle de carte à puce ?????,

Guy72 · Answer

Oui, j'ai pu ouvrir le classeur, mais....
En exemple:
Si j'ajoute la journée du 15 juin à la place du 22 (en changeant la date dans relevés "20180622" et que je fasse "transfert", j'ai bien les données dans les cases du 22, et si je clic sur "commentaires" ça ne fonctionne pas.
Ça surligne " .Comment.Delete "

Et si j'essaye en juillet (en simulant le 23 juillet), ça me mets:
Private Sub CommandButton1_Click()  (surligné en jaune)
Call reperer_periodes_pluie (surligné en bleu)
End Sub

Erreur de compilation
Argument non falcutatif

https://www.cjoint.com/c/HGyfiVN243o

Patrice33740 · Answer

Pas de nouvelle = bonne nouvelle ???

Guy72 · Answer

Bonjour Patrice
Excuse pour la réponse tardive (je ne t'aurais jamais laisser sans réponse).
Je n'ai pas reçu par mail ta réponse (bizarre).
Je regarde ça

Je viens d'essayer.
Impeccable !!! pour Juin.
J'ai essayé avec Juillet, mais je n'y suis pas arrivé (pourtant, j'ai recopier les macros).

C'est pas grave, je vais prendre juin comme modèle.
J'ai juste à changer le mois dans la macro "Transfert", "la date du 1er jour", "la modification des semaines" (comme je fais d'habitude) et ça devrait fonctionner.

Guy72 · Answer

Bonjour Patrice
ça a l'air de fonctionner.
Merci beaucoup pour ton aide
Cordialement

Je poursuis mes essais

Guy72 · Answer

Bonjour Fabrice,
Impeccable !!! ça fonctionne.
Merci encore 
Cordialement

Guy72 · Answer

Bonjour,
Je viens demander de l'aide, j'ai modifié la macro "Commentaire", suivant les modification de la page "Relevés".

J'ai du faire quelque chose , ou oublier, car je n'arrive plus à obtenir le résultat d'avant les modifications.
Dans les cellules avec commentaire, ces commentaires sont bizarres.
Je n'ai plus la fin et le début de la précipitation tout reste sur la même minute ????

Exemple la cellule CB29, il y a "il a plu de 17h55 è à 17h55" au lieu de "il a plu de 17h55 à 18h53

Qu'ai-je fais pour que ça ne fonctionne plus ???  :((

Si vous pouviez me dépanner ?
Merci

Fichier joint :
https://www.cjoint.com/doc/18_10/HJlqRVwleHb_Octobre-2018---Copie.xlsm

Guy72 · Answer

Bonsoir,
Bon, je regarde ça.
Merci de m'avoir répondu.