Forum Clubic

Excel : Insérer un commentaire par macro

Bonjour,

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.

Est ce bien clair???

Merci de vos réponse

Salut pieds-nus :hello:

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.

Est ce bien clair? :pt1cable: