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!
Danielle

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,

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