Automatiser le commentaire d'une cellule | ||
---|---|---|
Inscription: 15/08/2012
Messages:
12
Système d'exploitation: PC Version Excel utilisée: 2007 |
Posté le : 11-08-2014 03h19
Bonsoir
J'ai des énoncés pour lesquels je veux un commentaire, un choix parmi 4. selon une condition propre à chaque énoncé.
Les 4 conditions sont A, B, C, D, pour Agréable, Beau, Classique, Discret.
Si l'énoncé est de condition A, je voudrais que le commentaire de la cellule de l'énoncé soit "Agréable", sans les guillemets. Si l'énoncé est de condition B, je voudrais que le commentaire de la cellule de l'énoncé soit "Beau", et ainsi de suite
J'ai tenté d'enregistrer une macro simple dans laquelle je copie le contenu d'une cellule contenant "Agréable", et je vais ensuite dans mon énoncé, j'insère un commentaire puis quand je viens pour coller mon contenu dans le commentaire, coller n'est pas disponible, ni Ctrl+V.
Alors, est-il possible de faire par macro?
Merci pour votre soutien et bonne fin de soirée! |
|
|
Re: Automatiser le commentaire d'une cellule | ||
---|---|---|
Inscription: 18/05/2006
De Saône-et-Loire (71)
Messages:
1539
Système d'exploitation: PC Version Excel utilisée: 97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365 |
Posté le : 13-08-2014 10h24
re-Bonjour DanC,
Tu trouveras en pièce jointe peut-être une solution à ton problème.
J'ai utilisé le code VBA suivant :
DANS LE MODULE DE CODE DE LA FEUILLE Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) '------------------------------------------------------------------------------- ' Auteur : Didier FOURGEOT (myDearFriend!) - www.mdf-xlpages.com ' Date : Août 2014 '------------------------------------------------------------------------------- Dim FC As FormatCondition Dim CommT As String If Not Application.Intersect(Target(1), _ Cells.SpecialCells(xlCellTypeAllFormatConditions)) Is Nothing Then With Target(1) For Each FC In Target.FormatConditions If FC.Type = xlExpression Then If FC.Formula1 Like "*mDF()*" Then CommT = Switch( _ .Value = "A", "Agréable", _ .Value = "B", "Beau", _ .Value = "C", "Classique", _ .Value = "D", "Discret", _ .Value <> "A", "" _ ) .ClearComments If CommT <> "" Then .AddComment CommT End If End If Next FC End With End If End Sub Voir explications de fonctionnement dans le classeur.
En espérant que ça puisse t'être utile.
Bien cordialement, Didier_mDF
Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien |
|
|
Re: Automatiser le commentaire d'une cellule | ||
---|---|---|
Inscription: 15/08/2012
Messages:
12
Système d'exploitation: PC Version Excel utilisée: 2007 |
Posté le : 13-08-2014 14h16
Bonjour Didier
Merci pour cette procédure.
ET si l'énoncé est dans la colonne A et la condition dans la colonne C, je voudrais avoir le commentaire dans la colonne A (selon la condition dans C).
Je vais regarder attentivement ce que tu m'as soumis.
Merci encore et bonne journée! Danielle |
|
|