Insertion d'un commentaire

Résolu/Fermé
bayard33920 Messages postés 28 Date d'inscription vendredi 16 octobre 2009 Statut Membre Dernière intervention 4 avril 2010 - 26 mars 2010 à 17:34
bayard33920 Messages postés 28 Date d'inscription vendredi 16 octobre 2009 Statut Membre Dernière intervention 4 avril 2010 - 1 avril 2010 à 21:03
Bonjour,

Dans le fichier joint, je voudrais savoir si il est possible lors de la selection d'une cellule pour la réservation (ce sont les bleues) d'inserer un commentaire.
L'explication est que lors de la reservation, il faudrait que la personne puisse indiquer le nom de la personne pour qui elle reserve.
J'ai simplifié le fichier en ne laissant qu'un seul mois et comme login de connection "TEST".
Sur la feuille "DATA", il y a deux boutons pour protéger et déprotéger les feuilles (plus simple pour les tests, à mon gout).

Merci à vous.

http://www.cijoint.fr/cjlink.php?file=cj201003/cijCjdsdx9.xls

8 réponses

Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 289
26 mars 2010 à 21:15
Bonjour,
Voici une possibilité. Il faut d'abord lancer la procédure déprotéger puis modifier les cellules. Je n'ai pas mis de test pour vérifier la validité de l'objet Target (il doit s'agir d'une cellule unique)

http://www.cijoint.fr/cjlink.php?file=cj201003/cij8e6AcZk.xls

@+
4
bayard33920 Messages postés 28 Date d'inscription vendredi 16 octobre 2009 Statut Membre Dernière intervention 4 avril 2010
26 mars 2010 à 22:10
L'idée est super bonne, bon ya encore quelques bugs mais c'est super.
Le problème N°1 est le fait de déprotéger toutes les cellules, ce qui donne la main sur tout le tableau, c'est ce que je voudrais éviter.
Il faudrait que seule les cellules bleues (dont leur nombre est variable) soient déprotégées.
J'espère que quelqu'un ou même toi aller trouver comment résoudre ce problème de cellules :)

Bonne soirée et merci encore pour cette avancée
0
Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 289
26 mars 2010 à 22:36
En fait, tu n'es pas obligé de déprotéger tout le classeur avant de modifier. Dans le format de tes cellules, Protection, tu décoches Verrouillée pour tes cellules bleues. Ensuite, dans ta macro Change avant d'insérer le commentaire, tu appelles déprotéger_feuilles et une fois que le commentaire est mis, tu appelles protéger_feuille.
J'espère avoir été clair, sinon, n'hésite pas.
0
bayard33920 Messages postés 28 Date d'inscription vendredi 16 octobre 2009 Statut Membre Dernière intervention 4 avril 2010
27 mars 2010 à 07:48
Oui l'idée est bonne mais le nombre de cellules bleues est "aléatoire", il varie suivant le nombre inscrit dans la colonne AJ.
Honnetement je n'ai aucune idée de comment faire :)
0
bayard33920 Messages postés 28 Date d'inscription vendredi 16 octobre 2009 Statut Membre Dernière intervention 4 avril 2010
29 mars 2010 à 13:59
Bonjour,

Je pense avoir compris ce que tu voulais dire, avec deprotéger et reprotéger.
Peux tu jeter un yeux sur la modif que j'ai fait et me dire ce que tu en pense.

ça pose un problème lors de l'effacement d'une réservation, une demande de commentaire apparait à chaque fois

http://www.cijoint.fr/cjlink.php?file=cj201003/cijaBsW6PD.xls
0
Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 289
29 mars 2010 à 22:28
Bonsoir,
J'ai essayé de modifier le code. J'ai ajouté l'évènement SelectionChange pour contourner le problème que tu évoque.
http://www.cijoint.fr/cjlink.php?file=cj201003/cijFMUYE6o.xls
@+
0

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

Posez votre question
bayard33920 Messages postés 28 Date d'inscription vendredi 16 octobre 2009 Statut Membre Dernière intervention 4 avril 2010
30 mars 2010 à 21:31
Bonsoir,

Désolé pour le délai de réponse mais j'ai passé ma journée à Paris pour une réunion.
Je vois qu'il y a des améliorations dans le code et je t'en remercie.
Je ne sais pas si cela le faisait avant les modifs mais maintenant on peut faire des réservations sans être logguer (en TEST pour cette version).
Si une fois logguer on annule au lieu de rentrer un nom ou autre dans le commentaire il y a une erreur d'exécution "1004".

Je suis désolé mais je ne vois pas d'où viennent ces erreurs :(

Merci pour le boulot déjà fait et bonne soirée
0
Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 289
30 mars 2010 à 22:00
Bonsoir,
Pas de soucis pour le délai, tu as le droit de bosser :-)
Qu'appelles-tu être loggué ?
Pour l'erreur, j'ai modifié le code, si on annule, j'efface le contenu de la cellule (tu peux supprimer la ligne de code si tu veux garder la valeur)
http://www.cijoint.fr/cjlink.php?file=cj201003/cijB0wsNvg.xls
@+
0
bayard33920 Messages postés 28 Date d'inscription vendredi 16 octobre 2009 Statut Membre Dernière intervention 4 avril 2010
Modifié par bayard33920 le 30/03/2010 à 23:06
Re,

Quand tout sera en ordre, sur la feuille "DATA" il y aura plusieurs mot de passe et trigrammes dans les colonnes A et B

lorsque quelqu'un voudra faire une réservation il cliquera sur connexion , se loguera avec mot de passe. A la selection d'une cellule bleue ce sera son trigramme qui s'affichera avec le commentaire qu'il aura laissé.

A lors actuel, il n'y a pas besoin de se logguer pour faire une réservation et ça c'est pas bon.

Sinon pour le fait d'annuler c'est bon, pas de message d'erreur.

@+

PS: Y a t-il un moyen pour que la police des commentaire soit un peu plus grande ???
0
bayard33920
31 mars 2010 à 11:13
EDIT: J'ai reussi à regler le problème du login, mais le problème de la taille de la police dans le commentaire je n'y arrive pas, ça me dépasse :)
0
Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 289
31 mars 2010 à 12:54
Bonjour,
Pour modifier la taille de la police, j'ai trouvé comment modifier la police de tout l'ensemble, mais je ne sais pas comment mettre par exemple une partie en gras et l'autre en italique.
Une fois que tu as ajouté ton commentaire, tu mets ce code :
Target.Comment.Shape.Select True
With Selection.Font
   .Name = "Arial"
   .FontStyle = "Gras italique"
   .Size = 20
   .Strikethrough = False
   .Superscript = False
   .Subscript = False
   .OutlineFont = False
   .Shadow = False
   .Underline = xlUnderlineStyleNone
   .ColorIndex = xlAutomatic
End With

Chez moi ça fonctionne.
@+
0
bayard33920 Messages postés 28 Date d'inscription vendredi 16 octobre 2009 Statut Membre Dernière intervention 4 avril 2010
31 mars 2010 à 18:30
Bonsoir,

Honnêtement je ne sais pas où mettre le code.
J'ai essayer de le mettre "un peu partout" et à chaque fois j'ai une erreur au niveau de "Target.Comment.Shape.Select True"

Je t'avais prévenu que j'étais un BOULET :)

Tu entends quoi par: "Une fois que tu as ajouté ton commentaire, tu mets ce code"

Désolé
0
Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 289
31 mars 2010 à 22:21
Bonsoir,
Pas de soucis, voici le fichier avec le code mis à jour
http://www.cijoint.fr/cjlink.php?file=cj201003/cijd8ndzqh.xls
Remarque : je n'ai pas utilisé le même code que celui que j'ai posté précdemment ; il fonctionnait sous 2007 mais pas avec Excel 2003.
@+
0
bayard33920 Messages postés 28 Date d'inscription vendredi 16 octobre 2009 Statut Membre Dernière intervention 4 avril 2010
31 mars 2010 à 22:39
C'est super, exactement ce que je voulais.
Tu as fais un super boulot et je t'en remercie
Bonne soirée à toi.

PS: Une question qui me chatouille un peu, est -il possible de créer un popup à l'ouverture d'une feuille Excel avec un message qui aurait été écrit sur la feuille d'un classeur.

En clair (ou presque), j'écris "ATTENTION" sur la feuil3 cellule A1 d'un classeur, est ce qu'un popup (ou MsgBox) peut aller chercher ce mot et l'afficher au moment du clic sur l'onglet feuil3.

Pas clair, peur être????????????????????
0
aquarelle Messages postés 7140 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 25 mars 2024 1 302
Modifié par aquarelle le 31/03/2010 à 23:08
Bonsoir,

Concernant ton PS, oui c'est possible :)

Au niveau de la feuil3, tu mets ce code :
Private Sub Worksheet_Activate() 
MsgBox Range("A1").Text 
End Sub


Bonne soirée
0
Encore merci pour ton aide.

@+
0
Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 289
1 avril 2010 à 20:48
Bonsoir Bayard33920,
Pour info, j'ai trouvé comment modifier la police du commentaire caractères par caractères, pour un commentaire en A1 :
With Range("A1").Comment.Shape.TextFrame.Characters(Start:=1, Length:=7).Font
    .Name = "Arial"
    .FontStyle = "Italique"
    .Size = 11
    .Strikethrough = False
    .Superscript = False
    .Subscript = False
    .OutlineFont = False
    .Shadow = False
    .Underline = xlUnderlineStyleNone
End With

@+
0
bayard33920 Messages postés 28 Date d'inscription vendredi 16 octobre 2009 Statut Membre Dernière intervention 4 avril 2010
1 avril 2010 à 21:03
Merci, ça peut être intéressant. J'ai progressé un peu car maintenant j'ai même le jour et l'heure dans le commentaire (juste pour rigoler) mais je ne peux que progresser vu mon niveau :)

Merci à toi et merci à Aquarelle (j'avais cru que c'était Gord21 qui m'avait répondu )

Bonsoir à tous
0