Avoir un commentaire automatique... - Page 2
Résolu
Précédent
- 1
- 2
-
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-
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!
-
-
Bonjour,
D'accord
C'est pus-tôt moi qui te remercie de ta patience (tu n'était pas obligé de le faire).
Cordialement -
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 -
Bonjour Michel,
Impeccable !!!
Ça fonctionne toujours aussi bien ;)
Cordialement -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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 -
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
-
-
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
-
-
Bonjour,
Quelqu'un peut-il m'aider ?-
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/
-
-
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 ?????, -
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-
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
-
-
Pas de nouvelle = bonne nouvelle ???
-
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. -
Bonjour Patrice
ça a l'air de fonctionner.
Merci beaucoup pour ton aide
Cordialement
Je poursuis mes essais -
Bonjour Fabrice,
Impeccable !!! ça fonctionne.
Merci encore
Cordialement -
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 -
Bonsoir,
Bon, je regarde ça.
Merci de m'avoir répondu.
Précédent
- 1
- 2
