Commentaire conditionnel

[zeltron]

Bonjour
Est il possible de faire apparaitre un commentaire dans une cellule en fonction de la valeur de cette cellule. Si la condition n'est pas remplie, il n'y a pas de commentiare, si la condition est remplie, là apparait le commentaire. Est ce possible?

De plus, ce commentaire peut il etre dynamique, c'est a dire que la nature du message change en fonction de la valeur de la cellule?

Par avance merci pour votre aide

Cordialement

Zeltron

 

[Hervé]

Bonsoir zeltron

Un petit fichier exemple n'aurait pas été de refus

ce type de code crée un commentaire, si la cellule contient un chiffre inférieur à 10.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target > 10 Then
        With Target
            If Not .Comment Is Nothing Then .Comment.Delete
            .AddComment.Text Target.Text
        End With
Else
    If Not Target.Comment Is Nothing Then Target.Comment.Delete
End If
End Sub

a placer dans le module de la feuille, clique droit sur le nom de l'onglet, puis visualiser le code.

salut

 

[Nikolaï]

Bonjour Zeltron

Oui bien sur c'est possible mais à mon avis il faut que tu utilises VBA.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Target.Comment.Delete
If Target = 1 Then
Target.AddComment 'Premier Numéro'
Target.Comment.Visible = True
ElseIf Target = 2 Then
Target.AddComment 'Deuxième Numéro'
Target.Comment.Visible = True
ElseIf Target = 3 Then
Target.AddComment 'Troisième Numéro'
Target.Comment.Visible = True
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Target.Comment.Delete
If Target = 1 Then
Target.AddComment 'Premier Numéro'
Target.Comment.Visible = True
ElseIf Target = 2 Then
Target.AddComment 'Deuxième Numéro'
Target.Comment.Visible = True
ElseIf Target = 3 Then
Target.AddComment 'Troisième Numéro'
Target.Comment.Visible = True
End If
End Sub

Voilà, c'est tout ce que je peux pour l'instant ca rje dois partir.
Bon weekend
Christophe

 

[zeltron]

Merci beaucoup, c'est ce que je souhaite!!
Cependant, j'ai régardé le code, mais je ne sais pas comment faire et où saisir dans le code la nature du commentaire??? exemple: si c'est supérieur a 10, le commentaire est par exemple 'supérieur', et si c'est égal a 10 le commentaire est ' exact'
Peux tu m'aider stp

Merci encore pour ta disponibilité
Cordialement

Zeltron

 

[zeltron]

Encore merci a ce site c'est exactement ce que je souhaitais!!!!
Et un grand merci a vous 2 Nikolaï et Hervé!!!

Cordialement

Zeltron

 

[Hervé]

re

comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If Not .Comment Is Nothing Then .Comment.Delete
        Select Case .Value
            Case Is > 10: .AddComment.Text 'supérieur'
            Case Is = 10: .AddComment.Text 'exact'
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case Is < 10: .AddComment.Text 'inférieur'
&nbsp; &nbsp; &nbsp; &nbsp; End Select
&nbsp; &nbsp; End With
End Sub

salut

 

[Ti_]

Malgré l'excellence de la solution proposée par Hervé, on peut faire encore plus simple en créant une petite fonction personnalisée dont le seul but sera de renvoyer un commentaire. C'est ce que j'ai fait dans l'exemple ci-joint.

L'avantage sur la macro événementielle, c'est que le commentaire, comme l'adresse de la cellule auquel il doit s'appliquer peuvent être déterminés directement depuis la cellule appelante, comme on peut le faire avec toute fonction d'Excel.
[file name=commentCond.zip size=9031]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/commentCond.zip[/file]

 

[myDearFriend!]

Bonsoir zeltron, Hervé, Nikolaï, Ti_,

Et si je peux me permettre, on peut aussi générer un commentaire avec le message que l'on veut, selon la condition que l'on veut, comme on le ferait avec une Mise en Forme Conditionnelle classique... et ici, comme pour la solution de mon ami Ti, l'avantage c'est qu'il n'y a pas lieu de modifier la macro pour définir les paramètres souhaités...

J'avais fourni un exemple dans le lien Lien supprimé (mon post du 18/04/2005 16:48).

Cordialement,

 

[Hervé]

Rebonsoir le fil
bonsoir ti, didier

N'en jetez plus, déjà qu'avec le fichier de thierry j'ai un mois de boulot, si en plus vous vous mettez à nous lancer des formules ou des mefc qui créent des commentaires, je vais avoir du job jusqu'a pâques.

Ti, juste deux smiley :

didier : un fil mémorable

merci à vous

salut

Message édité par: Hervé, à: 28/10/2005 22:00

 

[Zeltron]

Merci a tous, toutes ces solutions me font énormément progresser, merci encore à vous tous Hervé,Mdf,Ti, Nikolaï, et tout le forum!!!

Cordialement


Zeltron