Je voudrais, si c’est faisable, insérer un commentaire en automatique lorsque la valeur d’une cellule est supérieure ou égale à 10.
Je m’explique, si la valeur de la cellule que je rentre est supérieure ou égale à 10, alors un commmentaire que je dois renseigner s’insère . Puis une fois renseigner le commentaire se masque.
Je sais le faire avec un macro :
Admettons que A1 soit la cellule contenant la valeur à tester et A2 la cellule contenant le commentaire
If A1 > 10 then
a = inputbox("Veuillez saisir un commentaire :","Comentaire")
ActiveSheet.Range("A2").ClearComments
ActiveSheet.Range("A2")..AddComment a
End If
J’ai réussi à faire ce que je voulais grâce à ce code:
If Range("C28").Value > 10 Then
Range("C28").ClearComments
Dim Question As String
Range("C28").Select
Range("C28").AddComment
Range("C28").Comment.Visible = False
Range("C28").Comment.Text Text:="" & Chr(10) & ""
RowHeight = 18
Question = InputBox("Inscrivez le numéro de QRQC correspondant à cet arrêt", "MESSAGE")
If Question = "" Then Exit Sub
With ActiveCell
.Comment.Text Text:="QRQC n°" & " " & Question
End With
Else
End If
Mais ça ne marche que sur une cellule.
Ce qui serait bien, c’est que ça puisse marcher sur toute une sélection de cellules.
C’est à dire, que lorsque la valeur d’une cellule est supérieure à 10, la demande de commentaire apparaît.