Avoir un commentaire automatique...

Résolu
Guy72 Messages postés 973 Date d'inscription   Statut Membre Dernière intervention   -  
Guy72 Messages postés 973 Date d'inscription   Statut Membre Dernière intervention   -
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

A voir également:

35 réponses

Guy72 Messages postés 973 Date d'inscription   Statut Membre Dernière intervention   20
 
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
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour
j'ai changé une ligne qui semblait bien fonctionner mais...

If Application.CountIf(.Range("Q8:Q1448"), 60) > 0 Then
'ligne de la dernière ondée
Final = .Range("Q1:Q1450").Find(what:=60,searchdirection:=xlPrevious).Row
'division de la journée en secteurs

et ça semble fonctionner mais...

comme j'ai saturé sur ce pb, je regarderai à t^te reposée demain ou pendant le WE en reprenant tous les jours (merci pour ton dernier envoi); d'ailleurs tant que je ne propose rien, tu pourrais peut-^tre m'envoyer les nouvelles feuilles-jour

merci pour ta patience!
0
Guy72 Messages postés 973 Date d'inscription   Statut Membre Dernière intervention   20
 
Bonjour,
D'accord
C'est pus-tôt moi qui te remercie de ta patience (tu n'était pas obligé de le faire).
Cordialement
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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
0
Guy72 Messages postés 973 Date d'inscription   Statut Membre Dernière intervention   20
 
Bonjour,
ça fonctionne, a voir avec les prochains jours (ils annonces de la pluie), ça devrait fonctionner ;)
Merci encore de ton aide
Cordialement
0
Guy72 Messages postés 973 Date d'inscription   Statut Membre Dernière intervention   20
 
Bonjour Michel,
Impeccable !!!
Ça fonctionne toujours aussi bien ;)
Cordialement
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Guy72 Messages postés 973 Date d'inscription   Statut Membre Dernière intervention   20
 
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
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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

0
Guy72 Messages postés 973 Date d'inscription   Statut Membre Dernière intervention   20
 
Bonjour,
D'accord, pas de problème.
Bon WE
0
Guy72 Messages postés 973 Date d'inscription   Statut Membre Dernière intervention   20
 
Bonjour Michel
Voici le nouveau classeur
https://www.cjoint.com/c/HFwtiCP8O58
J'ai écrit les premiers commentaire sauf celui du 15 juin
J'avoue que je ne vois pourquoi ça ne fonctionne plus
Cordialement
0
Guy72 Messages postés 973 Date d'inscription   Statut Membre Dernière intervention   20
 
Bonjour,
Quelqu'un peut-il m'aider ?
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour Guy,

Il semblerait que Michel soit en vacances,

J'ai légèrement modifiée sa macro pour que ça colle avec ton nouveau fichier.
J'ai aussi modifié les 2 appels (depuis Relevés et depuis Juin_2018) pour quetu ne soit pas obligé de modifier la macro chaque fois que le nom du mois change.
https://mon-partage.fr/f/n4p5rIs4/
0
Guy72 Messages postés 973 Date d'inscription   Statut Membre Dernière intervention   20
 
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 ?????,
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
C'est à cause de la signature des macros, essaies celui-ci :
https://mon-partage.fr/f/t5ZyIuZn/
0
Guy72 Messages postés 973 Date d'inscription   Statut Membre Dernière intervention   20
 
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
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour Guy,

Désolé pour le problème du .Comment.Delete, voici la solution :
https://mon-partage.fr/f/6vgAbyId/

Pour Juillet, c'est normal, comme je t'ai dit, j'ai aussi modifié les 2 appels (depuis Relevés et depuis Juin_2018).
Il faut donc que tu modifies, non seulement la macro "reperer_periodes_pluie", mais aussi les 2 macro d'appel :
Dans le module de la feuille Relevé :
Private Sub CommandButton1_Click()
  Call reperer_periodes_pluie(Worksheets(2))
End Sub

Et dans le module de la feuille du mois (Juillet_2018) :
Private Sub CommandButton1_Click()
  Call reperer_periodes_pluie(Me)
End Sub
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Pas de nouvelle = bonne nouvelle ???
0
Guy72 Messages postés 973 Date d'inscription   Statut Membre Dernière intervention   20
 
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.
0
Guy72 Messages postés 973 Date d'inscription   Statut Membre Dernière intervention   20
 
Bonjour Patrice
ça a l'air de fonctionner.
Merci beaucoup pour ton aide
Cordialement

Je poursuis mes essais
0
Guy72 Messages postés 973 Date d'inscription   Statut Membre Dernière intervention   20
 
Bonjour Fabrice,
Impeccable !!! ça fonctionne.
Merci encore
Cordialement
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
De rien, au plaisir de te relire sur Forum

Cordialement
Patrice
0
Guy72 Messages postés 973 Date d'inscription   Statut Membre Dernière intervention   20
 
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
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

Chez moi ça fonctionne (après avoir effacé le commentaire)
0
Guy72 Messages postés 973 Date d'inscription   Statut Membre Dernière intervention   20
 
Bonsoir,
Bon, je regarde ça.
Merci de m'avoir répondu.
0