Sujet Précédent Sujet Suivant

Avoir un commentaire automatique...

Résolu/Fermé
Guy72 Messages postés 901 Date d'inscription dimanche 18 novembre 2007 Statut Membre Dernière intervention 24 avril 2024 - 7 janv. 2018 à 10:49
Guy72 Messages postés 901 Date d'inscription dimanche 18 novembre 2007 Statut Membre Dernière intervention 24 avril 2024 - 16 oct. 2018 à 20:48
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

Précédent
  • 1
  • 2
Réponse 21 / 35
Guy72 Messages postés 901 Date d'inscription dimanche 18 novembre 2007 Statut Membre Dernière intervention 24 avril 2024 21
12 janv. 2018 à 08:35
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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié le 12 janv. 2018 à 10:21
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
Réponse 22 / 35
Guy72 Messages postés 901 Date d'inscription dimanche 18 novembre 2007 Statut Membre Dernière intervention 24 avril 2024 21
12 janv. 2018 à 14:58
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
Réponse 23 / 35
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié le 14 janv. 2018 à 11:23
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 901 Date d'inscription dimanche 18 novembre 2007 Statut Membre Dernière intervention 24 avril 2024 21
14 janv. 2018 à 11:29
Bonjour,
ça fonctionne, a voir avec les prochains jours (ils annonces de la pluie), ça devrait fonctionner ;)
Merci encore de ton aide
Cordialement
0
Réponse 24 / 35
Guy72 Messages postés 901 Date d'inscription dimanche 18 novembre 2007 Statut Membre Dernière intervention 24 avril 2024 21
16 janv. 2018 à 15:23
Bonjour Michel,
Impeccable !!!
Ça fonctionne toujours aussi bien ;)
Cordialement
0

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

Posez votre question
Réponse 25 / 35
Guy72 Messages postés 901 Date d'inscription dimanche 18 novembre 2007 Statut Membre Dernière intervention 24 avril 2024 21
15 juin 2018 à 23:11
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
Réponse 26 / 35
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié le 16 juin 2018 à 09:13
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 901 Date d'inscription dimanche 18 novembre 2007 Statut Membre Dernière intervention 24 avril 2024 21
16 juin 2018 à 09:22
Bonjour,
D'accord, pas de problème.
Bon WE
0
Guy72 Messages postés 901 Date d'inscription dimanche 18 novembre 2007 Statut Membre Dernière intervention 24 avril 2024 21
Modifié le 22 juin 2018 à 21:11
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
Réponse 27 / 35
Guy72 Messages postés 901 Date d'inscription dimanche 18 novembre 2007 Statut Membre Dernière intervention 24 avril 2024 21
20 juil. 2018 à 08:55
Bonjour,
Quelqu'un peut-il m'aider ?
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
23 juil. 2018 à 19:40
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
Réponse 28 / 35
Guy72 Messages postés 901 Date d'inscription dimanche 18 novembre 2007 Statut Membre Dernière intervention 24 avril 2024 21
23 juil. 2018 à 20:55
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 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
23 juil. 2018 à 21:41
C'est à cause de la signature des macros, essaies celui-ci :
https://mon-partage.fr/f/t5ZyIuZn/
0
Réponse 29 / 35
Guy72 Messages postés 901 Date d'inscription dimanche 18 novembre 2007 Statut Membre Dernière intervention 24 avril 2024 21
Modifié le 24 juil. 2018 à 07:10
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 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
24 juil. 2018 à 10:53
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
Réponse 30 / 35
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
25 juil. 2018 à 16:47
Pas de nouvelle = bonne nouvelle ???
0
Réponse 31 / 35
Guy72 Messages postés 901 Date d'inscription dimanche 18 novembre 2007 Statut Membre Dernière intervention 24 avril 2024 21
Modifié le 26 juil. 2018 à 23:56
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
Réponse 32 / 35
Guy72 Messages postés 901 Date d'inscription dimanche 18 novembre 2007 Statut Membre Dernière intervention 24 avril 2024 21
27 juil. 2018 à 07:11
Bonjour Patrice
ça a l'air de fonctionner.
Merci beaucoup pour ton aide
Cordialement

Je poursuis mes essais
0
Réponse 33 / 35
Guy72 Messages postés 901 Date d'inscription dimanche 18 novembre 2007 Statut Membre Dernière intervention 24 avril 2024 21
30 juil. 2018 à 07:10
Bonjour Fabrice,
Impeccable !!! ça fonctionne.
Merci encore
Cordialement
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
30 juil. 2018 à 11:23
De rien, au plaisir de te relire sur Forum

Cordialement
Patrice
0
Réponse 34 / 35
Guy72 Messages postés 901 Date d'inscription dimanche 18 novembre 2007 Statut Membre Dernière intervention 24 avril 2024 21
11 oct. 2018 à 18:44
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 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
12 oct. 2018 à 11:21
Bonjour,

Chez moi ça fonctionne (après avoir effacé le commentaire)
0
Réponse 35 / 35
Guy72 Messages postés 901 Date d'inscription dimanche 18 novembre 2007 Statut Membre Dernière intervention 24 avril 2024 21
16 oct. 2018 à 20:48
Bonsoir,
Bon, je regarde ça.
Merci de m'avoir répondu.
0