OVH Cloud OVH Cloud

Ouverture conditionnel d'un commentaire

2 réponses
Avatar
Christian
Bonjour à tous
Comment devrais-je m'y prendre pour qu'un commentaire s'ouvre
automatiquement lors d'une condition.
Si(D1< 0), alors en F1, il y a 2 possibilités de calcul automatisé.
Suivant que l'on tape le chiffre 1 ou 0.
Actuellement, j'ai mis F1 en format conditionnel pour attirer l'attention,
mais il faut que l'on sélectionne la touche F1, pour obtenir le commentaire
(Menu Données, Validation) qui indique les 2 possibilités de calcul.
J'aurais souhaité que lorsque la condition de la cellule D1 soit <0, le
commentaire s'affiche automatiquement.
Si quelqu'un avait une piste, je lui en serais reconnaissant.
Dans l'attente d'une réponse éventuelle, je vous souhaite une bonne journée.
Merci


--
Merci
Christian

2 réponses

Avatar
Jacky
Bonjour,
Une piste avec ceci peut-être....
'---------
Private Sub Worksheet_Change(ByVal Target As Range)
If [d1] < 0 Then
Application.DisplayCommentIndicator = 1
Else
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End If
End Sub
'---------
Désagrément... S'applique à tous les commentaires
JJ

"Christian" a écrit dans le message de
news:
Bonjour à tous
Comment devrais-je m'y prendre pour qu'un commentaire s'ouvre
automatiquement lors d'une condition.
Si(D1< 0), alors en F1, il y a 2 possibilités de calcul automatisé.
Suivant que l'on tape le chiffre 1 ou 0.
Actuellement, j'ai mis F1 en format conditionnel pour attirer l'attention,
mais il faut que l'on sélectionne la touche F1, pour obtenir le
commentaire
(Menu Données, Validation) qui indique les 2 possibilités de calcul.
J'aurais souhaité que lorsque la condition de la cellule D1 soit <0, le
commentaire s'affiche automatiquement.
Si quelqu'un avait une piste, je lui en serais reconnaissant.
Dans l'attente d'une réponse éventuelle, je vous souhaite une bonne
journée.
Merci


--
Merci
Christian


Avatar
Christian
Bonjour Jacky
Merci de m'avoir lu et répondu.
J'essaye tout de suite ta solution.
--
Merci
Christian



Bonjour,
Une piste avec ceci peut-être....
'---------
Private Sub Worksheet_Change(ByVal Target As Range)
If [d1] < 0 Then
Application.DisplayCommentIndicator = 1
Else
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End If
End Sub
'---------
Désagrément... S'applique à tous les commentaires
JJ

"Christian" a écrit dans le message de
news:
Bonjour à tous
Comment devrais-je m'y prendre pour qu'un commentaire s'ouvre
automatiquement lors d'une condition.
Si(D1< 0), alors en F1, il y a 2 possibilités de calcul automatisé.
Suivant que l'on tape le chiffre 1 ou 0.
Actuellement, j'ai mis F1 en format conditionnel pour attirer l'attention,
mais il faut que l'on sélectionne la touche F1, pour obtenir le
commentaire
(Menu Données, Validation) qui indique les 2 possibilités de calcul.
J'aurais souhaité que lorsque la condition de la cellule D1 soit <0, le
commentaire s'affiche automatiquement.
Si quelqu'un avait une piste, je lui en serais reconnaissant.
Dans l'attente d'une réponse éventuelle, je vous souhaite une bonne
journée.
Merci


--
Merci
Christian